Данные, которые я пытаюсь сюжет структурирована следующим образом:ggplot этикетки баров сгруппированных барной стойкой
Year Country Count
1: 2010 St. Vincent and the Grenadines 0
2: 1970 Ukraine 0
3: 1980 Yemen 1
4: 1970 Romania 0
5: 1950 Cyprus 0
6: 1950 Netherlands 0
7: 1980 Mauritania 0
8: 1980 Niger 0
9: 2010 Grenada 2
10: 1970 Israel 6
11: 1990 Suriname 0
12: 1990 Singapore 1
13: 1960 Russia 0
14: 1970 Barbados 0
15: 1950 Panama 0
16: 2010 Mali 3
17: 1980 Greece 11
18: 2010 Venezuela 15
19: 2000 Malawi 9
20: 2000 Jamaica 34
21: 1970 Angola 0
22: 1990 Lebanon 0
23: 1980 Central African Republic 0
24: 1950 United Kingdom 1
25: 2010 Iceland 26
Я создал следующий сгруппированных бар-граф из него:
мне нужно страны подписываются на соответствие своим барам. Даже после консультаций here и here и используя position = position_dodge (width = 0.9), как указано в ссылках, эти метки, похоже, не выровнены. Я также пробовал разные значения для шириной.
Вот код, чтобы создать вышеуказанную сюжет:
> p<-ggplot(x[which(x$Count>0)], aes(Year, Count, label=Country)) + geom_bar(aes(fill = Country), position = "dodge", stat="identity")
> p+ theme(legend.position="none")+scale_x_discrete(limits=unique(x$Year))+geom_text(position = position_dodge(width= 0.9), aes(y=Count+10), angle=90)