R/kulttuuri.R

In sorvi: sorvi - avoimen datan tyokalupakki

# This file is a part of the soRvi program (http://louhos.github.com/sorvi/)

# Copyright (C) 2010-2012 Louhos <louhos.github.com>. All rights reserved.

# This program is open source software; you can redistribute it and/or modify 
# it under the terms of the FreeBSD License (keep this notice): 
# http://en.wikipedia.org/wiki/BSD_licenses

# This program is distributed in the hope that it will be useful, 
# but WITHOUT ANY WARRANTY; without even the implied warranty of 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.



#' Load 'apurahat'
#'
#' Load 'apurahat' data about Finnish art scholarships
#'
#' @return apurahat Data frame
#' 
#' @author Juuso Parkkinen \email{sorvi-commits@@lists.r-forge.r-project.org}
#' @export

GetApurahat <- function() {
  
  message("Loading apurahat-data...")
  # Load the apuraha-data in csv-format from the HS Next page
  apurahat <- read.csv("http://www2.hs.fi/extrat/hsnext/apurahat-2005-2010.csv", sep=";", quote="", fileEncoding="ISO-8859-1")

  # Remove canceled application
  apurahat <- apurahat[-c(13226, 13227),]

  # There are several things to fix in the data, here some of them are taken care of
  apurahat$Myontosumma.EUR <- as.numeric(gsub("\\,", "\\.", gsub(" ", "", apurahat[[10]])))
  apurahat$Hakemusluokka[apurahat$Hakemusluokka %in% c("säveltajat", "esittävä sävelt")] <- "säveltaide"
  apurahat$Hakemusluokka[apurahat$Hakemusluokka == ""] <- c(rep("kuvataide", 5), "kirjallisuus")
  apurahat$Hakemusluokka <- droplevels(apurahat$Hakemusluokka)
  levels(apurahat$Hakemusluokka) <- toupper(levels(apurahat$Hakemusluokka))
  apurahat$Hakemusluokka <- reorder(apurahat$Hakemusluokka, apurahat$Myontosumma.EUR, sum)
  
  apurahat$Maakunta[apurahat$Maakunta=="PIRKANMAAN MAAKUNTA"] <- "PIRKANMAA"
  apurahat$Maakunta[apurahat$Maakunta=="HÄME"] <- "KANTA-HÄME"
  apurahat$Maakunta[apurahat$Maakunta=="Åland"] <- "AHVENANMAA"
  apurahat$Maakunta[apurahat$Maakunta %in% c("", " ")] <- "ULK"
  levels(apurahat$Maakunta)[24] <- "ULKOMAA"
  apurahat$Maakunta <- droplevels(apurahat$Maakunta)
  apurahat$Maakunta <- reorder(apurahat$Maakunta, apurahat$Myontosumma.EUR, sum)
  
  apurahat$Kotipaikka[apurahat$Kotipaikka=="HELSINGFORS"] <- "HELSINKI"
  apurahat$Kotipaikka <- droplevels(apurahat$Kotipaikka)
  apurahat$Sukupuoli[apurahat$Sukupuoli==""] <- c("M", "M", "M", NA, "M", "M", NA, "M", "N", "N", "N", "N", "M", "N", "N", "N", "N", "N", "M", "N", "M", "N")
  apurahat$Sukupuoli <- droplevels(apurahat$Sukupuoli)
  
  # Compute years of birth and construct age groups
  apurahat$Syntymavuosi <- as.numeric(as.vector(apurahat[[3]]))
  apurahat$Syntymavuosi[apurahat$Syntymavuosi==1902] <- 1962 # Jukka Tapio Manninen syntynyt 1962 eika 1902
  apurahat$Ika <- apurahat$Vuosi - apurahat$Syntymavuosi
  apurahat$Ikaryhma <- cut(apurahat$Ika, breaks=c(min(apurahat$Ika, na.rm=T), seq(20, 80, by=5), max(apurahat$Ika, na.rm=T)))
  
  message("DONE\n")
  return(apurahat)
}