在 R 中的散点图旁边使用因子变量对直方图进行分面
Using Factor Variables to Facet a Histogram Beside a Scatter Plot in R
是否可以在 R 中的 ggplot2 散点图下方或旁边使用因子变量对直方图进行分面(这样直方图是数据的 x 和 y 分量)?
我问这是否可以用一个因子变量来完成的原因是因为分面似乎比解决这个问题的可用包更通用,例如在分面的情况下,可以打开或关闭分面标签,并且分面具有更标准的外观,其中发布可能是一个问题。 (默认情况下,分面也保留使用相同的轴)。
到目前为止,我还不能让它工作,因为似乎所有分面数据都必须具有相同的维数(例如,散点图数据是二维的,直方图数据是一维的)。
我不确定我是否完全理解这个问题,因为因子变量的直方图对我来说不太有意义。另外,如果没有示例数据,我将不得不使用 mtcars
。这样的事情可能会有所帮助。除了 ggplot2
之外,我还使用 grid.extra
以使绘图具有自定义网格排列。
library(gridExtra)
library(ggplot2)
s_plot <- ggplot(data = mtcars, aes(x = hp, y = mpg)) + geom_point()
h1 <- ggplot(data = mtcars, aes(x = hp)) + geom_histogram()
h2 <- ggplot(data = mtcars, aes(x = mpg)) + geom_histogram()
grid.arrange(s_plot, h1, h2, layout_matrix = cbind(c(1, 1), c(2, 3)))
请注意,在 grid.arrange
的 layout_matrix
参数中,我使用 cbind(c(1,1), c(2, 3))
因为我希望第一个图单独在一列中,然后我想要另外两个绘制以占据网格第二列中的各个行。
ggplot(mtcars, aes(wt, mpg)) +
geom_point() + geom_rug()
尼克和布莱恩,
感谢您对代码的帮助。我四处打听,终于找到了我想要的设置。基本上是这样的,如下图。 (希望这对您和将来的其他人有用,因为我认为这是一种常见的图表类型):
rm(list = ls())
library(ggplot2)
library(gridExtra)
df <- data.frame(
x = rnorm(100),
y = rnorm(100)
)
xrange <- range(pretty(df$x))
yrange <- range(pretty(df$y))
p.left <- ggplot(df, aes(y)) +
geom_histogram() +
lims(x = yrange) +
coord_flip() +
theme_light() +
theme(
axis.title.x = element_blank(),
axis.text.x = element_blank(),
axis.ticks.x = element_blank(),
panel.grid.major.x = element_blank(),
plot.margin = unit(c(1, 0.05, 0.05, 1), "lines")
)
p.blank <- ggplot() +
theme_void() +
theme(plot.margin = unit(rep(0, 4), "lines"))
p.main <- ggplot(df, aes(x, y)) +
geom_point() +
lims(x = xrange, y = yrange) +
theme_light() +
theme(
axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
plot.margin = unit(c(1, 1, 0.05, 0.05), "lines")
)
p.bottom <- ggplot(df, aes(x)) +
geom_histogram() +
lims(x = xrange) +
theme_light() +
theme(
axis.title.y = element_blank(),
axis.text.y = element_blank(),
axis.ticks.y = element_blank(),
panel.grid.major.y = element_blank(),
plot.margin = unit(c(0.05, 1, 1, 0.05), "lines")
)
lm <- matrix(1:4, nrow = 2)
grid.arrange(
p.left, p.blank, p.main, p.bottom,
layout_matrix = lm,
widths = c(1, 5),
heights = c(5, 1),
padding = unit(0.1, "line")
)
是否可以在 R 中的 ggplot2 散点图下方或旁边使用因子变量对直方图进行分面(这样直方图是数据的 x 和 y 分量)?
我问这是否可以用一个因子变量来完成的原因是因为分面似乎比解决这个问题的可用包更通用,例如在分面的情况下,可以打开或关闭分面标签,并且分面具有更标准的外观,其中发布可能是一个问题。 (默认情况下,分面也保留使用相同的轴)。
到目前为止,我还不能让它工作,因为似乎所有分面数据都必须具有相同的维数(例如,散点图数据是二维的,直方图数据是一维的)。
我不确定我是否完全理解这个问题,因为因子变量的直方图对我来说不太有意义。另外,如果没有示例数据,我将不得不使用 mtcars
。这样的事情可能会有所帮助。除了 ggplot2
之外,我还使用 grid.extra
以使绘图具有自定义网格排列。
library(gridExtra)
library(ggplot2)
s_plot <- ggplot(data = mtcars, aes(x = hp, y = mpg)) + geom_point()
h1 <- ggplot(data = mtcars, aes(x = hp)) + geom_histogram()
h2 <- ggplot(data = mtcars, aes(x = mpg)) + geom_histogram()
grid.arrange(s_plot, h1, h2, layout_matrix = cbind(c(1, 1), c(2, 3)))
请注意,在 grid.arrange
的 layout_matrix
参数中,我使用 cbind(c(1,1), c(2, 3))
因为我希望第一个图单独在一列中,然后我想要另外两个绘制以占据网格第二列中的各个行。
ggplot(mtcars, aes(wt, mpg)) +
geom_point() + geom_rug()
尼克和布莱恩,
感谢您对代码的帮助。我四处打听,终于找到了我想要的设置。基本上是这样的,如下图。 (希望这对您和将来的其他人有用,因为我认为这是一种常见的图表类型):
rm(list = ls())
library(ggplot2)
library(gridExtra)
df <- data.frame(
x = rnorm(100),
y = rnorm(100)
)
xrange <- range(pretty(df$x))
yrange <- range(pretty(df$y))
p.left <- ggplot(df, aes(y)) +
geom_histogram() +
lims(x = yrange) +
coord_flip() +
theme_light() +
theme(
axis.title.x = element_blank(),
axis.text.x = element_blank(),
axis.ticks.x = element_blank(),
panel.grid.major.x = element_blank(),
plot.margin = unit(c(1, 0.05, 0.05, 1), "lines")
)
p.blank <- ggplot() +
theme_void() +
theme(plot.margin = unit(rep(0, 4), "lines"))
p.main <- ggplot(df, aes(x, y)) +
geom_point() +
lims(x = xrange, y = yrange) +
theme_light() +
theme(
axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
plot.margin = unit(c(1, 1, 0.05, 0.05), "lines")
)
p.bottom <- ggplot(df, aes(x)) +
geom_histogram() +
lims(x = xrange) +
theme_light() +
theme(
axis.title.y = element_blank(),
axis.text.y = element_blank(),
axis.ticks.y = element_blank(),
panel.grid.major.y = element_blank(),
plot.margin = unit(c(0.05, 1, 1, 0.05), "lines")
)
lm <- matrix(1:4, nrow = 2)
grid.arrange(
p.left, p.blank, p.main, p.bottom,
layout_matrix = lm,
widths = c(1, 5),
heights = c(5, 1),
padding = unit(0.1, "line")
)