由于我的
问题,我还有R ggplot2 wrap long x-axis labels over multiple rows的问题gsub(" ", "\n", levels())
我尝试将其包含在以下R代码中:
ggplot(ntry[!is.na(ntry$V138), ], aes(x=V138, group=1)) +
geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat="count", fill="#008000", width=0.5) +
geom_text(aes(label = gsub("\\.",",",scales::percent(..prop..)), y= ..prop.. ), stat= "count", vjust = -0.5, color="black", fontface= "bold") +
theme(axis.text= (element_text(face="bold", size="9", color="black")), axis.title = (element_text(face="bold", size= "9", color="black")), panel.background = (element_rect(fill="#FFFFFF")), axis.line = (element_line(color="black"))) +
scale_y_continuous(labels=percent) +
xlab(" ") +
ylab("Prozent") +
ggtitle(paste(attr(ntry, "variable.labels")[grep("^V138$", colnames(ntry))]))
我的目标是将x轴标签分成多行。我尝试了我的代码中的每一点,我能想到或想象它适合的可能性。 我试图整合 gsub 的主要观点是主题(axis.text =(element_text(face )在第三个括号后面。
如果有人能帮助我,那真是太棒了。我没有看到严谨的选择。
谢谢