Balkendiagramm-Offset und Schicht-Overlays

Question

Hallo alle R-Enthusiasten

Ich habe ein Problem mit einem Balkendiagramm zu tun, die wie folgt aussehen:

Ich habe keine 10 Rufpunkte, so habe ich einen Link verwenden (vier Takte in einer Kategorie) http://matma4u.pl/uploads/imgs/pre_1499074482__wyk2.jpg

Generell würde ich mag die gleiche Wirkung

ich habe versucht, vier Reihe von Diagrammen und Post Gitter zu bringen, aber leider nicht funktioniert.

Ich bin auch davon überzeugt, dass es ein besserer Weg

Für die Beschleunigung meiner Arbeit, die ich Daten senden

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) 

Mein Code verbindet Serie (kat1, kat2) von zwei Jahre, keine Etiketten sind sichtbar, ich weiß nicht, wie man die Bars bewegt

Ich weiß, dass die Werte im Bild unterschiedlich sind, sie sind Beispiele

Bitte mit dem Code-Design eines solchen Plan bekommen möchte

Answer 1

ein solcher Effekt helfen. Wie diese Diagramme setzen auf sich selbst

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

Die Daten werden über