R语言怎么实现柱形图

df<-readxl::read_excel("example_data/001.xlsx")head(df)dflibrary(dplyr)df%>%  group_by(group)%>%  summarise(mean_value=mean(value),sd_value=sd(value)) -> df1df1library(ggplot2)ggplot(data=df1,aes(x=group,y=mean_value))+  geom_col(aes(fill=group))+  geom_errorbar(aes(ymin=mean_value-sd_value,                    ymax=mean_value+sd_value),                width=0.2)+  theme_bw()+  scale_y_continuous(expand=c(0,0),limits=c(0,4),                     breaks = c(0,1,2,3,4))+  scale_fill_manual(values=c("#1f78b4", "#33a02c", "#e31a1c"))

df<-read.csv("example_data/002.csv",header=T)dfggplot(data=df,aes(x=dose,y=len,fill=supp))+  geom_bar(stat="identity",position = "dodge",width=0.5)+  geom_errorbar(aes(ymin=len-sd_value,ymax=len+sd_value),width=0.2,                position = position_dodge(0.5))+  theme_bw()+  scale_fill_manual(values=c("#33a02c", "#e31a1c"))+  scale_y_continuous(expand = c(0,0),limits = c(0,40))

df%>%group_by(dose)%>%mutate(new_col=cumsum(len)) -> df1df1ggplot(data=df1,aes(x=dose,y=len,fill=supp))+  geom_bar(stat="identity",position="stack")+  geom_text(aes(label=len),            position = position_stack(vjust=0.5),color="white")+  geom_errorbar(aes(ymin=new_col-sd_value,ymax=new_col+sd_value),                width=0.1)+  theme_bw()+scale_fill_manual(values=c("#33a02c", "#e31a1c"))+  scale_y_continuous(expand = c(0,0),limits = c(0,70))

df<-read.csv("example_data/003-1.csv",header=T)dfggplot(data=df,aes(x=dose,y=len,group=1))+  geom_line()+geom_point()+  geom_errorbar(aes(ymin=len-sd_value,ymax=len+sd_value),width=0.05)+  theme_bw()+  geom_text(aes(y=len+sd_value+1,label=Sigi),size=8)

df<-read.csv("example_data/003-2.csv",header=T)dfggplot(data=df,aes(x=dose,y=len,group=supp))+  geom_line(aes(color=supp))+geom_point(aes(color=supp))+  geom_errorbar(aes(ymin=len-sd_value,                    ymax=len+sd_value,color=supp),                width=0.05)+  theme_bw()+  scale_color_manual(values=c("#33a02c", "#e31a1c"))