R/plotcp.R

In unimi-dse/4cf839a7: Cohesion Policy Funds

#'Illustration of Cohesion policy funds
#'
#'Creates a lollipop chart of total funds by country
#'
#'@param data is a data.frame
#' @param aes_string are x and y mapping coordinates
#'@name plotcp
#'@description it creates a horizontal lollipop chart representing the total funds
#'@author Anna Olena Zhab'yak
#'@return a ggplot2 object
#'@importFrom stats predict qnorm
#'@export
 plotcp = function(data, aes_string) {
   plottino <- ggplot2::ggplot(data = cpf::df3, mapping = ggplot2::aes(x = cpf::df3[,1],
                                        y = cpf::df3[,2])) +
     ggplot2::geom_point(color="blue", size=4, alpha=0.6) +
     ggplot2::guides(fill = FALSE) +
     ggplot2::geom_segment( ggplot2::aes(x= cpf::df3[,1], xend = cpf::df3[,1], y=0, yend=cpf::df3[,2]), color="skyblue") +
     ggplot2::theme_light() +
     ggplot2::labs(caption = "(data from https://data.europa.eu/euodp/en/home)") +
     ggplot2::coord_flip()
        return(plottino)
 }