点图
library(tidyverse)
theme_set(theme_test())
iris%>%
ggplot(aes(x=Species,y=Sepal.Length),fill = "red",color="white")+
geom_point(color="black",fill="white")+
ylim(0,10)+
labs(y="Sepal.Length")
![在这里插入图片描述](https://img-blog.csdnimg.cn/fa651d878ffc429db4a6a164581b836c.png)
误差线点图
library(tidyverse)
theme_set(theme_test())
library(sciplot)
iris%>%group_by(Species)%>%summarise(mean=mean(Sepal.Length),se=se(Sepal.Length))%>%
ggplot(aes(x=Species,y=mean),fill = "red",color="white")+
geom_point(color="black",size=4)+
geom_errorbar(aes(ymin=mean-se,ymax=mean+se),width=0.05)+
ylim(4.5,7)+
labs(y="Sepal.Length")
![在这里插入图片描述](https://img-blog.csdnimg.cn/f927398b570342828b1a1dca0c783d3d.png)