Преобразование кадра данных в годовой временной ряд

Question

У меня есть фрейм данных с именем DF12, вот его начало:

 Year     VegC    LittC   SoilfC   SoilsC    Total
1 1850 7891.951 4709.804 15046.59 6967.480 34615.88
2 1851 7830.10 4770.95 15035.07 6967.277 34603.48
3 1852 7952.874 4805.29 15027.78 6967.156 34753.00
4 1853 8009.70 4831.233 15020.9 6967.011 34828.91
5 1854 8136.779 4869.645 15013.38 6966.881 34986.7
6 1855 7982.63 4976.534 15013.52 6966.839 34939.5

Я хочу создать этот фрейм данных во временной ряд, а также отдельно вывести на экран переменные, такие как VegC и Total.Я попытался запустить этот код для преобразования кадра данных во временные ряды:

myts <- ts(DF12, start=c(1850, 1), end=c(1950, 12), frequency=12)

Но я не могу построить разные переменные отдельно.

Хотелось бы узнать решение, не связанное с ggplot2.

Answer 1

Преобразовать в зоопарк, а затем plot. Аргумент nc=1 является необязательным.

library(zoo)
z <- read.zoo(DF12)
plot(z, nc = 1) # multiple panels

или масштабируется на одну панель:

plot(scale(z), screens = 1, col = 1:5)
legend("top", names(z), lty = 1, col = 1:5, cex = 0.75)

Выше используется классическая графика. Для решетчатой ​​графики:

library(lattice)
xyplot(z)

и для ggplot2:

library(ggplot2)
autoplot(z) + facet_free()

Если вам нужен объект ts, тогда tt <- as.ts(z) и нарисуйте его с помощью plot(tt).

Примечание

Ввод в воспроизводимом виде:

Lines <- " Year     VegC    LittC   SoilfC   SoilsC    Total
1 1850 7891.951 4709.804 15046.59 6967.480 34615.88
2 1851 7830.10 4770.95 15035.07 6967.277 34603.48
3 1852 7952.874 4805.29 15027.78 6967.156 34753.00
4 1853 8009.70 4831.233 15020.9 6967.011 34828.91
5 1854 8136.779 4869.645 15013.38 6966.881 34986.7
6 1855 7982.63 4976.534 15013.52 6966.839 34939.5"
DF12 <- read.table(text = Lines)