File:Finnish road traffic emissions by Liisa.zip

# This is code Op_en7925/preprocess on page [[:File:Finnish road traffic emissions by Liisa.zip]]
library(OpasnetUtils)

dat <- opasnet.csv(
  "/3/31/Finnish_road_traffic_emissions_by_Liisa.zip",
  wiki="opasnet_en", unzip="kunnat2017.csv",
  header=FALSE,sep=",",dec=",",encoding="UTF-8")
dat[[1]] <- NULL
colnames(dat) <- c(
  "Municipality","Source","CO","HC","NOx","PM","CH4","N2O","SO2",
  "CO2","CO2eq","Consumption","Energy","Mileage")
# Units: CO [t], HC [t], NOx [t], PM [t], CH4 [t], N2O [t], SO2 [t],
# CO2 [t], CO2 ekv. [t], kulutus [t], energia [TJ], suorite [Mkm]

# Remove extra rows
dat <- dat[-(1:10),]
dat <- dat[dat$Municipality!="" & !grepl("yhteens",tolower(dat$Source)),]
for(i in 3:14) {
  dat[[i]] <- as.numeric(as.character(gsub(",",".", dat[[i]])))
}

#> levels(dat$Source)
#[1] ""                     "HA = henkilöautot"    "HA kadut"            
#[4] "HA tiet"              "KA = kuorma-autot"    "KA kadut"            
#[7] "KA tiet"              "LA = linja-autot"     "LA kadut "           
#[10] "LA tiet "             "Moottoripyörät"       "Mopoautot"           
#[13] "Mopot"                "PA = pakettiautot"    "PA kadut"            
#[16] "PA tiet"              "Tieliikenne yhteensä" "YHTEENSÄ kadut "     
#[19] "YHTEENSÄ tiet"       

dat$Location <- dat$Source
levels(dat$Location)[grepl("kadut",levels(dat$Location))] <- "street"
levels(dat$Location)[grepl("tiet",levels(dat$Location))] <- "road"
levels(dat$Location)[!levels(dat$Location) %in% c("street","road")] <- "unknown"

dat$Vehicle <- dat$Source
levels(dat$Vehicle)[grepl("HA",levels(dat$Vehicle))] <- "private cars"
levels(dat$Vehicle)[grepl("KA",levels(dat$Vehicle))] <- "trucks"
levels(dat$Vehicle)[grepl("LA",levels(dat$Vehicle))] <- "buses"
levels(dat$Vehicle)[grepl("PA",levels(dat$Vehicle))] <- "vans"
levels(dat$Vehicle)[levels(dat$Vehicle)=="Moottoripyörät"] <- "motorcycles"
levels(dat$Vehicle)[levels(dat$Vehicle)=="Mopoautot"] <- "microcars"
levels(dat$Vehicle)[levels(dat$Vehicle)=="Mopot"] <- "mopeds"

emissionRT <- dat
objects.store(emissionRT)
cat("Data.frame emissionRT stored.\n")