条形图偏移和图层叠加

时间:2017-07-07 08:45:42

标签: r ggplot2 shift geom-bar

大家好的R爱好者

我在制作条形图时遇到问题:

我没有10个声望点,因此我必须使用链接(一个类别中的四个小节)http://matma4u.pl/uploads/imgs/pre_1499074482__wyk2.jpg

一般来说我想要同样的效果

我试图放置四个系列的图表和贴吧但遗憾的是没有成功。

我也相信有更好的方法

为了加快工作,我发送数据

dane <- data.frame(kraj=c(1L,2L,3L,4L,5L,6L),
            rok=c(rep(2010,6),rep(2014,6)),
                Kat1=c(c(1627,1144,1100,1085,983,639),c(1827,1444,1400,1285,1183,1039)),
            Kat2=c(c(1500,1244,1168,1110,1002,863), c(1400,1144,1568,1510,999,800))
)
dane

dane$kraj <- factor(d$kraj, levels=1:6, labels=c("Polska", "Niemcy", "Austria", "Rosja", "Ukraina", "Francja"))

dane$rok <- factor(d$rok,levels=c(2010,2014))
    ggplot(dane,aes(x = kraj, y = Kat1)) + 
  geom_bar(stat = "identity", fill = "darkgreen") +
  geom_text(aes(y = Kat1,label = format(Kat1, big.mark = " ")), vjust = -0.5, hjust = 0.5, cex = 3)+
  geom_bar(aes(y = Kat2), width = 0.5, stat = "identity", fill = "green")+
  geom_text(aes(y = Kat2,label = format(Kat2, big.mark = " ")),colour = "red", vjust = -0.5, hjust = 0.5, cex = 3)

我的代码加入了两年的系列(kat1,kat2),没有标签可见,我不知道如何移动栏杆

我知道图像中的值是不同的,它们是示例

请帮助完成此类图表的代码设计

1 个答案:

答案 0 :(得分:0)

我想得到这样的效果。如何将这些图表放在自己身上

http://matma4u.pl/uploads/imgs/pre_1499074482__wyk2.jpg

数据如上所示