我正在尝试在ggplot中的geom_bar()
中的不同方面添加不同的行。我能够复制此处发布的解决方案,但无法正常工作。非常感谢您的帮助!
这是我的数据库:
> rbind(head(mlt1), tail(mlt1))
Group variable value
1 USA CGDP 0.639
2 JPN CGDP 0.523
3 CHN CGDP 0.576
4 GER CGDP 0.413
5 OEDCE CGDP 0.504
6 BENELUX CGDP 0.257
91 SWI_POL CRES 0.115
92 SA_NIG CRES 0.033
93 IRAN_PK CRES 0.082
94 SAUDI CRES 0.169
95 SOUTH_AM CRES 0.054
96 CONG_SEN CRES 0.025
我使用以下代码创建绘图:
vlines <- data.frame(varaible=levels(mlt1$variable), yval=c(0.5, 0.3, 0.15, 0.05))
ggplot(mlt1, aes(x=Group, y=value, fill=variable)) +
geom_bar(stat="identity", position="dodge") + coord_flip() +
facet_grid(.~variable) +
theme(legend.position = "none",
axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5)) +
geom_hline(aes(yintercept=yval), data=vlines)
我得到的图是在每个构面上重复5条线,而不是在每个构面上绘制一条线(例如,在构面1中为0.5,在构面2中为0.3,等等):
答案 0 :(得分:0)
更正定义vlines
时的错字。应该说是可变的,而不是可变的。正确的代码是:
vlines <- data.frame(variable=levels(mlt1$variable), yval=c(0.5, 0.3, 0.15, 0.05))
ggplot(mlt1, aes(x=Group, y=value, fill=variable)) +
geom_bar(stat="identity", position="dodge") + coord_flip() +
facet_grid(.~variable) +
theme(legend.position = "none",
axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5)) +
geom_hline(aes(yintercept=yval), data=vlines)