r - ggplot中换行文本的行距

Question

我需要更改包裹的 geom_text 图层中的行距。

library(ggplot2)
library(stringr)
txt = c('one two three', 'four five six', 'seven eight nine')
p = ggplot(data=NULL, aes(x=1:3, y=1:3, label = str_wrap(txt, width = 3))) + 
  geom_text() + expand_limits(x = c(0.5, 3.5), y = c(0.5, 3.5))

但是 theme(text=element_text(lineheight = ...))没有效果，因为 theme仅适用于 non-data components of the plot ，所以我不清楚如何实现这一点。建议？

Answer 1

只需使用 lineheight ，例如:

ggplot(data = NULL, aes(x = 1:3, y = 1:3, 
                        label = str_wrap(txt, width = 3))) + 
  geom_text(lineheight = .5) + 
  expand_limits(x = c(0.5, 3.5), y = c(0.5, 3.5))

(s. ?geom_text)