für meine Masterarbeit untersuche ich momentan metrologisch Bedingte Erdbewegungen (ja, das ist super spannend).
so sieht der Plot aus den ich mit Excel hinbekomme:
![Bild](https://www.bilder-upload.eu/thumb/85594c-1539098009.png)
Säulen bestehen aus den Daten der versch. Erdbewegungen.
Die Linien sind gemittelte Jahreswerte aus Niederschlag (NJ) und Temp (TJ), auf der Sekundärachse.
Die Temp. wurde mit 100 multipliziert damit sie auf der höhe der Niederschlagskurve ist.
Das sind die Daten:
Code: Alles auswählen
Jahr Rutschung Felssturz Steinschlag NJ TJ TJ*100
01.01.1980 5 8 10 879,70 8,07 806,54157
01.01.1981 2 15 25 1037,46 8,50 849,51221
01.01.1982 12 8 3 847,96 9,09 909,14498
01.01.1983 8 1 1 804,23 9,20 920,22296
01.01.1984 3 1 3 961,34 8,28 828,49627
01.01.1985 12 8 7 696,38 7,71 770,65022
01.01.1986 4 4 16 889,58 8,29 828,66979
01.01.1987 8 25 1 922,25 7,91 791,11279
01.01.1988 19 8 6 910,32 9,35 935,21287
01.01.1989 14 2 2 765,48 9,67 966,57637
Leider stoße ich mit Excel hier an die Grenzen, ich hab alles mögliche ausprobiert am ende sieht es so aus:
![Bild](https://www.bilder-upload.eu/thumb/b960cb-1539098639.png)
blöde //()!"§&!
Ich experimentiere schon seit einigen Tagen mit R rum, komm aber leider nicht klar
![Sad :(](./images/smilies/icon_e_sad.gif)
soweit bin ich gekommen:
Code: Alles auswählen
dfm <-melt(datei1[,c('Jahr', 'Rutschung', 'Felssturz', 'Steinschlag')], id.vars = 1)
ggplot(dfm,aes(x =Jahr,y = value)) +
geom_bar(aes(fill = variable),stat = "identity",position = "dodge") +
ylab("Anzahl der Bewegungen")+
ggtitle("Titel")+
theme(legend.position = "top")+
scale_fill_manual(legend_title,values=c("orange","red","Blue"))+
geom_line(data=NJ, aes(x=Jahr,y=NJ))+
geom_line(data=TJ_80_90, aes(x=Jahr,y=TJ))
Sekundärachse oder die zweite Achsenskalierung bekomme ich schon nicht mehr hin.
Ich würde das ganze gerne ohne melting hinbekommen und bei bedarf nach und nach neue Daten hinzufügen plotten(Eis-,Frost- und Heißetage, Dürreperioden uvm.).
hab auch schon mit der
Code: Alles auswählen
plot(ggplot(geom_bar...)
par(new = TRUE)
plot(ggplot(geom_line...)
Bin für alle brauchbaren Tipps dankbar
Viele Grüße
Y.