R语言ggplot2给箱图添加散点和连线

阿里云双11来了!从本博客参与阿里云,服务器最低只要86元/年!

导读

在一幅图里展示箱、散点和折线。

一、模拟输入数据

set.seed(1995)  
# 随机种子
data=matrix(abs(round(rnorm(20, mean=20, sd=5))), 5, 4)  
# 随机正整数,5行,4列
colnames(data)=paste("指标", 1:4, sep=".")  
# 列名
rownames(data)=paste("样品", 1:5, sep=".")  
# 行名
data  # 查看数据,如下:
   指标.1 指标.2 指标.3 指标.4
样品.1     25     18     20     20
样品.2     18     20     19      8
样品.3     21     20     21     13
样品.4     22     19     25      7
样品.5     28     28     13     20

二、调整格式

library(reshape)
input=melt(data)
input  # 结果如下:
           X1     X2 value
1  样品.1 指标.1    25
2  样品.2 指标.1    18
3  样品.3 指标.1    21
4  样品.4 指标.1    22
5  样品.5 指标.1    28
6  样品.1 指标.2    18
7  样品.2 指标.2    20
8  样品.3 指标.2    20
9  样品.4 指标.2    19
10 样品.5 指标.2    28
11 样品.1 指标.3    20
12 样品.2 指标.3    19
13 样品.3 指标.3    21
14 样品.4 指标.3    25
15 样品.5 指标.3    13
16 样品.1 指标.4    20
17 样品.2 指标.4     8
18 样品.3 指标.4    13
19 样品.4 指标.4     7
20 样品.5 指标.4    20

三、ggplot画箱图

geom_boxplot():箱图

plot1 = ggplot(input, aes(x=X2, y=value, fill=X2)) +
# 添加数据、xy值、 颜色
geom_boxplot() +
# 盒图
labs(x="指标(x轴)", y="值", fill="指标(图例)") +
# 设置xy轴和图例的标题
theme(panel.grid=element_blank(), panel.background=element_rect(fill='transparent', color='black'))
# 去掉背景网格:panel.grid=element_blank()
# 去掉灰色背景:panel.background=element_rect(fill='transparent'))
# 加上黑色边框:panel.background=element_rect(fill='transparent', color='black'))
plot1  # 展示结果


图片.png

四、添加散点

geom_point():散点图

plot2 = plot1 + geom_point(color="red")
# 添加散点,设置颜色
plot2  # 展示结果


图片.png

五、添加连线

geom_line():折线图

plot3 = plot1 + geom_point(color="red") + geom_line(aes(group=X1))
# 给来自相同样品的指标添加连线
plot3  # 展示结果


图片.png

\color{green}{😀😀原创文章,码字不易,转载请注明出处😀😀}

https://www.jianshu.com/p/ab32fba75d80

Python量化投资网携手4326手游为资深游戏玩家推荐:《《奥拉星》:体验问题合集FAQ

「点点赞赏,手留余香」

    还没有人赞赏,快来当第一个赞赏的人吧!
0 条回复 A 作者 M 管理员
    所有的伟大,都源于一个勇敢的开始!
欢迎您,新朋友,感谢参与互动!欢迎您 {{author}},您在本站有{{commentsCount}}条评论