Finnish road traffic emissions by Liisa contains data from the Liisa model about road traffic emissions in Finland. Original data: [1].
+ Show code- Hide code
# 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")
| |
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Dimensions | User | Comment |
current | 07:23, 5 December 2018 | (439 KB) | Jouni (talk | contribs) | Category:Traffic Category:Air pollution {{study|moderator=Jouni}} '''Finnish road traffic emissions by Liisa''' contains data from the Liisa model about road traffic emissions in Finland. |
There are no pages that link to this file.