接做名片的网站,深圳软件开发公司在哪里,创建公众号的步骤,微信公众号推广收费标准R绘制分组折线图.R 首先看数据情况#xff1a;group有3组。Time有3组#xff0c;数据意思是在3组3个时间点测量了某指标#xff0c;现在要绘制组1、组2、组3某指标y按时间的变化趋势
数据情况#xff1a; 看看最终的效果图如下#xff1a; 下面是本次使用的代码
.libPat…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 ,, fileEncodingutf-8)#加载包library(ggplot2)library(ggsci)#画图颜色的包#处理数据将分类变量变为分类的data1$group-as.factor(data1$group)p1-ggplot(data data1, aes(x时间, #x轴变量 yy, #y轴变量 groupgroup, #分组变量 colorgroup)) geom_point(size2) geom_line(size1)
#美化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)#这个包加载了才能用下面的函数
#筛选group1和group2data12- data1 %% filter(group %in% c(1, 2))#筛选group1和group3data13- data1 %% filter(group %in% c(1, 3))#筛选group2和group3data23- data1 %% filter(group %in% c(2, 3))#绘制group1和group2p12-ggplot(data data12, aes(x时间, #x轴变量 yy, #y轴变量 groupgroup, #分组变量 colorgroup)) geom_point(size2) geom_line(size1)#美化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 #绘制group1和group3p13-ggplot(data data13, aes(x时间, #x轴变量 yy, #y轴变量 groupgroup, #分组变量 colorgroup)) geom_point(size2) geom_line(size1)#美化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 #绘制group2和group3p23-ggplot(data data23, aes(x时间, #x轴变量 yy, #y轴变量 groupgroup, #分组变量 colorgroup)) geom_point(size2) geom_line(size1)#美化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,#命名 plotp1,#哪张图 unitspx, width 1200,#宽度 height 600 #高度)ggsave(filename p12.png,#命名 plotp12,#哪张图 unitspx, width 1200,#宽度 height 600 #高度)ggsave(filename p13.png,#命名 plotp13,#哪张图 unitspx, width 1200,#宽度 height 600 #高度)ggsave(filename p23.png,#命名 plotp23,#哪张图 unitspx, width 1200,#宽度 height 600 #高度)
