Wage <- read.csv("Wage.csv", header = T, na.strings = "?", stringsAsFactors = T)
attach(Wage)
education = as.factor(education)
svg("boxplot-wage.svg", width = 11, pointsize = 12, family = "sans")
plot(education,wage, xlab = "Education", ylab = "Wage", main = "Boxplot of Education vs Wage")
dev.off()