gene_symbol <- factor(aa$gene_symbol,levels = genes) # 类型修改 aa[aa=="splice-3"] <- "splicing" aa[aa=="<em>splice</em> 5 43 712 2 ## nonsense span splice-3 <em>splice</em> Variant_Classification == "span" ~ "Intron", Variant_Classification %in% c("splice-3","splice