ggplot2の凡例ごとのテキストの複数の行

Question

私はバープロットの凡例のために非常に長いラベルに対処しようとしています（写真とそれを生成するために使用したコードを参照してください。実際には私のコードは簡潔ではないと思われますが、少なくともそれは機能します（例えば、行の行（2,3））。しかし

glimpse(df) 

Observations: 301 
Variables: 3 
$ V12n  <int> 1, 4, 4, 1, 3, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1... 
$ V12  <fctr> De verwijzer neemt contact op om na te gaa... 
$ METING.f <fctr> Meting 0, Meting 0, Meting 0, Meting 0, Me... 

p = ggplot(df, aes(x = V12n, fill = V12)) + 
geom_bar(aes(y = (..count..)/tapply(..count..,..PANEL..,sum) 
[..PANEL..])) + 
scale_y_continuous(labels = scales::percent) + 
geom_text(aes(y = ((..count..)/sum(..count..)), 
       label = scales::percent((..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..])), 
       stat = "count", vjust = -0.25) + 
facet_grid(.~ METING.f) + 
labs(title = " ", 
    x = "Vraag 12", 
    y = "Percentage") + 
theme(axis.text.x = element_blank(), 
     axis.ticks.x=element_blank()) + 
scale_fill_manual(values = c("greenyellow", "green4", "darkorange1", "red"), 
       name = "Zijn er afspraken gemaakt over het overdragen van de verantwoordelijkheid naar de volgende zorgverlener?\n") 

p 

Answer 1

あなたは長い文字列の自動折り返しのためstr_wrapを使用することができます）に変更して自由に感じるか、ハードコードBRをすることができます文字列に\n（改行文字）を追加します凡例キーの間にスペースを追加するには、legend.key.heightテーマ要素を使用します。ここでは、内蔵irisデータフレームとの例を示します

library(stringr) 
library(tidyverse) 

# Create long labels to be wrapped 
iris$Species = paste(iris$Species, 
        "random text to make the labels much much longer than the original labels") 

ggplot(iris, aes(Sepal.Length, Sepal.Width, colour=str_wrap(Species,20))) + 
    geom_point() + 
    labs(colour="Long title shortened\nwith wrapping") + 
    theme(legend.key.height=unit(2, "cm"))