R/italygdpindicator.R

In unimi-dse/e6a75b78: Relationship between import and export as percentage of GDP

#' @title GDP contribution between imports and exports
#' @description relationship between italys imports and exports on gdp, line chart decribes the graphical relationship for the period 2000 to 2018
#' @details transform all block letters to small letters
#'
#' @export


italygdp <- function(){
  #import data----


  sf<-system.file("extdata","IMEXP.csv",package = "mypackage")
  data<-read.csv(sf)

  year<-c(2000:2018)

  #Import
  importdata<- c(as.numeric(data[data[,"Indicator"]== "import" ,][4:22]))
  italyimports<-data.frame(year,importdata)
  p1 <- ggplot2::ggplot(italyimports, ggplot2::aes(year, importdata) ) + ggplot2::geom_line()
  p1

  #Export
  exportdata<- c(as.numeric(data[data[,"Indicator"]=="export",][4:22]))
  italyexports<-data.frame(year,exportdata)
  p2 <- ggplot2::ggplot(italyexports, ggplot2::aes(year, exportdata) ) + ggplot2::geom_line()
  p2

}