Zeilenabstand für Text in ggplot

Question

Ich versuche, den Abstand zwischen meinen langen Achsenbeschriftungen zu reduzieren. Ich basiere R-Grafiken, die ich verwenden sollte lheight, scheint aber keinen Effekt in ggplot zu haben. Gibt es ein ggplot-Äquivalent?

Toy Beispiel das Problem zeigen:

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

Sie können für eine Kombination von Optionen suchen. Die der lheight am nächsten liegende Einstellung ist wahrscheinlich lineheight in element_text. Ich habe auch die Schrift verkleinert, um Optionen anzuzeigen.

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))