r - 使用 tableGrob 不正确的左对齐

Question

当我创建一个带有左对齐字符串的 tableGrob 时，最终结果显示字符串最后被剪掉了。
是错误还是我错过了什么？

library(gridExtra)
slices <- c(10, 12, 4, 16, 8) 
lbls <- c("US", "UK", "long string left justified but is clipped at the end", "Germany", "France")
z <- data.frame(lbls,slices)
grid.newpage()
grid.draw(tableGrob(z, core.just="left"))

Answer 1

这是一个错误；包作者显然不理解网格中的文本对齐方式。

你可以像这样修复它，

textii <- function(d, gp=gpar(), name="row-label-",
                   just="center", parse=TRUE){
    x <- switch(just, "center"=0.5, "right"=1, "left"=0)
    parseglobal <- parse
    function(ii, parse=parseglobal){
        lab <- if(parse) parse(text=d[ii]) else d[ii]
        textGrob(x=x, label=lab, just=just, gp=gp, name=paste(name, ii, sep=""))
    }
}

assignInNamespace("textii", textii, "gridExtra")
grid.table(z, core.just="left")

和/或调整 padding.h参数以提供更多空间。叹息，真是一团糟。