Re: Grafische Analyse von Aktivitäten
Verfasst: Do Mär 11, 2021 2:29 pm
Hallo liebe Leute,
ich versuche derzeit die reine Nachtaktivität für einen Standort zu bestimmen. Also der Zeitraum von 00:00 bis 23:59. Dabei möchte ich nachweisen, dass ein bestimmtes Tier eben nicht am Tag aktiv ist und möchte herausfinden, zu welchen Zeiten in der Nacht es am aktivsten ist. Ich habe hier jetzt immer geom_line() verwendet, weil bei geom_smooth() Mittelwwerte gebildet werden und die Ergebnisse nicht mehr stimmen.
An Bernhard:
Du hattest doch damals für die Mondphase zum Beispiel die Anzahl der Auslösung quasi "addiert". Wie genau hast Du das angestellt?
Ich muss die Y-Achse auch anders beschriften. Es gibt ja keine halben Tiere
Das Diagramm habe ich auch bereits erstellt aber ehrlicherweise sieht das ziemlich albern aus. An sich zeigt es genau das, was es zeigen soll. Nachts Aktivität - tagsüber eben nicht. Nur ich bekomme es leider nicht schöner hin.
Hier mal die Codes:
ich versuche derzeit die reine Nachtaktivität für einen Standort zu bestimmen. Also der Zeitraum von 00:00 bis 23:59. Dabei möchte ich nachweisen, dass ein bestimmtes Tier eben nicht am Tag aktiv ist und möchte herausfinden, zu welchen Zeiten in der Nacht es am aktivsten ist. Ich habe hier jetzt immer geom_line() verwendet, weil bei geom_smooth() Mittelwwerte gebildet werden und die Ergebnisse nicht mehr stimmen.
An Bernhard:
Du hattest doch damals für die Mondphase zum Beispiel die Anzahl der Auslösung quasi "addiert". Wie genau hast Du das angestellt?
Ich muss die Y-Achse auch anders beschriften. Es gibt ja keine halben Tiere
Das Diagramm habe ich auch bereits erstellt aber ehrlicherweise sieht das ziemlich albern aus. An sich zeigt es genau das, was es zeigen soll. Nachts Aktivität - tagsüber eben nicht. Nur ich bekomme es leider nicht schöner hin.
Hier mal die Codes:
Code: Alles auswählen
setwd("")
library(ggplot2)
library(lubridate)
list.files()
d <- read.csv("BeispielDatei2", header=TRUE,sep = ",")
summary(d)
d$Photo.date = as.Date(d$Photo.Date)
d$Photo.time = hms(d$Photo.time)
SIGS <- subset(d, Species == "capreolus")
ggplot(SIGS)+
geom_line(aes(x = Photo.time@hour + Photo.time@minute/60, y = Number.of.Animals) +
scale_x_continuous(breaks = seq(0,24,4), name = "Uhrzeit", labels = c( "0:00", "4:00", "8:00", "12:00", "16:00", "20:00", "23:59"))+
xlab("Datum")
