inst/extdata/Altensteig_Fichte_2019_Script.R

In Sumpfohreule/BodenfeuchteGraphen: Plotting of specific soil humidity data of the FVA

########################################################################################################################
plot_name <- "Altensteig"
sub_plot_name <- "Fichte"
data_table <- loadCorrectedAndRawData(level2_path, plot_name, sub_plot_name)



########################################################################################################################
# Dropping faulty data
filtered_data <- data_table %>%
    filter(!(Datum >= as.POSIXct("2020-01-01", tz = "UTC")
           & variable == "60_FDR_Y"))

########################################################################################################################
# Create Graphs and manually fix data from them
out_path <- file.path("graphs")
raw_graph_path <- file.path(out_path, plot_name, sub_plot_name)
# createCombiGraphs(as.data.table(filtered_data), raw_graph_path)
# createRawGraphs(as.data.table(filtered_data), raw_graph_path)


# Drop positions
createCompletePlot(filtered_data,
    selected_variable = "15",
    target_years = target_years,
    out_path,
    limits = global_limits,
    file_extension = global_file_type,
    moving_average = moving_average)

createCompletePlot(filtered_data,
    selected_variable = "30",
    target_years = target_years,
    out_path,
    limits = global_limits,
    file_extension = global_file_type,
    moving_average = moving_average)

createCompletePlot(filtered_data,
    selected_variable = "60",
    target_years = target_years,
    out_path,
    limits = global_limits,
    file_extension = global_file_type,
    moving_average = moving_average)