오차막대

install.packages("tidyverse")
library(tidyverse)

 

diamonds %>% 
     dplyr::group_by(cut) %>% 
     dplyr::summarise(price.mean = mean(price),
                                        price.sd       = sd(price)) %>% 
     ggplot2::ggplot(mapping = aes(x = cut, y = price.mean)) +
     geom_point() +
     geom_errorbar(mapping = aes(ymin = price.mean - price.sd, ymax = price.mean + price.sd),
                                  width = 0.3) +
    theme_classic()