r - ggplot2构面边距

Question

我facet_wrap用来绘制一些数据。这是一个例子：

library (ggplot2)
library (reshape)

# generate some dummy data
x = seq(0,1,0.05)
precision = sqrt(x)
recall    = 1 - precision
fmeasure  = 2 * (precision * recall) / (precision + recall)

# prepare it for plotting
df = data.frame(x=x, precision=precision, recall=recall, fmeasure=fmeasure)
df = melt(df, id.vars=c(x))

# plot it
p = ggplot(df, aes(x=x, y=value, group=variable))
p = p + geom_line() + facet_wrap(~variable, ncol=3)
p = p + coord_cartesian(xlim=c(0,1), ylim=c(0,1)) # second plot is without this line
print (p)

图 1：绘制上述代码。

但是，您在图 1 中看到的是后续分面的第一个和最后一个标签重叠。这可以通过增加刻面之间的空间来解决。其他选项是删除xlim和ylim范围，如图 2 所示，但这会在构面本身中保留不必要的空间。

图 2：p = p + coord_cartesian(xlim=c(0,1), ylim=c(0,1))删除线的绘图。

我试图增加刻面之间的空间，但到目前为止我一直无法做到。你有什么建议吗？

我使用 ggplot2 版本 0.9.1 。

Answer 1

对于 0.9.1 使用：p + opts(panel.margin = unit(2, "lines"))但是你有很多额外的空白并且 IMO 失去了一些刻面的效果（注意 0.9.2 现在使用theme而不是opts）

多年来，ggplot2 API 发生了变化，截至 2018 年 2 月 1 日，这是更新的解决方案：

p + theme(panel.spacing = unit(2, "lines"))

Answer 2

基于 Tyler 的回答，您可以使用strip.texttheme 参数进一步将构面面板压缩在一起，如下所示：

library(tidyverse)

mpgTidy <- pivot_longer(mpg, c(cty, hwy), names_to="mpg_categ", values_to="mpg")

g <- ggplot(mpgTidy, aes(x=displ, y=mpg, color=factor(cyl))) +
  facet_wrap(~ mpg_categ) +
  geom_point()

g

g + theme(strip.text=element_text(margin=margin()),
          panel.spacing=unit(0, "lines"))

当分面标签很长或包含换行符并且分面图既有行又有列时，这可能很有用。