R/plot_pubs_by_year.R

In KWB-R/kwb.endnote: Helper Functions for Analysing KWB Endnote Library (Exported as .xml)

#' Plot Publications By Year
#'
#' @param refs_df reference dataframe as retrieved by
#' kwb.endnote::create_references_df()
#' @return plot with publications by year
#' @export
#' @import ggplot2
#' @importFrom stringr str_trim
#' @examples
#' endnote_list <- kwb.endnote::create_endnote_list()
#' refs_df <- kwb.endnote::create_references_df(endnote_list)
#' plot_pubs_by_year(refs_df)
#'
plot_pubs_by_year <- function(refs_df) {
  refs_df %>%
    dplyr::mutate(year = stringr::str_trim(.data$year)) %>%
    dplyr::count(.data$ref_type_name, .data$year) %>%
    ggplot2::ggplot(ggplot2::aes(
      x = .data$year,
      y = .data$n,
      fill = .data$ref_type_name
    )) +
    ggplot2::geom_col() +
    ggplot2::theme_minimal() +
    ggplot2::labs(
      x = "Year",
      y = "Number Of Publications",
      fill = "Publication Type",
      title = "Publications By Year"
    ) +
    ggplot2::coord_flip() +
    ggplot2::theme(legend.position = "right")
}