R：使用ggplot2的散点图矩阵，主题因方面面板而异 [英] R: Scatter plot matrix using ggplot2 with themes that vary by facet panel
问题描述
我想用ggplot2创建Scatter Plot Matrix。部分地，我应付了我的问题。我设法使用ggplot2创建三部分图：下三角形 - 散点图，对角变量名称和上三角形相关系数（R ^ 2）。下面我给出了一段我的数据+代码生成我的图表。
我的数据：
f =
C xval V yval corr V1
1 1622 1 1622 1 2ng
1 1622 2 1639 0.997 2ng
1 1622 3 1584 0.992 2ng
1 1622 4 1549 0.99 2ng
1 1622 5 1541 0.993 2ng
1 1622 6 1543 0.994 2ng
1 1622 7 1530 0.988 2ng
2 1639 1 1622 0.997 5ng
2 1639 2 1639 1 5ng
2 1639 3 1584 0.997 5ng
2 1639 4 1549 0.997 5ng
2 1639 5 1541 0.998 5ng
2 1639 6 1543 0.998 5ng
2 1639 7 1530 0.995 5ng
1584 1 1622 0.992 10ng
3 1584 2 1639 0.997 10ng
3 1584 3 1584 1 10ng
3 1584 4 1549 0.997 10ng
3 1584 5 1541 0.995 10ng
1584 6 1543 0.999 10ng
3 1584 7 1530 0.999 10ng
4 1549 1 1622 0.99 15ng
4 1549 2 1639 0.997 15ng
4 1549 3 1584 0.997 15ng
4 1549 4 1549 1 15ng
4 1549 5 1541 0.998 15ng
4 1549 6 1543 0.998 15ng
4 1549 7 1530 0.998 15ng
5 1541 1 1622 0.993 30ng
5 1541 2 1639 0.998 30ng
5 1541 3 1584 0.995 30ng
5 1541 4 1549 0.998 30ng
5 1541 5 1541 1 30ng
5 1541 6 1543 0.998 30ng
5 1541 7 1530 0.995 30ng
6 1543 1 1622 0.994 60ng
6 1543 2 1639 0.998 60ng
6 1543 3 1584 0.999 60ng
6 1543 4 1549 0.998 60ng
6 1543 5 1541 0.998 60ng
6 1543 6 1543 1 60ng
6 1543 7 1530 0.998 60ng
7 1530 1 1622 0.988 100ng
7 1530 2 1639 0.995 100ng
7 1530 3 1584 0.999 100ng
7 1530 4 1549 0.99 8 100ng
7 1530 5 1541 0.995 100ng
7 1530 6 1543 0.998 100ng
7 1530 7 1530 1 100ng
和代码：
g < - ggplot（data = f，aes（ x = xval，y = yval））+
geom_point（data = f [（xtfrm（f $ C）
geom_tile（aes（fill = corr））+
geom_text（data = f [（xtfrm（f $ C）> xtfrm（f $ V）），]， aes（x = 4000，y = 4000，label = corr），size = 10）+
coord_cartesian（xlim = c（0,8000），ylim = c（0,8000））+
facet_grid （V〜C，space =fixed）+
theme（panel.grid.major = element_blank（），strip.background = element_blank（），strip.text.y = element_blank（），strip.text。 x = element_blank（），legend.position =none）
g
然而， ，对于改善图形的外观，我有一个问题。我想用不同的背景颜色分隔图的一部分，例如：散点图的白色背景，变量名称的灰色和相关系数的蓝色。有谁知道该怎么做？是否有可能或者我必须分别创建图形的每个部分？
一种方法是分别创建每个图然后将它们放在一起。这允许您为每个绘图单独设置所有绘图元素，包括背景填充颜色等主题元素。
下面的函数使用 mapply 为每个 V 和 C ，并且使用 if 语句为每个绘图分配所需的背景色。 / p>
library（gridExtra）
p.list = mapply（FUN = function（v，c）{
fvc = f [f $ V == v& f $ C == c，]
g < - ggplot（data = fvc，aes（x = xval ，y = yval））+
coord_cartesian（xlim = c（0,8000），ylim = c（0,8000））+
theme（axis.title = element_blank（），
axis.text = element_text（size = 8））
if（c == v）{
g = g + geom_text（aes（x = 4000，y = 4000，label = V1） ，
size = 6，color =red）
}
if（c
theme（panel.background = element_rect（fill = hcl（180,100,60，alpha = 0.3）））
}
if（c> v）{
g = g + geom_point（color =darkblue，size = 1.5）+
geom_smooth（aes（color =red），method =lm，size = 0.1）+
theme（panel.background如果（v！= 1）{
$ bg = g + theme（axis.text.y = element_blank（），
axis.ticks.y = element_blank（））
}
if（c！= max（f $ C））{
g = g + theme（axis.text.x = element_blank（），
axis.ticks.x = element_blank（））
}
return（g）}，
expand.grid（V = unique（f $ V），C = unique（f $ C））[[1]]，
expand.grid（ V =唯一（f $ V），C =唯一（f $ C））[[2]]，SIMPLIFY = FALSE）
现在将所有图表放在一起并添加x轴和y轴标签：
grid .arrange（
arrangeGrob（
arrangeGrob（textGrob（Y vals，rot = 90），
do.call（arrangeGrob，c（p.list，nc ），
textGrob（X vals），heights = c（0.95,0.05）））
正如您在上图中还有一个问题：由于轴标签的原因，第一列和最后一列的面板有较小的绘图区域。
I want to create Scatter Plot Matrix using ggplot2. Partially I coped with my problem. I managed to create three-part graph using ggplot2: the lower triangle - Scatterplot, diagonally - variable names and the upper triangle - correlation coefficient (R^2). Below I give piece of my data + code generating my chart. My data:
f = C xval V yval corr V1 1 1622 1 1622 1 2ng 1 1622 2 1639 0.997 2ng 1 1622 3 1584 0.992 2ng 1 1622 4 1549 0.99 2ng 1 1622 5 1541 0.993 2ng 1 1622 6 1543 0.994 2ng 1 1622 7 1530 0.988 2ng 2 1639 1 1622 0.997 5ng 2 1639 2 1639 1 5ng 2 1639 3 1584 0.997 5ng 2 1639 4 1549 0.997 5ng 2 1639 5 1541 0.998 5ng 2 1639 6 1543 0.998 5ng 2 1639 7 1530 0.995 5ng 3 1584 1 1622 0.992 10ng 3 1584 2 1639 0.997 10ng 3 1584 3 1584 1 10ng 3 1584 4 1549 0.997 10ng 3 1584 5 1541 0.995 10ng 3 1584 6 1543 0.999 10ng 3 1584 7 1530 0.999 10ng 4 1549 1 1622 0.99 15ng 4 1549 2 1639 0.997 15ng 4 1549 3 1584 0.997 15ng 4 1549 4 1549 1 15ng 4 1549 5 1541 0.998 15ng 4 1549 6 1543 0.998 15ng 4 1549 7 1530 0.998 15ng 5 1541 1 1622 0.993 30ng 5 1541 2 1639 0.998 30ng 5 1541 3 1584 0.995 30ng 5 1541 4 1549 0.998 30ng 5 1541 5 1541 1 30ng 5 1541 6 1543 0.998 30ng 5 1541 7 1530 0.995 30ng 6 1543 1 1622 0.994 60ng 6 1543 2 1639 0.998 60ng 6 1543 3 1584 0.999 60ng 6 1543 4 1549 0.998 60ng 6 1543 5 1541 0.998 60ng 6 1543 6 1543 1 60ng 6 1543 7 1530 0.998 60ng 7 1530 1 1622 0.988 100ng 7 1530 2 1639 0.995 100ng 7 1530 3 1584 0.999 100ng 7 1530 4 1549 0.998 100ng 7 1530 5 1541 0.995 100ng 7 1530 6 1543 0.998 100ng 7 1530 7 1530 1 100ngAnd code:
g <- ggplot(data = f, aes(x=xval, y=yval))+ geom_point(data = f[(xtfrm(f$C)<xtfrm(f$V)),], colour = "darkblue", size = 1.5)+ geom_smooth(data = f[(xtfrm(f$C)<xtfrm(f$V)),], aes(colour = "red"), method="lm", size = 0.1)+ geom_text(data = f[(xtfrm(f$C)==xtfrm(f$V)),], aes(x = 4000, y = 4000, label = paste(V1)), size = 10, colour="red")+ geom_tile(aes(fill=corr))+ geom_text(data = f[(xtfrm(f$C)>xtfrm(f$V)), ], aes(x = 4000, y = 4000, label = corr), size = 10)+ coord_cartesian(xlim=c(0,8000), ylim=c(0,8000))+ facet_grid(V~C, space = "fixed") + theme(panel.grid.major = element_blank(), strip.background = element_blank(), strip.text.y = element_blank(), strip.text.x = element_blank(), legend.position = "none") gHowever, I have got a problem for improving the appearance of the graph. I want to separate part of the graph with different background colour for example: white background for scatters, gray for variable names and blue for correlation coeff. Does anyone know how to do it? Is it possible or I have to create each part of graph separately?
解决方案One way to do this is to create each plot separately and then lay them out together. This allows you to set all the plot elements independently for each plot, including theme elements like the background fill color.
The function below uses
mapplyto create a separate plot for each combination ofVandC, and usesifstatements to assign the desired background color for each plot.library(gridExtra) p.list = mapply(FUN=function(v,c) { fvc = f[f$V==v & f$C==c, ] g <- ggplot(data=fvc, aes(x=xval, y=yval))+ coord_cartesian(xlim=c(0,8000), ylim=c(0,8000))+ theme(axis.title=element_blank(), axis.text=element_text(size=8)) if (c == v) { g = g + geom_text(aes(x = 4000, y = 4000, label=V1), size = 6, colour="red") } if (c < v) { g = g + geom_text(aes(x = 4000, y = 4000, label=corr), size = 6) + theme(panel.background=element_rect(fill=hcl(180,100,60, alpha=0.3))) } if (c > v) { g = g + geom_point(colour = "darkblue", size = 1.5) + geom_smooth(aes(colour = "red"), method="lm", size = 0.1) + theme(panel.background=element_blank(), panel.grid.major=element_line(colour="grey80", size=0.3)) } if(v != 1) { g = g + theme(axis.text.y=element_blank(), axis.ticks.y=element_blank()) } if(c != max(f$C)) { g = g + theme(axis.text.x=element_blank(), axis.ticks.x=element_blank()) } return(g) }, expand.grid(V=unique(f$V), C=unique(f$C))[[1]], expand.grid(V=unique(f$V), C=unique(f$C))[[2]], SIMPLIFY=FALSE)Now lay out all the plots together and add x-axis and y-axis labels:
grid.arrange( arrangeGrob( arrangeGrob(textGrob("Y vals", rot=90), do.call(arrangeGrob, c(p.list, ncol=7)), widths=c(0.05,0.95)), textGrob("X vals"), heights=c(0.95,0.05)))As you can see in the above plot, there's one remaining issue: The panels in the first column and last row have a smaller plot area, due to the axis labels. This SO answer shows how to equalize the sizes of the plot areas, but you have to list each plot object separately.
Fortunately, we don't have to roll our own function to equalize the size of all the plot areas in a large grid of plots, as
plot_gridfrom thecowplotpackage, can do this. However, I thought the margins between each graph were too large after runningplot_grid. You can tweak this by changing the plot margins when you create the graphs. To do this, you can adjust the plot margins in thereturnline of the plotting function as follows:return(g + theme(plot.margin=unit(c(0,-0.15,0,-0.15), "lines"))) },Then plot using
plot_grid:library(cowplot) grid.arrange( arrangeGrob( arrangeGrob(textGrob("Y vals", rot=90), do.call(plot_grid, c(p.list, align="hv")), widths=c(0.05,0.95)), textGrob("X vals"), heights=c(0.95,0.05)))这篇关于R：使用ggplot2的散点图矩阵，主题因方面面板而异的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
