ggline(X231024_2, x = "工序", y = "转移率", ylab="转移率(%)",
add = c("mean_sd","jitter"),
color = "化合物",size =1.2,
palette=cols[c(650,367,150,589,614,552)])+scale_y_continuous(breaks = seq(20, 600, by =50))+
geom_hline(yintercept = 100,color="black",lwd =1.3,linetype ="dashed")