2

我有一个问题，即用 cowplot:::plot_grid 绘制的图将左侧图的图例削减了几毫米。图例大小已经处于可读性的绝对最小值，并且两个图之间的空白是可以的（所以它不是我想要操纵的边距）。但是，即使使用 justification="left"，图例也比绘图面板大一点，然后在

plot_grid(px, p2, align="h", nrow=1, rel_widths = c(1,0.675))

ggsave("plot.tiff", width=8.27, height=11.69/4)

在此处输入图像描述

左边还有足够的空白。我知道图例可以在情节内自由移动，但是如果将图例绘制在情节之外，是否可以将图例从其对齐锚点移动几厘米？

这个例子确实重现了这个问题，并且包含了我现实生活中的例子特征的许多论点（例如，以两种不同的宽度绘制网格），但我不得不放大图例的字体大小，并且这个例子没有额外的空白在传说的左边。

bp <- ggplot(data=PlantGrowth, aes(x=group, y=weight, fill=group)) +
  geom_boxplot() + theme_bw() +
  theme(legend.text = element_text(size=20), # IRL the font size is much smaller
        axis.text.y=element_blank(),
        legend.key.size = unit(0.2, "cm"),
        legend.position = "bottom",
        legend.justification="left")+
  guides(fill=guide_legend(nrow=3)) +
  coord_flip() 
bp
bp1 <- bp + scale_fill_discrete("",labels=c("reallyreallyreallylongstring", 
                                         "evenlongerstring", 
                                         "youcannotbelievehowlongthisstringis!!11!"))


library(cowplot)
plot_grid(bp1, bp, align="h", nrow=1, rel_widths = c(1,0.675))
ggsave("test.tiff", width=8.27, height=11.69/4)

目前，我的解决方法是打印单个图并使用 illustrator 对其进行操作，这是我想避免的。

4

2 回答 2

4

你可以试试

# get legend
legend_p1 <- get_legend(bp1)
legend_p2 <- get_legend(bp)

# remove legend
bp1_wl <- bp1 + theme(legend.position='none')
bp_wl <- bp + theme(legend.position='none')

# plot
plot_grid(plot_grid(bp1_wl, bp_wl, align="h", rel_widths = c(1,0.675)),
          plot_grid(legend_p1,legend_p2, rel_widths = c(1,0.675)), nrow=2, rel_heights = c(1,0.4))

在此处输入图像描述

于 2018-05-09T12:25:41.807 回答
1

这可能看起来像一个cowplot bug，但事实并非如此，并且cowplot 主题不会发生这种情况。问题在于theme_bw()：第二个图有一个白色背景，绘制在第一个图的顶部。如果您删除白色背景，则图例可能会从一个绘图重叠到另一个绘图。

library(ggplot2)
bp <- ggplot(data=PlantGrowth, aes(x=group, y=weight, fill=group)) +
  geom_boxplot() + theme_bw() +
  theme(legend.text = element_text(size=20), # IRL the font size is much smaller
        axis.text.y=element_blank(),
        legend.key.size = unit(0.2, "cm"),
        legend.position = "bottom",
        legend.justification="left",
        # here we're removing plot background, legend background,
        # and legend box background, to be sure
        plot.background = element_blank(),
        legend.background = element_blank(),
        legend.box.background = element_blank())+
  guides(fill=guide_legend(nrow=3)) +
  coord_flip() 
bp
bp1 <- bp + scale_fill_discrete("",labels=c("reallyreallyreallylongstring", 
                                            "evenlongerstring", 
                                            "youcannotbelievehowlongthisstringis!!11!"))


library(cowplot)
plot_grid(bp1, bp, align="h", nrow=1, rel_widths = c(1,0.675))

在此处输入图像描述

（我目前正在运行 ggplot2 的开发版本，我将不得不看看为什么图例左侧会出现图例，但这是一个单独的问题。）

于 2018-05-09T15:49:51.903 回答