R语言的ggplot2绘制分组折线图?

R绘制分组折线图.R

首先看数据情况:group有3组。Time有3组,数据意思是在3组3个时间点测量了某指标,现在要绘制组1、组2、组3某指标y按时间的变化趋势

数据情况:

看看最终的效果图如下:

下面是本次使用的代码

.libPaths ()

setwd ("C:/Users/12974/Desktop/百度经验/03图形绘制/03R绘制分组折线图")#设置工作空间
getwd ()#加载工作空间

##导入数据
data1<-read.csv ("C:/Users/12974/Desktop/百度经验/03图形绘制/03R绘制分组折线图/data.csv",

as.is = TRUE,header = T,sep = ",", fileEncoding='utf-8')

#加载包
library (ggplot2)
library (ggsci)#画图颜色的包
#处理数据,将分类变量变为分类的
data1**** group\<-**as.factor** (data1**** group)
p1<-ggplot (data = data1,

aes (x=时间, #x轴变量

y=y, #y轴变量

group=group, #分组变量

color=group))+

geom_point (size=2)+

geom_line (size=1)

#美化
p1<-p1**+**

labs (x="时间",y="均值")+ #坐标名称

scale_fill_lancet ()+ #表示用lancet里面的颜色随机填充线条

scale_color_lancet ()+ #表示用lancet里面的颜色随机填充线条

theme_bw ()+ #去掉背景灰色

theme (panel.grid = element_blank ())+ #删除背景网格

scale_color_manual (

values = c ("1" = "#bd2628",

"2" = "#B09C85FF",

"3" = "#4DBBD5FF"))

p1

#另外还可以选择组1、组2、组3其中两组作图
library (dplyr)#这个包加载了才能用下面的函数

#筛选group=1和group=2
data12<- data1 %>%

filter (group %in% c ("1", "2"))
#筛选group=1和group=3
data13<- data1 %>%

filter (group %in% c ("1", "3"))
#筛选group=2和group=3
data23<- data1 %>%

filter (group %in% c ("2", "3"))

#绘制group=1和group=2
p12<-ggplot (data = data12,

aes (x=时间, #x轴变量

y=y, #y轴变量

group=group, #分组变量

color=group))+

geom_point (size=2)+

geom_line (size=1)
#美化
p12<-p12**+**

labs (x="时间",y="均值")+ #坐标名称

scale_fill_lancet ()+ #表示用lancet里面的颜色随机填充线条

scale_color_lancet ()+ #表示用lancet里面的颜色随机填充线条

theme_bw ()+ #去掉背景灰色

theme (panel.grid = element_blank ())+ #删除背景网格

scale_color_manual (

values = c ("1" = "#bd2628",

"2" = "#B09C85FF",

"3" = "#4DBBD5FF"))

p12

#绘制group=1和group=3
p13<-ggplot (data = data13,

aes (x=时间, #x轴变量

y=y, #y轴变量

group=group, #分组变量

color=group))+

geom_point (size=2)+

geom_line (size=1)
#美化
p13<-p13**+**

labs (x="时间",y="均值")+ #坐标名称

scale_fill_lancet ()+ #表示用lancet里面的颜色随机填充线条

scale_color_lancet ()+ #表示用lancet里面的颜色随机填充线条

theme_bw ()+ #去掉背景灰色

theme (panel.grid = element_blank ())+ #删除背景网格

scale_color_manual (

values = c ("1" = "#bd2628",

"2" = "#B09C85FF",

"3" = "#4DBBD5FF"))

Scale for colour is already present.

Adding another scale for colour, which will replace the existing scale.

p13

#绘制group=2和group=3
p23<-ggplot (data = data23,

aes (x=时间, #x轴变量

y=y, #y轴变量

group=group, #分组变量

color=group))+

geom_point (size=2)+

geom_line (size=1)
#美化
p23<-p23**+**

labs (x="时间",y="均值")+ #坐标名称

scale_fill_lancet ()+ #表示用lancet里面的颜色随机填充线条

scale_color_lancet ()+ #表示用lancet里面的颜色随机填充线条

theme_bw ()+ #去掉背景灰色

theme (panel.grid = element_blank ())+ #删除背景网格

scale_color_manual (

values = c ("1" = "#bd2628",

"2" = "#B09C85FF",

"3" = "#4DBBD5FF"))

p23

##保存图片
ggsave (filename = "p1.png",#命名

plot=p1,#哪张图

units="px",

width = 1200,#宽度

height = 600 #高度
)

ggsave (filename = "p12.png",#命名

plot=p12,#哪张图

units="px",

width = 1200,#宽度

height = 600 #高度
)

ggsave (filename = "p13.png",#命名

plot=p13,#哪张图

units="px",

width = 1200,#宽度

height = 600 #高度
)

ggsave (filename = "p23.png",#命名

plot=p23,#哪张图

units="px",

width = 1200,#宽度

height = 600 #高度
)

相关推荐
有梦想的Frank博士21 小时前
R语言*号标识显著性差异判断组间差异是否具有统计意义
开发语言·信息可视化·r语言
逆风远航4 天前
R语言贝叶斯:INLA下的贝叶斯回归、生存分析、随机游走、广义可加模型、极端数据的贝叶斯分析
开发语言·r语言·贝叶斯·生态学·结构方程·环境科学·混合效应
Faxxtty4 天前
【R语言】解决package ‘qvalue’ is not available (for R version 3.6.1)
开发语言·r语言
Cachel wood5 天前
Vue前端框架:Vue前端项目文件目录
java·前端·vue.js·python·算法·r语言·前端框架
邢博士谈科教5 天前
OmicsTools软件和R语言分析环境安装配置答疑汇总最新版
r语言
纪伊路上盛名在6 天前
vscode中提升效率的插件扩展——待更新
linux·服务器·ide·vscode·python·r语言·编辑器
拓端研究室TRL6 天前
银行信贷风控专题:Python、R 语言机器学习数据挖掘应用实例合集:xgboost、决策树、随机森林、贝叶斯等...
python·决策树·机器学习·数据挖掘·r语言
在在进步6 天前
R数据结构&向量基础
数据结构·r语言
琼火hu8 天前
R语言笔记(五):Apply函数
开发语言·笔记·r语言·apply
扛着仪器去爬山8 天前
R语言结构方程模型(SEM)
r语言·贝叶斯·生态学·结构方程·混合效应·sem