2017voca1_5_script

library(ggplot2)
library(ggthemes)
library(tidyr)
library(plyr)
library(reshape2)
library(dplyr)
# read the data
data0 <- read.table("http://pastebin.com/raw/j2V9fZga", header=T)
data0.long <- melt(data0, id.vars="id", variable.name="test", value.name="score")
data0.long$id <- as.factor(data0.long$id)
data0.long$test <- as.numeric(data0.long$test)
# get average
data0.mean <- tapply(data0.long$score, data0.long$test,  mean)
data0.mean.df <- as.data.frame(data0.mean)
data0.mean.df$test <- c("1", "2", "3", "4", "5")
data0.mean.df$test <- as.numeric(data0.mean.df$test)
# plot
g <- ggplot(NULL)
# show all scores
g <- g + geom_line(data = data0.long, aes(y = score, x = test , colour = id))
# show mean
g <- g + geom_line(data = data0.mean.df, aes(y = data0.mean.df$data0.mean, x = test), size=1)
# show your score
data0.long.yourid <- data0.long %>% dplyr::filter(id == "3")
g <- g + geom_path(data = data0.long.yourid, aes(y = score, x=test), size=1, colour="red")
print(g)