Я ищу способ динамически обернуть текст метки полосы в вызове 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))