Liebster Bernhard,
hab tausend Dank für deine Nachricht. Entschuldige die späte Antwort, hier gab es ein Schicksalsereignis, weswegen ich hier einige Tage nicht reingeschaut habe.
Zu deiner Anmerkung: Du hast absolut Recht, so würde ich R ziemlich sicher nicht lernen können. Jedoch wenn ich ehrlich bin, möchte ich wirklich nur diese eine Abbildung bauen und das Programm gar nicht tiefer lernen. Es ist für mein letztes Paper der Dissertation und da die Abbildung recht komplex ist, wussten wir nicht, welch anderes Programm überhaupt in der Lage ist, eine solche Abb zu generieren.
Mit deiner Hilfe habe ich es jetzt tatsächlich geschafft und ich bin mega happy. Hab EXTREMEN Dank!!!!!
Meine Abbildung hat 8 Parameter (1 Parameter pro Zeile), die sich 11 mal (da 11 Fälle) wiederholen. Das heißt, ich habe 88 Zeilen. Gigantisches Ding, aber tatsächlich geht es.
So klappt es :
Code: Alles auswählen
library(readxl)
d<-read_excel("file.xlsx")
library(ggplot2)
ggplot(d) +
geom_jitter(aes(Tage, WB, shape = factor(WB)),
height = .2, width = 0, fill = "black") +
scale_shape_manual(values = c(1,21,0,2,3,6,13,8,1,21,0,2,3,6,13,8,1,21,0,2,3,6,13,8,1,21,0,2,3,6,13,8,1,21,0,2,3,6,13,8,1,21,0,2,3,6,3,1,21,2,3,13,8,1,21,0,2,3,6,13,8,1,21,0,2,3,6,13,8,1,21,0,2,3,6,13,8,1,21,2,3,6,13,8))+
xlab("time") +
ylab("WB")
theme_minimal()
Ich kam nun noch auf die Bonus-Idee, dass man die Symbole ja bunt einfärben könnte, also dass jedes der 8 Symbole eine andere Farbe hat und diese sich dann auch über die 11 Fälle wiederholen.
Ich hab den scale_colour_manual Befehl analog angewandt und fill=black beom geom_jitter Befehl entfernt, funktioniert leider aber nicht..
Für ein Fall sieht mein Code so aus:
Code: Alles auswählen
library(ggplot2)
ggplot(d) +
geom_jitter(aes(Tage, WB, shape = factor(WB)),
height = .1, width = 0) +
scale_shape_manual(values = c(1,21,0,2,3,6,13,8))+
scale_colour_manual(values = c("red","blue", "green","red","blue","green", "yellow","red"))+
xlab("time") +
ylab("WarningBehavior")
theme_minimal()
Vielleicht könntest du mir hier noch einen Hinweis geben? Das wäre GRENZGENIAL!!!