Skip to content

Instantly share code, notes, and snippets.

@sciruela
sciruela / ebtrust.r
Created February 9, 2012 11:20 — forked from thomasjensen/ebtrust.r
eurobarometer survey
library(ggplot2)
setwd("/path/to/file/")
data <- read.csv("ebAll.csv")
data$date <- as.Date(data$date, format = "%y/%m/%d")
data$Tend.to.trust <- as.numeric(gsub("%","",data$Tend.to.trust))
data$Tend.not.to.trust <- as.numeric(gsub("%","",data$Tend.not.to.trust))
data$DK...Don.t.know <- as.numeric(gsub("%","",data$DK...Don.t.know))