ggplot(data = dta_m) +
  geom_line(mapping = aes(x = reading_time,
                          y = value,
                          colour = variable), 
            show.legend = FALSE) +
  scale_color_manual(values = c("red1", "royalblue3", "aquamarine3",
                                "deeppink3", "red3", "burlywood4")) +
  facet_wrap(facets = ~variable,
             scales = "free",
             ncol = 1,
             labeller = label_parsed) +
  labs(x = "Čas",
       y = "Hodnota",
       title = "Zobrazení základních měřených hodnot") +
  theme_bw()

ggplot(data = vypar) +
  geom_line(mapping = aes(x = reading_time,
                          y = BDdpth), 
            alpha = .35) +
  geom_line(mapping = aes(x = reading_time,
                          y = smooth_dpth), 
            colour = "red", 
            linetype = 2) +
  labs(x = "Čas",
       y = "Hloubka [mm]",
       title = "Vyhlazená a zaznamenaná hloubka výparoměrné nádoby") +
  theme_bw()

ggplot(data = vypar) +
  geom_line(mapping = aes(x = reading_time,
                          y = diff), 
            size = 1) +
  geom_hline(yintercept = 0, 
             colour = "red",
             linetype = 2)+
  labs(x = "Čas",
       y = "Rozdíl hodnot",
       title = "Rozdíl hodnot časové řady") +
  theme_bw() 

ggplot(data = vypar_m) +
  geom_col(mapping = aes(x = datum,
                         y = value,
                         fill = variable),
           colour = "grey25", 
           show.legend = FALSE) +
  scale_fill_manual(values = c("steelblue4", " darkorange"),
                    name = NULL) +
  facet_wrap(facets = ~variable, 
             ncol = 1,
             labeller = as_labeller(x = c(srazka = "Srážka [mm]",
                                          vypar = "Výpar [mm]"))) +
  labs(x = "Čas",
       y = "Hodnota") +
  theme_bw()