r - ggplot中文本的行高间距

Question

我正在尝试减少长轴标签之间的空间。我基于 R 图形我会使用 lheight ，但似乎在 ggplot 中没有影响。有 ggplot 等价物吗？

显示问题的玩具示例:

library("tidyverse")
df0 <- mtcars %>% 
  rownames_to_column("car") %>%
  mutate(car = str_wrap(car, width = 10))

ggplot(data = df0, aes(x = car, y = mpg)) +
  geom_bar(stat = "identity") +
  coord_flip()

# has no effect
par(lheight = 0.5)
ggplot(data = df0, aes(x = car, y = mpg)) +
  geom_bar(stat = "identity") +
  coord_flip()

Answer 1

您可能正在寻找多种选择。最接近lheight很可能设置 lineheight在 element_text .我还把字体变小了，只是为了显示选项。

ggplot(data = df0, aes(x = car, y = mpg)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  theme(axis.text.y = element_text(lineheight = 0.5, 
                                   size = 6))