Tiedosto:Eurovaalit 2019 vastausdata.csv.zip

# This is code Op_fi5893/ on page [[Tiedosto:Eurovaalit 2019 vastausdata.csv.zip]]

library(OpasnetUtils)
library(reshape2)
library(ggplot2)

dat <- opasnet.csv("f/fb/Eurovaalit_2019_vastausdata.csv.zip", wiki="opasnet_fi",
                    unzip="eurovaalit_2019_vastausdata.csv", header=FALSE, sep=",",
                   encoding="UTF-8", stringsAsFactors = FALSE, fill=TRUE, quote="\"")
coln <- as.character(unlist(dat[1,]))
dat <- dat[-1,]
for(i in 2:23) {
  dat[[i]][dat[[i]]=="-"] <- NA
  dat[[i]] <- as.numeric(dat[[i]])
}

puol <- c(
  "Vasemmistoliitto",
  "SDP",
  "Vihreät",
  "Keskusta",
  "RKP",
  "Kristillisdemokraatit",
  "Kokoomus",
  "Perussuomalaiset"
)

miel <- c(
  "Täysin eri mieltä",
  "Melko eri mieltä",
  "Neutraali",
  "Melko samaa mieltä",
  "Täysin samaa mieltä"
)

cat("Data on Ylen vaalikoneesta https://vaalikone.yle.fi.\n")

tmp <- melt(dat[dat$V1 %in% puol , 1:23], id.vars="V1")
tmp$V1 <- factor(tmp$V1, levels=rev(puol))
tmp$value <- factor(tmp$value, levels=as.character(5:1), labels=rev(miel))

for(i in unique(tmp$variable)) {
  print(ggplot(tmp[tmp$variable==i,], aes(x=V1, fill=value))+geom_bar(position="stack")+
    theme_gray(base_size=16)+
    coord_flip()+theme(legend.title=element_blank())+
    labs(title=coln[match(i,colnames(dat))],x="")+
    scale_fill_manual(values=c("green","lightgreen","yellow","orange","red"), drop=FALSE))
}
# wri#te.csv(dat[order(dat[[2]]), c(1,2,24)], "autoilukielto.csv")