Greenhouse gas emissions in Finland: Difference between revisions

From Opasnet
Jump to navigation Jump to search
(placeholder)
 
mNo edit summary
 
(3 intermediate revisions by 2 users not shown)
Line 1: Line 1:
[[Category:Climate change]]
[[Category:Climate change]]
[[Category:Energy]]
[[Category:Energy]]
[[Category:Code under inspection]]
{{variable|moderator=Jouni|stub=Yes}}
{{variable|moderator=Jouni|stub=Yes}}


Line 17: Line 18:


=== Formula ===
=== Formula ===
<rcode graphics="1">
library(OpasnetUtils)
library(ggplot2)
library(xtable)
data <- tidy(op_baseGetData("opasnet_base", "Op_en5806"), objname = "emission")
colnames(data)[colnames(data) == "Emission category"] <- "Emission"
data$Year <- as.numeric(as.character(data$Year))
data <- data[substr(data$Emission, 1, 1) != "5" , ]
print(xtable(data[data$Year == 2010, ]), type = 'html')
S <- 20
ggplot(data, aes(x = Year, y = emissionResult, group = Emission)) +
geom_line() +
opts(
axis.text.x = theme_text(size = S),
axis.text.y = theme_text(size = S),
axis.title.x = theme_text(size = S),
axis.title.y = theme_text(size = S, angle = 90),
title = "Greenhouse gas emissions in Finland",
plot.title = theme_text(size = S * 1.5)
) +
scale_x_continuous("Time") +
scale_y_continuous("kton/a (CO2 equivalent")
</rcode>
{{comment|# |Code seems to work, but gives the yellow errorbox.|--[[User:Heta|Heta]] 12:39, 27 August 2013 (EEST)}}


==See also==
==See also==
Line 37: Line 68:
| urn            =  
| urn            =  
| reference      =  
| reference      =  
}}
}}<!-- __OBI_TS:1347361909 -->

Latest revision as of 09:39, 27 August 2013



Question

What are greenhouse gas emissions in Finland?

Answer

Rationale

Data from Tilastokeskus [1]

Dependencies

Formula

+ Show code

----#: . Code seems to work, but gives the yellow errorbox. --Heta 12:39, 27 August 2013 (EEST) (type: truth; paradigms: science: comment)

See also

Keywords

References


Related files

<mfanonymousfilelist></mfanonymousfilelist>

Greenhouse gas emissions in Finland. Opasnet . [2]. Accessed 25 Nov 2024.