R语言画图 | 分组折线图

最新推荐文章于 2024-05-16 16:03:07 发布

Mrrunsen

最新推荐文章于 2024-05-16 16:03:07 发布

阅读量129

点赞数

分类专栏： R语言大学作业文章标签： r语言开发语言

本文链接：https://blog.csdn.net/Mrrunsen/article/details/136385808

版权

R语言大学作业专栏收录该内容

1395 篇文章 5814 订阅 ¥9.90 ¥99.00

订阅专栏

超级会员免费看

简单整理 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(Value)[1]) 
colnames(my_sum) <- c("Group","Time","Variable_n","Value_mean","Value_sd","Value_lower95","Value_upper95")

p1 <- ggplot(data

了解本专栏