Difference between revisions of "Electricity prices in Nordic countries"

library(OpasnetUtils)
library(ggplot2)
library(xtable)

data <- tidy(op_baseGetData("opasnet_base", "Op_en5804"), objname = "price")

months <- c(4, 8, 12, 2, 1, 7, 6, 3, 5, 11, 10, 9) / 12 - 1/24
data$Time <- months[as.numeric(data$Month)] + as.numeric(as.character(data$Year))
head(data)

S <- 20
ggplot(data, aes(x = Time, y = priceResult, fill = Area)) + 
	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 = "Monthly electricity prices in Nordic countries 2000-2012", 
		plot.title = theme_text(size = S * 1.5)
	) + 
	scale_x_continuous("Time") + 
	scale_y_continuous("Price (EUR /MWh)")