gene_symbol %in% genes) # 变成因子方便排序 aa$gene_symbol <- factor(aa$gene_symbol,levels = genes) # 类型修改 aa[aa=="<em>splice</em> 24 5 43 712 2 ## nonsense span <em>splice</em> Variant_Classification == "span" ~ "Intron", Variant_Classification %in% c("splice