Greenhouse gas emissions in Finland: Difference between revisions
Jump to navigation
Jump to search
(Data uploaded using Opasnet Base Import) |
(→Formula: data and graph works) |
||
Line 17: | Line 17: | ||
=== 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> | |||
==See also== | ==See also== |
Revision as of 07:11, 11 September 2012
Moderator:Jouni (see all) |
This page is a stub. You may improve it into a full page. |
Upload data
|
Question
What are greenhouse gas emissions in Finland?
Answer
Rationale
Data from Tilastokeskus [1]
Dependencies
Formula
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>