Вы можете рассчитать значения, например, изменив форму кадра данных (здесь он называется Данные):
require(reshape)
tmp <- cast(Data,Skills~Year,value="MeanIncome")
ratio <- tmp[,5]/ tmp[,2:4]
rownames(ratio) <- tmp$Year
Коэффициент - это данные, которые вы можете построить. Поскольку я не очень понимаю, как вы хотите, чтобы ваш сюжет выглядел, я не могу помочь вам в дальнейшем. Но с фреймом отношения это не может быть сложно.
Редактировать: просто чтобы помочь TS, я включаю код, который я использовал для чтения в данные:
Data <- read.table(textConnection(
"Skills Year MeanIncome
Level_1 1970 9330.00
Level_1 1973 11525.00
Level_1 1976 12740.00
Level_1 1979 15533.33
Level_2 1970 10171.00
Level_2 1973 12400.00
Level_2 1976 12012.50
Level_2 1979 18550.00
Level_3 1970 8580.00
Level_3 1973 12433.33
Level_3 1976 14673.33
Level_3 1979 14400.00
Level_4 1973 35000.00
Level_4 1976 30000.00
Level_4 1979 36000.00")
, header=T)