library(lubridate)
library(ggplot2)
library(StreamMetabolism)
library(xts)
library(reshape)
library(scales)
85737_ismaning <- sunrise.set(48.22245456940314,11.664028215191479, "2024/01/01", timezone="MET", num.days=370)
sunrise <- 85737_ismaning$sunrise
sunset <- 85737_ismaning$sunset
sunrise <- strftime(sunrise, format="%R", tz="MET")
sunset <- strftime(sunset, format="%R", tz="MET")
85737_ismaning["sr"] <- as.POSIXct(sunrise, format = "%H:%M")
85737_ismaning["ss"] <- as.POSIXct(sunset, format = "%H:%M")
85737_ismaning["timestamp"] <- align.time(85737_ismaning$sunrise, 60*10)
85737_ismaning <- 85737_ismaning[c("timestamp", "sr", "ss")]
locsrss <- ggplot(85737_ismaning, aes(x=85737_ismaning$timestamp)) + geom_line(aes(y=85737_ismaning$sr)) + geom_line(aes(y=85737_ismaning$ss)) + labs(title = " Sonnenauf-/Sonnenuntergang - 85737_ismaning 2024", x = "Datum", y = "Zeit")
pdf("85737_ismaning_SA_SU.pdf", paper="a4r", width=11)
locsrss
dev.off()
png(filename="85737_ismaning_SA_SU.png", width = 1400, height = 800, units = "px")
locsrss
dev.off()
85737_ismaning["Sonnenaufgang"] <- strftime(85737_ismaning$sr, format="%H:%M")
85737_ismaning["Sonnenuntergang"] <- strftime(85737_ismaning$ss, format="%H:%M")
write.table(85737_ismaning, file="85737_ismaning_SaSu.csv", dec=',', sep=';', row.names=FALSE)