Air pollution emissions in Helsinki: Difference between revisions
Jump to navigation
Jump to search
(→Answer) |
(indicators #11, 15 about car emissions added) |
||
Line 171: | Line 171: | ||
cat("Ovariable caremission stored.\n") | cat("Ovariable caremission stored.\n") | ||
</rcode> | </rcode> | ||
==== Push indicator to HNH2035 ==== | |||
<rcode label="Push emission indicators to HNH2035 (for developers only)" embed=1> | |||
# This is code Op_en7923/answer on page [[Air pollution emissions in Helsinki]] | |||
library(OpasnetUtils) | |||
library(plotly) | |||
objects.latest("Op_en6007", code_name="hnh2035") # [[OpasnetUtils/Drafts]] combineLines, pushIndicatorGraph | |||
objects.latest("Op_en6007", code_name="miscellaneous") # [[OpasnetUtils/Drafts]] truncateIndex | |||
objects.latest("Op_en7923", code_name="caremission") # [[Air pollution emissions in Helsinki]] caremission | |||
caremission <- EvalOutput(caremission) | |||
tmp <- caremission[caremission$Municipality=="Helsinki" & caremission$Pollutant=="CO2eq",] | |||
tmp <- truncateIndex(oapply(tmp, cols="Location", FUN=sum), "Vehicle",6) | |||
p_caremission_co2 <- plot_ly( | |||
tmp@output, | |||
x = ~Year, y = ~caremissionResult, color = ~Vehicle, type = 'bar' | |||
) %>% | |||
layout(barmode='stack', title="Henkilöautojen kasvihuonekaasupäästöt", | |||
xaxis=list(title="Vuosi"),yaxis=list(title="CO2ekv-päästö (kton/vuosi)")) | |||
tmp <- caremission[caremission$Municipality=="Helsinki" & caremission$Pollutant=="PM2.5",] | |||
tmp <- truncateIndex(oapply(tmp, cols="Location", FUN=sum), "Vehicle",6) | |||
p_caremission_pm <- plot_ly( | |||
tmp@output, | |||
x = ~Year, y = ~caremissionResult, color = ~Vehicle, type = 'bar' | |||
) %>% | |||
layout(barmode='stack', title="Henkilöautojen pienhiukkaspäästöt", | |||
xaxis=list(title="Vuosi"),yaxis=list(title="PM2.5-päästö (kton/vuosi)")) | |||
pushIndicatorGraph(p_caremission_co2, "https://hnh.teamy.fi/v1/indicator/11/") | |||
pushIndicatorGraph(p_caremission_pm, "https://hnh.teamy.fi/v1/indicator/15/") | |||
cat("Private car CO2eq and PM2.5 emissions (indicators #11, #15) pushed to HNH2035.\n") | |||
if(FALSE) { | |||
objects.latest("Op_en7923", code_name="emission") # [[Air pollution emissions in Helsinki]] emission | |||
emission <- EvalOutput(emission) | |||
caremission <- EvalOutput(caremission) | |||
} | |||
</rcode> | |||
==See also== | ==See also== |
Revision as of 12:25, 18 December 2018
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.
Question
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)?
Answer
- Model run 12.12.2018 [1]
Rationale
Dependencies
Calculations
The answer metadata can be obtained by using link: http://cl1.opasnet.org/opasnet_base_2/index.php?ident=op_en7923.answer&act=0
The actual data: (key is unique to every download instance and is generated when the above link is opened) - http://cl1.opasnet.org/opasnet_base_2/index.php?key=8dYqLbtppz4HM7sYaAyj4t6S49jQNRWJ
Push indicator to HNH2035