小编Luc*_*ler的帖子

我有一个带有条带标签的多面图，由于多面的宽度而被剪裁 - 我一直在 Inkscape 中手动删除此剪辑，但想在 R 中执行此操作。请参阅这个可重复的小示例（图形宽度是非-）可协商，需要导出为 .eps 文件）：

library(tidyverse)

# Build data frame
df <- data.frame(treatment = factor(c(rep("A small label", 5), rep("A slightly too long label", 5))),
             var1 = c(1, 4, 5, 7, 2, 8, 9, 1, 4, 7),
             var2 = c(2, 8, 11, 13, 4, 10, 11, 2, 6, 10))

# Plot scatter graph with faceting by 'treatment'
p <- ggplot(df, aes(x = var1, y = var2)) + 
  geom_point() + 
  facet_wrap(treatment ~ ., ncol = 2)

# Save …