здесь, я пытаюсь сделать панель ошибок, используя tidyverse и ggplot2. но я терпел неудачу снова и снова. Я очень новичок в R и изучаю основы R. Я прошу вас помочь мне, пожалуйста.
df<- data.frame("type"= c("m", "m", "m", "m", "m", "f", "f", "f", "f","f"),
"shh"= c(12,11,10,16,14,12,15, 16, 17,13))
library(tidyverse)
library(ggplot2)
df_summary<- df %>%
group_by(type) %>%
summarise(Mean_t= mean(shh),
Sd_t= sd(shh),
n_t= n(),
se_t= sd(shh)/ sqrt(n()))
df_plot<- ggplot(df_summary, aes(type, Mean_t))+
geom_col()+
geom_errorbar(aes(ymin= Mean_t-Sd_t, ymax= Mean_t+Sd_t), width=0.2)
df_plot