R/plot_trend.R

In statistikat/coronar: corona austria

globalVariables(c(
  "datum", "freq"
))

#' Zeitlicher Verlauf der landesweiten bestätigten Fälle
#'
#' @export
#' @param trend Daten für die Visualisierung
#' @examples
#' plot_trend()
plot_trend <- function(trend = data_corona()$trend) {
  ggplot2::ggplot(trend,aes(datum, freq)) + 
    ggplot2::geom_line() +
    ggplot2::xlab("") +
    ggplot2::ylab("Best\u00e4tigte F\u00e4lle") +
    scale_y_continuous(trans = "log",
                       breaks = c(2, 5, 10, 20, 40, 100, 200, 500, 
                                  1000, 2000, 5000)) +
    theme_bw()
}