| Moderator:Nobody (see all) Click here to sign up. |
| This page is a stub. You may improve it into a full page. |
| Upload data
|
Air pollution emissions in Helsinki estimate direct air pollution emissions (including CO2eq) from the Helsinki area.
What are the amounts of air pollution (notably CO2eq and PM2.5) emitted from the Helsinki area (Helsinki specifically but also other municipalities of the Helsinki Metropolitan Area)?
# This is code Op_en7923/fuelUse on page [[Air pollution emissions in Helsinki]]
library(OpasnetUtils)
fuelUse <- Ovariable(
"fuelUse",
dependencies=data.frame(
Name="HSYdata",
Ident="Op_en2791/HSYdata"
),
formula = function(...) {
colnames(HSYdata@output)[colnames(HSYdata@output)=="CO2"] <- "Result"
HSYdata$Result <- as.numeric(as.character(HSYdata$Result))
HSYdata$HSYdataResult <- NULL
levels(HSYdata$Sector) <- tolower(levels(HSYdata$Sector))
levels(HSYdata$Consumer) <- tolower(levels(HSYdata$Consumer))
colnames(HSYdata@output)[colnames(HSYdata@output)=="Sector"] <- "Sektori" # Data is in Finnish but title in English
return(HSYdata)
}
)
objects.store(fuelUse)
cat("Ovariable fuelUse stored.\n")
|
# This is code Op_en7923/emission on page [[Air pollution emissions in Helsinki]]
library(OpasnetUtils)
emission <- Ovariable(
"emission",
dependencies=data.frame(
Name=c("fuelUse","emfactor"),
Ident=c("Op_en7923/fuelUse","Op_en2791/emfactor")
),
formula = function(...) {
out <- fuelUse * emfactor
return(out)
}
)
objects.store(emission)
cat("Ovariable emission stored.\n")
|
# This is code Op_en7923/answer on page [[Air pollution emissions in Helsinki]]
library(OpasnetUtils)
library(ggplot2)
objects.latest("Op_en7923", code_name="emission") # [[Air pollution emissions in Helsinki]] emission
emission <- EvalOutput(emission)
ggplot(emission@output, aes(x=Year, weight=emissionResult, fill=Sector))+geom_bar()+
facet_wrap(~City, scales="free_y")
opbase.upload(
oapply(unkeep(emission, sources=TRUE, prevresults=TRUE), cols="Iter", FUN=mean)@output,
ident = ident,
name = pagename,
obj_type = "variable",
subset = "Answer",
act_type = "replace",
language = "en",
who = wiki_username
)
cat("Ovariable emission uploaded as the answer of this knowledge crystal page.\n")
|