More on BC Vacancies

I used Excel's pivot table to get the average earnings by region, and then made a barchart. The data looks like this:

YearAve <- read.csv("C:/Users/speplow/Desktop/YearAve.csv")
YearAve

##   Region YearAve
## 1   5910   44577
## 2   5920   48107
## 3   5930   42619
## 4   5940   39297
## 5   5950   40947
## 6   5960   41140
## 7   5970   43384
## 8   5980   49141

We can make a boxplot

barplot(YearAve$YearAve, names = YearAve$Region, col = "wheat")

plot of chunk unnamed-chunk-2

Which doesn't show much variation. I also tried Principal Component Analysis (PCA). Load the FactoMineR package first.

Wages <- read.csv("C:/Users/speplow/Desktop/Wages.csv")
library(FactoMineR)

Then get an R object using only the relevant columns of the dataframe

dd <- PCA(Wages[, c(5, 8, 10, 11, 14)], graph = TRUE)

plot of chunk unnamed-chunk-4

This is interesting—but we need to get regional averages. I'll work on that a bit.