R语言beeswarm函数画图

library(readxl)
sourceData <- read.csv("D:/sourceData-NEW1.csv",stringsAsFactors = FALSE)#加载csv文件
View(sourceData)#预览数据
library(beeswarm)#导入beeswarm
beeswarm(sourceData$检测结果~sourceData$临床诊断,data=sourceData,spacing=0.25,vertical=TRUE,method='center',pch=19,col=1:10,xlab="临床诊断",ylab="TMB")

#beeswarm（formula,data="数据源",vertical=true(枚举值横线分布),method='center’(对称群)，pch=19（实心圆点））
abline(h=10,lwd=1,col="red")#增加画横线，h表述横线的高度，lwd是横线的粗细程度