oct5 = read.delim("051015.txt", header=TRUE)
oct6 = read.delim("061015.txt", header=TRUE)
oct7 = read.delim("071015.txt", header=TRUE)
oct8 = read.delim("081015.txt", header=TRUE)
oct9 = read.delim("091015.txt", header=TRUE)

install.packages("ggplot2")
library(ggplot2)

install.packages("lubridate")
library(lubridate)

SolcelleData <- function() {

  oct5plot <- ggplot() +
    geom_line(aes(y = Kipp.Zonen, x = DateAndTime, color = 'Kipp.Zonen'), data = oct5_9) +
    geom_line(aes(y = SolData, x = DateAndTime, color = 'SolData'), data = oct5_9) +
    scale_x_datetime()

  oct5plot + labs(title = "Soldata oct5-9", x = "Time of day", y = "Soldata")

}

SolcelleData()

oct5$DateAndTime <- dmy_hms(oct5$DateAndTime)
oct6$DateAndTime <- dmy_hms(oct6$DateAndTime)
oct7$DateAndTime <- dmy_hms(oct7$DateAndTime)
oct8$DateAndTime <- dmy_hms(oct8$DateAndTime)
oct9$DateAndTime <- dmy_hms(oct9$DateAndTime)

oct5_9 = rbind(oct5, oct6, oct7, oct8, oct9)

PmaxData <- function() {

  Pday <- oct5;

  PmaxPlot <- ggplot() +
    geom_point(aes(y = Pmax.a.Si, x = DateAndTime, color = 'Pmax.a.Si'), data = Pday) +
    geom_point(aes(y = Pmax.459, x = DateAndTime, color = 'Pmax.459'), data = Pday) +
    geom_point(aes(y = Pmax.CIS, x = DateAndTime, color = 'Pmax.CIS'), data = Pday) +
    geom_point(aes(y = Pmax.NESTE, x = DateAndTime, color = 'Pmax.NESTE'), data = Pday) +
    geom_point(aes(y = Pmax.433, x = DateAndTime, color = 'Pmax.433'), data = Pday) +
    geom_point(aes(y = Pmax.422, x = DateAndTime, color = 'Pmax.422'), data = Pday) +
    geom_point(aes(y = Pmax.A10160, x = DateAndTime, color = 'Pmax.A10160'), data = Pday) +
    geom_point(aes(y = Pmax.A10156, x = DateAndTime, color = 'Pmax.A10156'), data = Pday) +
    geom_point(aes(y = Pmax.423, x = DateAndTime, color = 'Pmax.423'), data = Pday) +
    geom_point(aes(y = Pmax.GPV, x = DateAndTime, color = 'Pmax.GPV'), data = Pday) +
    scale_x_datetime()

  PmaxPlot + labs(title = "Pmax", x = "Time of day", y = "W")

}

PmaxData()