我正在寻找一种在facet_wrap
或facet_grid
调用中动态包装条标签文本的方法.我已经找到了一种使用strwrap
来实现这一点的方法,但我需要指定一个width
,以使输出按预期工作.通常,刻面的数量事先不知道,因此这种方法需要我根据数据集和绘图大小反复调整width
参数.是否可以动态指定包裹功能的宽度,或者是否有另一种方法可以更好地标记镶嵌面?
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))