Question

我一直试图关注如何为多个ggplot2制作共享图例this vignette。给定的示例完美地工作，但在我的情况下，我使用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

谢谢大家。

Answer 1

ggplot2似乎是根据原始字符串计算字符串宽度，而不是应该由TeX返回的框大小。我猜测它是在指南代码中过早（即不是在绘图时）完成的计算。作为一种解决方法，您可以通过显式调用getLatexStrWidth在gtable中手动编辑相关宽度。注意我还在序言中添加了一个包，否则默认字体不会显示粗体小写。

require(ggplot2)
require(grid)
require(gridExtra)
require(tikzDevice)

setTikzDefaults(overwrite = TRUE)
preamble <- options("tikzLatexPackages") 
options("tikzLatexPackages" = c(preamble$tikzLatexPackages, "\\usepackage{bold-extra}"))

tikz(file = "./tmp.tex", width = 5.6, height = 2.2, standAlone = TRUE )
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}}")

p <- ggplot(mpg2, aes(x=cty, colour=cyl, y = hwy)) + 
  geom_point() +
  theme(legend.position='none')



leg <- cowplot::get_legend(p + theme(legend.position = "top"))

ids <- grep("label",leg$grobs[[1]]$layout$name)
pos <- leg$grobs[[1]]$layout$l[ids]
wl <- sapply(leg$grobs[[1]][["grobs"]][ids], function(g) getLatexStrWidth(g[["label"]]))

leg$grobs[[1]][["widths"]][pos] <- unit(wl, "pt")

grid.arrange(p, top=leg)

dev.off()

Answer 2

也许更容易引入一个不会影响字符串宽度的临时标记，并在R和乳胶步骤之间对tex文件进行后处理，

levels(mpg2$cyl) <- c("$four$",
                      "$five$",
                      "$six$",
                      "$seven$",
                      "$eight$")

[...]

tmp <- readLines("tmp.tex")
gs <- gsub("\\$(four|five|six|seven|eight)\\$", "\\\\textsc{\\1}", tmp, perl=TRUE)
cat(paste(gs, collapse="\n"), file="tmp2.tex")

grid_plot + tikzDevice +带乳胶标记的共享图例

2 个答案: