小编E_H*_*E_H的帖子

我正在绘制一个水平堆叠条形图。我的金条的标签很长。有没有办法可以将它们放在相应的栏上方？否则，我的页面空间没有得到很好的利用，绘图会显示得很小。这是我的代码和情节：

我想将“Zivildienst”和“Katastropenschutz”放在栏上方，而不是它们的左侧。

data3 <- data.frame(System=rep(c(\'Zivildienst\', \'Katastrophenschutz\'), each=5),\n                    Einstellung=rep(c(\'Sehr unwahrscheinich\',\'Eher unwahrscheinlich\',\'Weiss nicht\',\'Eher wahrscheinlich\',\'Sehr wahrscheinlich\'), times=2),\n                    Anzahl=c(131, 142, 283, 421, 981, 54, 140, 490, 418, 856))\nlevel_order <- c(\'Zivildienst\', \'Katastrophenschutz\') \n\n\n# Get the levels for "Einstellung" in the required order\ndata3$Einstellung = factor(data3$Einstellung, levels = c(\'Weiss nicht\',\'Sehr unwahrscheinich\',\'Eher unwahrscheinlich\',\'Eher wahrscheinlich\',\'Sehr wahrscheinlich\'))\ndata3 = arrange(data3, System, desc(Einstellung))\n\n# Calculate the percentages\ndata3 = ddply(data3, .(System), transform, percent = Anzahl/sum(Anzahl) * 100)\n\n# Format the labels and calculate their positions\ndata3 = ddply(data3, .(System), transform, pos = (cumsum(Anzahl) …