Небольшой хак для ggplot — простой способ добавить текст с реальными средними значениями и стандартным отклонением при использовании линий или столбцов

Я просто хочу добавить в свои графики текст о реальных средствах и стандартном отклонении, когда работаю с одним или несколькими результатами. см. изображения ниже для справки. Код ниже. Если какой-либо обновленный пакет справится с этим, пожалуйста, дайте мне знать. Обратите внимание, что я хочу иметь реальные средства и SD (значения). Спасибо

(реальные значения вместо среднего (стандартное отклонение), пожалуйста)

library(tidyverse)
df = data.frame(
  year = c("2019","2020", "2021","2022"),
  math = rnorm(100,10,2),
  science = rnorm(100,5,1)
)
df %>%
  ggplot(., aes(x = year, y = math, 
                group = 1)) +
  stat_summary(geom = "line",
               fun = "mean",
               width=0.2,
               size=1.2) +
  stat_summary(
    geom='errorbar',
    fun = "mean",
    width=0.2,
    size=1.2
  ) +
  theme_bw()
#> Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
#> ℹ Please use `linewidth` instead.
#> This warning is displayed once every 8 hours.
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
#> generated.
#> Warning in stat_summary(geom = "line", fun = "mean", width = 0.2, size = 1.2):
#> Ignoring unknown parameters: `width`


df %>%
  pivot_longer(-year) %>% 
  ggplot(., aes(x = year, y = value, color = name, group = name)) +
  stat_summary(geom = "line",
               fun = "mean",
               width=0.2,
               size=1.2) +
  stat_summary(
    geom='errorbar',
    fun = "mean",
    width=0.2,
    size=1.2
  ) +
  theme_bw()
#> Warning in stat_summary(geom = "line", fun = "mean", width = 0.2, size = 1.2):
#> Ignoring unknown parameters: `width`

^{Created on 2024-07-06 with reprex v2.1.0}

r ggplot2 graph tidyverse

06.07.2024 20:33

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Код ниже не использует ggplot для вычисления агрегированной статистики, вместо этого он использует dplyr summarise.
Затем geom_* и не stat_summary добавьте в сюжет нужные слои.

На оба графика добавьте слой geom_errorbar.

library(tidyverse)

set.seed(2024)
df <- data.frame(
  year = c("2019","2020", "2021","2022"),
  math = rnorm(100,10,2),
  science = rnorm(100,5,1)
)

df %>%
  summarise(
    y = mean(math),
    se = sd(math),
    ymin = y - se,
    ymax = y + se,
    .by = year
  ) %>%
  mutate(year = as.integer(as.character(year))) %>%
  ggplot(aes(year, y)) +
  geom_line(linewidth = 1.2) +
  geom_errorbar(aes(ymin = ymin, ymax = ymax), linewidth = 1.2) +
  geom_label(aes(label = paste0(round(y, 1), " (", round(se, 1), ")")), 
             fill = "yellow", vjust = -0.5) +
  theme_bw()



df %>%
  pivot_longer(-year) %>% 
  summarise(
    y = mean(value),
    se = sd(value),
    ymin = y - se,
    ymax = y + se,
    .by = c(year, name),
  ) %>%
  mutate(year = as.integer(as.character(year))) %>%
  ggplot(aes(year, y)) +
  geom_line(aes(color = name), linewidth = 1.2) +
  geom_errorbar(aes(ymin = ymin, ymax = ymax, color = name), linewidth = 1.2) +
  geom_label(aes(label = paste0(round(y, 1), " (", round(se, 1), ")")), 
             fill = "yellow", vjust = -0.5) +
  theme_bw()