Лесной граф с использованием уже сформированного информационного кадра

Question

ПРОБЛЕМА

У меня есть несколько наборов данных с данными, которые уже были обработаны и экспортированы со следующей структурой:

set.seed(123)
library(dplyr)
tb <- tibble(group = rep(c("A", "B"), each = 5),
             wkday = rep(c("Mon", "Tue", "Wed", "Thu", "Fri"), times = 2),
             sta = sample(-3:2, size = 10, replace = T),
             mid = sta + 2,
             fin = sta + 5)

ВОПРОС

Я хочу создать сюжеты, похожие на изображение ниже. Как я могу создать график, подобный этому, используя ggplot, ggpubr или любые другие пакеты R?

Answer 1

Это должно помочь вам начать:

library(ggplot2)
ggplot(tb, aes(x=wkday, y= mid, ymin= sta, ymax=fin, lower = sta, upper = fin, middle = mid, fill= group)) +
  geom_boxplot(stat = "identity") +
  geom_hline(yintercept=0, linetype="dotted")+
  coord_flip()