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