Deutsches R-Forum

Code: Alles auswählen

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"))

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"))