In pik-piam/edgeTrpLib: Helper functions for EDGE transport calculations

Energy Services

Passenger

tot_wbunk <- "ES|Transport|Pass"
tot_wobunk <- "ES|Transport|Pass|w/o bunkers"
items <- c(
    "ES|Transport|Pass|Aviation|International",
    "ES|Transport|Pass|Aviation|Domestic",
    "ES|Transport|Pass|Rail|HSR",
    "ES|Transport|Pass|Rail|non-HSR",
    "ES|Transport|Pass|Road|Bus",
    "ES|Transport|Pass|Road|LDV|Four Wheelers",
    "ES|Transport|Pass|Road|LDV|Two Wheelers",
    "ES|Transport|Pass|Road|Non-Motorized|Walking",
    "ES|Transport|Pass|Road|Non-Motorized|Cycling"
  )
showAreaAndBarPlots(data, items, tot_wbunk,  orderVars = "user")
showAreaAndBarPlots(data, items[2:9], tot_wobunk, orderVars = "user")
showAreaAndBarPlots(data, items, tot_wbunk, fill=TRUE, orderVars = "user")
showAreaAndBarPlots(data, items[2:9], tot_wobunk, fill=TRUE, orderVars = "user")
showLinePlots(data, tot_wbunk)
walk(items, showLinePlots, data = data)

Passenger per Capita

items <- c(
    "ES|Transport|Pass|w/o bunkers pCap",
    "ES|Transport|Pass|Aviation|International pCap",
    "ES|Transport|Pass|Aviation|Domestic pCap",
    "ES|Transport|Pass|Rail|HSR pCap",
    "ES|Transport|Pass|Rail|non-HSR pCap",
    "ES|Transport|Pass|Road|Bus pCap",
    "ES|Transport|Pass|Road|LDV|Four Wheelers pCap",
    "ES|Transport|Pass|Road|LDV|Two Wheelers pCap",
    "ES|Transport|Pass|Road|Non-Motorized|Walking pCap",
    "ES|Transport|Pass|Road|Non-Motorized|Cycling pCap")
showMultiLinePlots(data, items)    
showMultiLinePlotsByVariable(data, items, "GDP|PPP pCap")

LDV Four Wheelers

By vehicle size

tot <- "ES|Transport|Pass|Road|LDV|Four Wheelers"
items <- c(
       "ES|Transport|Pass|Road|LDV|Van",
       "ES|Transport|Pass|Road|LDV|SUV",
       "ES|Transport|Pass|Road|LDV|Large",
       "ES|Transport|Pass|Road|LDV|Medium",
       "ES|Transport|Pass|Road|LDV|Small",
       "ES|Transport|Pass|Road|LDV|Mini"
  )

showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill = TRUE,  orderVars = "user")

By technology

tot <- "ES|Transport|Pass|Road|LDV|Four Wheelers"
items <- c(
       "ES|Transport|Pass|Road|LDV|Four Wheelers|BEV",
       "ES|Transport|Pass|Road|LDV|Four Wheelers|FCEV",
       "ES|Transport|Pass|Road|LDV|Four Wheelers|Hybrid Electric",
       "ES|Transport|Pass|Road|LDV|Four Wheelers|Gases",
       "ES|Transport|Pass|Road|LDV|Four Wheelers|Liquids"
  )

showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")

LDV 2-Wheelers by technology

tot <- "ES|Transport|Pass|Road|LDV|Two Wheelers"
items <- c(
     "ES|Transport|Pass|Road|LDV|Two Wheelers|BEV",
     "ES|Transport|Pass|Road|LDV|Two Wheelers|Liquids" 
  )

showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")

Busses by technology

tot <- "ES|Transport|Pass|Road|Bus"
items <- c(
       "ES|Transport|Pass|Road|Bus|Electric",
       "ES|Transport|Pass|Road|Bus|FCEV",
       "ES|Transport|Pass|Road|Bus|Gases",
       "ES|Transport|Pass|Road|Bus|Liquids" 
  )

showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")

Freight

tot_wbunk <- "ES|Transport|Freight"
tot_wobunk <- "ES|Transport|Freight|w/o bunkers"
items <- c(
      "ES|Transport|Freight|International Shipping",
      "ES|Transport|Freight|Navigation",
      "ES|Transport|Freight|Rail",
      "ES|Transport|Freight|Road"
  )
showAreaAndBarPlots(data, items, tot_wbunk, orderVars = "user")
showAreaAndBarPlots(data, items[2:4], tot_wobunk, orderVars = "user")
showAreaAndBarPlots(data, items, tot_wbunk, fill=TRUE, orderVars = "user")
showAreaAndBarPlots(data, items[2:4], tot_wobunk, fill=TRUE, orderVars = "user")
showLinePlots(data, tot_wbunk)
walk(items, showLinePlots, data=data)

Freight per Capita

items <- c(
      "ES|Transport|Freight|w/o bunkers pCap",
      "ES|Transport|Freight|International Shipping pCap",
      "ES|Transport|Freight|Navigation pCap",
      "ES|Transport|Freight|Rail pCap",
      "ES|Transport|Freight|Road pCap"
    )
showMultiLinePlots(data, items)    
showMultiLinePlotsByVariable(data, items, "GDP|PPP pCap")

Trucks

By vehicle size

tot <- "ES|Transport|Freight|Road"
items <- c(
       "ES|Transport|Freight|Road|Truck (40t)",
       "ES|Transport|Freight|Road|Truck (26t)",
       "ES|Transport|Freight|Road|Truck (18t)",
       "ES|Transport|Freight|Road|Truck (7.5t)",
       "ES|Transport|Freight|Road|Truck (0-3.5t)"
  )

showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")

By technology

tot <-  "ES|Transport|Freight|Road"
items <- c(
       "ES|Transport|Freight|Road|Electric",
       "ES|Transport|Freight|Road|FCEV",
       "ES|Transport|Freight|Road|Gases",
       "ES|Transport|Freight|Road|Liquids"
  )

showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")

pik-piam/edgeTrpLib documentation built on June 7, 2022, 1:29 a.m.