简单整理 ggplot2 绘制分组折线图的方法,方便以后使用。首先生成随机数据与画图 theme:
library(ggplot2)
library(ggsci)
##换用波动更大数据
set.seed(12345)
dat <- data.frame(Time = factor(rep(c(1:5, 1:5, 1:5),each = 4)),
Group = factor(c(rep("A",20), rep("B",20), rep("C",20))),
Value = abs(c(rnorm(20, mean = 20, sd = 10), rnorm(20, mean = 20, sd = 10),rnorm(20, mean = 20, sd = 10))))
library(tidyverse)
my_sum <- dat %>% group_by(Group,Time) %>%
summarise(N = n(),
mean = mean(Value),
sd = sd(Value),
lower95 = Rmisc::CI(Value)[3],
upper95 = Rmisc::CI(