| Moderator:Jouni (see all) |
| This page is a stub. You may improve it into a full page. |
| Upload data
|
What are greenhouse gas emissions in Finland?
Data from Tilastokeskus [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")
|
<mfanonymousfilelist></mfanonymousfilelist>