标签：y标签上多行文本的Facet网格

Question

我在ggplot2中制作了一个plotly图。我正在使用face_grid显示图形，但是y轴很长。因此，并非y轴上的所有单词都可见。有没有一种方法可以将文本分成两行，从而可以看到整个y轴？

majors.sub.HS<- majors.sub[, c(8:10, 66)] 

majors.sub.HS<-melt(majors.sub.HS, id.vars = "Major" )

majors.sub.HS$value[majors.sub.HS$value=="5- Highly Supported"] <- 5
majors.sub.HS$value[majors.sub.HS$value=="1- Not Supported"] <- 1

majors.sub.HS$value<- as.numeric (majors.sub.HS$value)

summary (majors.sub.HS)

p3<-ggplot(majors.sub.HS, aes(x=value, fill=Major)) +
        geom_bar(stat="count", alpha=0.85, color="black")  + facet_grid(variable~Major, scales='free_y')  + 
        theme_light() + scale_fill_brewer(palette="Dark2")
p3 <- ggplotly(p3)
p3

enter image description here