R/get-places-chronology.R

In inventionate/TimeSpaceAnalysis: Statistical tools for time-space analysis

#' Reshape place chronology data.
#'
#' @param data a data frame, which contains place chronology data.
#' @param id vector, which contains questionnaiere ids.
#' @param weekday vector, which contains a day selection.
#' @param title specify plot title.
#' @param exclude_sleep exclude sleep duration (boolean).
#'
#' @return reshaped data frame for further visualization.
#' @export
get_places_chronology <- function(data, id = "all", weekday = "all", title, exclude_sleep) {

  # Schlaf ggf. ausschließen
  if(exclude_sleep) data <- data %>% filter(activity != "Schlafen")

  # Datensatz aufbereiten
  data_places_chronology <- data %>%
    filter(address != "") %>%
    #  Dauer an einem Ort berechnen
    group_by(questionnaire_id, day, place) %>%
    mutate(place_duration = sum(duration))

  # Anzahl der zu plottenden Fragebögen IDs.
  if (id[[1]] != "all") {
    data_places_chronology <- filter(data_places_chronology, questionnaire_id %in% id)
    # Titel anpassen.
    if ( !is.null(title) ) title <- paste(title, as.character(id))
  }

  # Anzahl der zu plottenden Wochentage.
  if (weekday[[1]] != "all") {
    data_places_chronology <- filter(data_places_chronology, day %in% weekday)
    # Titel anpassen.
    if ( !is.null(title) ) title <- paste(title, as.character(weekday))
  }

  # Datensatz für Gesamtaktivitäten
  data_unique_activities <- data_places_chronology %>%
    ungroup() %>%
    group_by(questionnaire_id, day, place, activity) %>%
    mutate(activity_duration_overall = sum(duration),
           start_time_average = mean(start_time)) %>%
    select(-date, -prop_duration, -duration, -place_duration, -start_time) %>%
    ungroup() %>%
    distinct(.keep_all = TRUE)

  # Datensatz mit besuchten Orten und deren Häufigfkeit erstellen.
  data_unique_places_count <- data_places_chronology %>%
    count(place)

  # Datensatz mit besuchten Orten erstellen.
  data_unique_places <- data_places_chronology %>%
    ungroup() %>%
    select(questionnaire_id, place, lon, lat, place_duration) %>%
    distinct(.keep_all = TRUE)

  # Datensatz mit besuchten Orten erstellen (ohne Berücksichtugung der Dauer).
  data_unique_places_overall <- data_unique_places %>%
    group_by(questionnaire_id, place) %>%
    mutate(place_duration = sum(place_duration)) %>%
    ungroup() %>%
    distinct(.keep_all = TRUE)

  # Daten zurückgeben
  return(list(data_places_chronology = data_places_chronology,
              data_unique_places_count = data_unique_places_count,
              data_unique_places = data_unique_places,
              data_unique_places_overall = data_unique_places_overall,
              data_unique_activities = data_unique_activities,
              title = title))
}