我一直在尝试关注如何为多个 ggplot2 制作共享图例。给定的示例按原样完美运行,但就我而言,我正在使用 tikzDevice 导出tikzpicture
环境。主要问题似乎是图例键的宽度未被正确捕获grid_plot
。
我想出了一个重现问题的最小 R 代码:
require(ggplot2)
require(grid)
require(gridExtra)
require(cowplot)
require(tikzDevice)
tikz(file = "./tmp.tex", width = 5.6, height = 2.2, standAlone = T )
mpg2 <- mpg
mpg2$cyl = as.factor(mpg2$cyl)
levels(mpg2$cyl) <- c("\\textbf{\\textsc{four}}",
"\\textbf{\\textsc{five}}",
"\\textbf{\\textsc{six}}",
"\\textbf{\\textsc{seven}}",
"\\textbf{\\textsc{eight}}")
plot.mpg <- ggplot(mpg2, aes(x=cty, colour=cyl, y = hwy)) +
geom_point() +
theme(legend.position='none')
legend <- get_legend(plot.mpg + theme(legend.position = "top"))
print(plot_grid(legend,
plot.mpg, nrow=2, ncol=1,align='h',
rel_heights = c(.1, 1)))
dev.off()
生成的 PDF 文件(编译 tmp.tex 后)如下所示:
我们可以观察到,第一个图例键(四)仅部分显示,图例键(八)完全不可见。我尝试更改tikz
命令宽度无济于事。
另外,我怀疑问题背后的原因是 grid_plot 命令错误地测量了图例键的长度,如果它们包含乳胶标记。为了表明这是问题的原因,请考虑将 mpg2$cyl 的级别更改为以下内容:
levels(mpg2$cyl) <- c("four",
"five",
"six",
"seven",
"eight")
这应该会产生以下带有完美图例的图:
请注意,上面的示例只是为了重现问题,而不是我想要做的。相反,我有四个图,我试图为它们使用一个共享的公共图例。
任何人都可以告诉我如何解决包含乳胶标记的图例问题?
顺便说一句,这是我的sessionInfo()
:
R version 3.3.2 (2016-10-31)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X Yosemite 10.10.5
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] grid stats graphics grDevices utils datasets methods
[8] base
other attached packages:
[1] tikzDevice_0.10-1 dplyr_0.5.0 gdata_2.17.0 cowplot_0.7.0
[5] gridExtra_2.2.1 ggplot2_2.2.0
loaded via a namespace (and not attached):
[1] gtools_3.5.0 colorspace_1.2-6 DBI_0.5 RColorBrewer_1.1-2
[5] plyr_1.8.4 munsell_0.4.3 gtable_0.2.0 labeling_0.3
[9] Rcpp_0.12.6 scales_0.4.1 filehash_2.3 digest_0.6.10
[13] tools_3.3.2 magrittr_1.5 lazyeval_0.2.0 tibble_1.1
[17] assertthat_0.1 R6_2.1.3
谢谢你们。