我是靠谱客的博主 故意书包,这篇文章主要介绍R语言绘制列分面的散点图,现在分享给大家,希望可以做个参考。

复制代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
library(ggplot2) library(RColorBrewer) library(reshape2) library(wesanderson) Alz <-read.csv("Facet_Data.csv", header = T) #-----------------------------------图8-2-1 列分面的散点图(a) 列分面的散点图-------------------------------------------------- ggplot(Alz, aes(x = tau, y = SOD, fill = Class)) + geom_point(size=3,shape=21,colour="black") + # stat_smooth(method = "loess")+ facet_wrap( ~ Class) + theme( strip.text = element_text(size=13,face="plain",color="black"), text=element_text(size=12,face="plain",color="black"), axis.title=element_text(size=14,face="plain",color="black"), axis.text = element_text(size=11,face="plain",color="black"), legend.position="none" )

在这里插入图片描述

复制代码
1
2
3
4
5
6
7
8
9
10
11
12
13
#-----------------------------------图8-2-1 列分面的散点图 (b) 列分面的带拟合曲线的散点图------------------------------------------------------------------- ggplot(Alz, aes(x = tau, y = SOD,colour=Class, fill = Class)) + geom_point(size=2,shape=21,fill="black",colour="black",alpha=0.5) + stat_smooth(method = "loess")+ facet_grid(. ~ Class) + theme( strip.text = element_text(size=13,face="plain",color="black"), text=element_text(size=12,face="plain",color="black"), axis.title=element_text(size=14,face="plain",color="black"), axis.text = element_text(size=11,face="plain",color="black"), legend.position="none" )

在这里插入图片描述

复制代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#---------------------------------------图8-2-2 列分面的气泡图(a) 列分面的气泡图----------------------------------------------------------------------------------- ggplot(Alz, aes(x = tau, y = SOD, fill= Class, size = age)) + geom_point(shape=21,colour="black",alpha=0.7) + facet_wrap( ~ Class)+ guides(fill = FALSE)+ theme( strip.text = element_text(size=13,face="plain",color="black"), text=element_text(size=12,face="plain",color="black"), axis.title=element_text(size=14,face="plain",color="black"), axis.text = element_text(size=11,face="plain",color="black"), legend.position=c(0.935,0.13), legend.background = element_rect(fill=alpha("white",0)) )

在这里插入图片描述

复制代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#----------------------------------------图8-2-2 列分面的气泡图 (b) 列分面的带颜色映射的气泡图---------------------------------------------------------------------------- ggplot(Alz, aes(x = tau, y = SOD, fill=age, size = age)) + geom_point(shape=21,colour="black",alpha=0.95) + scale_fill_gradient2(low="#00A08A",mid="white",high="#FF0000",midpoint = mean(Alz$age))+ facet_wrap( ~ Class)+ #guides(fill = FALSE)+ theme( strip.text = element_text(size=13,face="plain",color="black"), text=element_text(size=12,face="plain",color="black"), axis.title=element_text(size=14,face="plain",color="black"), axis.text = element_text(size=11,face="plain",color="black"), #legend.position=c(0.935,0.13), legend.background = element_rect(fill=alpha("white",0)) )

在这里插入图片描述

复制代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#-----------------------------------------图8-2-3 矩阵分面气泡图-------------------------------------------------------------------------- Alz$male<-as.character(Alz$male) Alz$male[Alz$male=="0"] <- "Female" Alz$male[Alz$male=="1"] <- "Male" colnames(Alz)[colnames(Alz)=="male"]<-"Gender" ggplot(Alz, aes(x = tau, y = SOD, fill= Class, size = age)) + geom_point(shape=21,colour="black",alpha=0.7) + facet_grid(Gender ~ Class)+ guides(fill = FALSE)+ theme( strip.text = element_text(size=13,face="plain",color="black"), text=element_text(size=12,face="plain",color="black"), axis.title=element_text(size=14,face="plain",color="black"), axis.text = element_text(size=11,face="plain",color="black"), legend.position=c(0.935,0.11), legend.background = element_rect(fill=alpha("white",0)) )

在这里插入图片描述

最后

以上就是故意书包最近收集整理的关于R语言绘制列分面的散点图的全部内容,更多相关R语言绘制列分面内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(83)

评论列表共有 0 条评论

立即
投稿
返回
顶部