18dykr

a<-ggplot(data,aes(x=x,y=y)) +
geom_point(color="orange",size=4,alpha=0.8) +
geom_segment(aes(x=x,xend=x,y=1,yend=y),color="grey") +
theme(panel.grid.major.x=element_blank(),
panel.border=element_blank(),
axis.ticks.x=element_blank()) +
xlab("") + ylab("Value of Y")
b<-ggpubr::ggdotchart(data,x="x",y="y",color = "orange",dot.size=4,dot.alpha=0.8,
ylab = "Value of Y",xlab="",
add = "segments",
add.params = list(color="grey",y=1),
ggtheme=theme_pubr())
不知道为何不能用这个函数复现出ggplot的结果