使用因子变量在R中的散点图旁边划分直方图

Question

是否可以使用因子变量在R中的ggplot2中的散点图下方或旁边刻划直方图（以使直方图是数据的x和y分量）？

我问是否可以使用因子变量来完成此操作的原因是，分面似乎比解决此问题的可用软件包更普遍，例如在使用分面时，可以打开或关闭分面标签，并且分面具有可能需要关注出版物的更标准外观。 （默认情况下，也将保留相同的轴使用）。

到目前为止，我还无法使它起作用，因为似乎所有分面数据都必须具有相同数量的维度（例如，散点图数据为2D，直方图数据为1D）。

Answer 1

我不确定我是否完全理解这个问题，因为因子变量的直方图对我而言意义不大。 另外，如果没有样本数据，我将只需要使用mtcars 。 这样的事情可能会有所帮助。 我用grid.extra除了ggplot2为了使该地块有一个自定义网格排列。

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)))

需要注意的是，在layout_matrix的说法grid.arrange ，我用cbind(c(1,1), c(2, 3))因为我想第一个情节是全部由自己一列，然后我想其他两个绘制以占据网格第二列中的各个行。

Answer 2

考虑使用geom_rug 。

ggplot(mtcars, aes(wt, mpg)) +
  geom_point() + geom_rug()

Answer 3

尼克和布莱恩，

感谢您对代码的帮助。 我四处询问，并能够获得我想要的设置。 基本上是这样，如下所示。 （希望这可能对您和其他人将来有用，因为我认为这是一种常见的图形类型）：

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")
)