Entschuldigung!
Hier die gesamte Anwendung, vielleicht liegt der Fehler ja auch woanders, schon beim einlesen der Datei und dem verarbeiten der Daten...
Die csv Datei, die eingelesen wird und dem ganzen zugrunde liegt:
http://www.justicar.de/zst.csv
Code: Alles auswählen
library(lubridate)
library(dplyr)
library(ggplot2)
library(scales)
x <- read.csv2(file="zst.csv", header=TRUE, sep=";")
dferweitern <- function(x){
x$Datum <- dmy_hms(x$Datum) #Datum zur weiterverarbeitung formatieren.
x <- cbind(x, wday(x$Datum)) #Wochentag
x <- cbind(x, quarter(x$Datum)) #Viertelstunde als Spalte anhaengen
x <- cbind(x, if_else(x$Fahrzeug == "Zweirad",1,0)) #Zweirad als Spalte anhaengen
x <- cbind(x, if_else(x$Fahrzeug == "PW/Lfw",1,0)) #PW/LFW als Spalte anhaengen
x <- cbind(x, if_else(x$Fahrzeug == "LKW",1,0)) #LKW als Spalte anhaengen
x <- cbind(x, if_else(x$Fahrzeug == "Lastzug",1,0)) #Lastzug als Spalte anhaengen
x <- cbind(x, date(as.Date(x$Datum))) #Datum
rename(x,)
names(x)[1] <- "DatumUhrzeit"
names(x)[2] <- "Geschwindigkeit"
names(x)[3] <- "Richtung"
names(x)[4] <- "Abstand"
names(x)[5] <- "Laengecm"
names(x)[6] <- "Art"
names(x)[7] <- "Wochentag"
names(x)[8] <- "Viertelstunde"
names(x)[9] <- "Zweirad"
names(x)[10] <- "PWLfw"
names(x)[11] <- "LKW"
names(x)[12] <- "Lastzug"
names(x)[13] <- "Datum2"
return (x)
}
x <- dferweitern(x)
r <- "Ankommend"
WGLA <- x %>% group_by(floor_date(x$DatumUhrzeit, unit = "hour")) %>% filter(Richtung %in% r) %>% summarise(Gesamt = n(),Zweirad = sum(Zweirad),PWLfw = sum(PWLfw),LKW = sum(LKW),Lastzug = sum(Lastzug))
names(WGLA)[1] <-"Datum"
ggplot()+
geom_line(data=WGLA, aes(y=Gesamt, x=Datum), color="darkblue", size=1) +
geom_line(data=WGLA, aes(y=Zweirad,x=Datum), color="green", size=1)+
scale_linetype_discrete("Y series", labels = c("Gesamt", "Zweirad"))