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

Final Energy Demand

Final Energy by carrier

Total

tot <- "FE|Transport"
items <- c(
  "FE|Transport|Electricity",
  "FE|Transport|Hydrogen",
  "FE|Transport|Gases",
  "FE|Transport|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Total w/o bunkers

tot <- "FE|Transport|w/o bunkers"
items <- c(
  "FE|Transport|w/o bunkers|Electricity",
  "FE|Transport|w/o bunkers|Hydrogen",
  "FE|Transport|w/o bunkers|Gases",
  "FE|Transport|w/o bunkers|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Passenger

tot <- "FE|Transport|Pass"
items <- c(
  "FE|Transport|Pass|Electricity",
  "FE|Transport|Pass|Hydrogen",
  "FE|Transport|Pass|Gases",
  "FE|Transport|Pass|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Passenger w/o bunkers

tot <- "FE|Transport|Pass|w/o bunkers"
items <- c(
  "FE|Transport|Pass|w/o bunkers|Electricity",
  "FE|Transport|Pass|w/o bunkers|Hydrogen",
  "FE|Transport|Pass|w/o bunkers|Gases",
  "FE|Transport|Pass|w/o bunkers|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Passenger LDV Four Wheelers

tot <- "FE|Transport|Pass|Road|LDV|Four Wheelers"
items <- c(
  "FE|Transport|Pass|Road|LDV|Four Wheelers|Electricity",
  "FE|Transport|Pass|Road|LDV|Four Wheelers|Hydrogen",
  "FE|Transport|Pass|Road|LDV|Four Wheelers|Gases",
  "FE|Transport|Pass|Road|LDV|Four Wheelers|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Passenger LDV Two Wheelers

tot <- "FE|Transport|Pass|Road|LDV|Two Wheelers"
items <- c(
  "FE|Transport|Pass|Road|LDV|Two Wheelers|Electricity",
  "FE|Transport|Pass|Road|LDV|Two Wheelers|Liquids")
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Passenger Bus

tot <- "FE|Transport|Pass|Road|Bus"
items <- c(
  "FE|Transport|Pass|Road|Bus|Electricity",
  "FE|Transport|Pass|Road|Bus|Hydrogen",
  "FE|Transport|Pass|Road|Bus|Gases",
  "FE|Transport|Pass|Road|Bus|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Passenger Rail (non-HSR)

tot <- "FE|Transport|Pass|Rail|non-HSR"
items <- c(
  "FE|Transport|Pass|Rail|non-HSR|Electricity",
  "FE|Transport|Pass|Rail|non-HSR|Liquids")
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Freight

tot <- "FE|Transport|Freight"
items <- c(
  "FE|Transport|Freight|Electricity",
  "FE|Transport|Freight|Hydrogen",
  "FE|Transport|Freight|Gases",
  "FE|Transport|Freight|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Freight w/o bunkers

tot <- "FE|Transport|Freight|w/o bunkers"
items <- c(
  "FE|Transport|Freight|w/o bunkers|Electricity",
  "FE|Transport|Freight|w/o bunkers|Hydrogen",
  "FE|Transport|Freight|w/o bunkers|Gases",
  "FE|Transport|Freight|w/o bunkers|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Freight Trucks

tot <- "FE|Transport|Freight|Road"
items <- c(
  "FE|Transport|Freight|Road|Electricity",
  "FE|Transport|Freight|Road|Hydrogen",
  "FE|Transport|Freight|Road|Gases",
  "FE|Transport|Freight|Road|Liquids"
  )
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Freight Rail

tot <- "FE|Transport|Freight|Rail"
items <- c(
  "FE|Transport|Freight|Rail|Electricity",
  "FE|Transport|Freight|Rail|Liquids")
showAreaAndBarPlots(data, items, tot, orderVars = "user")
showAreaAndBarPlots(data, items, tot, fill=TRUE, orderVars = "user")
showLinePlots(data, tot)
walk(items, showLinePlots, data=data)

Freight Navigation

tot <- "FE|Transport|Freight|Navigation"
showLinePlots(data, tot)

Freight Shipping International

tot <- "FE|Transport|Freight|International Shipping"
showLinePlots(data, tot)

Final Energy by transport modes

Passenger

tot_wbunk <- "FE|Transport|Pass"
tot_wobunk <- "FE|Transport|Pass|w/o bunkers"
items <- c(
    "FE|Transport|Pass|Aviation|International",
    "FE|Transport|Pass|Aviation|Domestic",
    "FE|Transport|Pass|Rail|HSR",
    "FE|Transport|Pass|Rail|non-HSR",
    "FE|Transport|Pass|Road|Bus",
    "FE|Transport|Pass|Road|LDV"
  )
showAreaAndBarPlots(data, items, tot_wbunk, orderVars = "user")
showAreaAndBarPlots(data, items[2:6], tot_wobunk, orderVars = "user")
showAreaAndBarPlots(data, items, tot_wbunk, fill=TRUE, orderVars = "user")
showAreaAndBarPlots(data, items[2:6], tot_wobunk, fill=TRUE, orderVars = "user")

Freight

tot_wbunk <- "FE|Transport|Freight"
tot_wobunk <- "FE|Transport|Freight|w/o bunkers"
items <- c(
      "FE|Transport|Freight|International Shipping",
      "FE|Transport|Freight|Navigation",
      "FE|Transport|Freight|Rail",
      "FE|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")

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