按分组，每个组画图

data %>%group_by(VARIANT_TYPE) %>%do({
    p<-ggplot(.,aes(x=TRUTH_SAMPLE,y=NON_REF_GENOTYPE_CONCORDANCE))+geom_point()
    
    ggsave(p,filename = paste0(unique(.$VARIANT_TYPE),".pdf"))
    invisible(.)
})

按分组，每个组画图