我正在寻找一种将条形标签文本动态包装在facet_wrap
orfacet_grid
调用中的方法。我找到了一种使用 来完成此操作的方法strwrap
,但我需要指定 awidth
以使输出按需要工作。通常预先不知道 facets 的数量,所以这种方法需要我width
根据数据集和绘图大小迭代调整参数。是否可以为 wrap 函数动态指定宽度,或者是否有另一个选项可以更好地标记构面?
library(ggplot2)
df = expand.grid(group=paste(c("Very Very Very Long Group Name "), 1:9),
x=rnorm(5), y=rnorm(5), stringsAsFactors=FALSE)
df$groupwrap = unlist(lapply(strwrap(df$group, width=30, simplify=FALSE), paste,
collapse="\n"))
p = ggplot(df) +
geom_point(aes(x=x, y=y)) +
facet_wrap(~groupwrap)
更新:根据@baptiste 和@thunk 提供的指导,我提出了以下选项。目前,它仅适用于指定的字体系列和大小,但理想情况下,也应该能够使用默认theme
设置。也许有更多ggplot2
经验的人有一些改进建议。
library('grid')
grobs <- ggplotGrob(p)
sum = sum(sapply(grobs$width, function(x) convertWidth(x, "in")))
panels_width = par("din")[1] - sum # inches
df$group = as.factor(df$group)
npanels = nlevels(df$group)
if (class(p$facet)[1] == "wrap") {
cols = n2mfrow(npanels)[1]
} else {
cols = npanels
}
ps = 12
family = "sans"
pad = 0.01 # inches
panel_width = panels_width / cols
char_width = strwidth(levels(df$group)[
which.max(nchar(levels(df$group)))], units="inches", cex=ps / par("ps"),
family=family) / max(nchar(levels(df$group)))
width = floor((panel_width - pad)/ char_width) # characters
df$groupwrap = unlist(lapply(strwrap(df$group, width=width, simplify=FALSE),
paste, collapse="\n"))
ggplot(df) +
geom_point(aes(x=x, y=y)) +
facet_wrap(~groupwrap) +
theme(strip.text.x=element_text(size=ps, family=family))