der folgende Code gibt mir eine Grafik zu zwei Dichten aus. Allerdings ist in der Legende der Verweis als farbiges Quadrat dargestellt. Wie kann ich das zu einem normalen (entsprechend farbigen) Strich bekommen?
Danke für die Hilfe...
P.S. ohne die Daten ist der Code natürlich nicht direkt lauffähig, sorry...
Code: Alles auswählen
daten1 <- read.table("Experiment II - Tagesumsaetze - alle Probanden.csv",
dec = ",", header = FALSE, sep = ";")
daten1 <- data.frame(V1 = c(t(daten1)), stringsAsFactors=FALSE)
daten2 <- read.table("Experiment II - Tagesumsaetze - Ausgangssituation.csv",
dec = ",", header = FALSE)
library(ggplot2)
p <- ggplot() +
geom_density(data=daten1, aes(x = V1, color="Daten1"), alpha=0.5, linetype="solid") +
geom_density(data=daten2, aes(x = V1, color="Daten2"), alpha=0.5, linetype="solid") +
scale_color_manual("",
values=c("Daten1"="dodgerblue3", "Daten2"="orange"),
labels=c("Dichte der neuen Tagesumsätze über alle Probanden", "Dichte der Tagesumsätze im Ausgangsdatensatz"),
guide=guide_legend(override.aes=list(linetype=c("solid","solid"), shape=c(NA,NA)))) +
theme(legend.position=c(0.8, 0.8),
legend.background = element_blank(),
legend.text=element_text(color="grey28"))
print(p)