将数据框架转换为用于绘图的时间序列

Question

我有数据框架：

 year   sum1
   <chr> <dbl>
 1 1979      4
 2 1980     14
 3 1981     14
 4 1982     13
 5 1983      6
 6 1984     15
 7 1985     15
 8 1986      7
 9 1987     10
10 1988     12

我想将其转换为时间序列以制作图。有什么想法吗？

Answer 1

只需将年份转换为数字而不是字符，

DF2 <- transform(DF, year = as.numeric(year))
plot(DF2, type = "l", lwd = 2, lty = 2, col = "blue", 
  xlab = "year", ylab = "value", main = "my title")

如果您想将其转换为时间序列，则

library(zoo)

z <- read.zoo(DF, FUN = as.numeric)

plot(z, type = "l", lwd = 2, lty = 2, col = "blue", 
  xlab = "year", ylab = "value", main = "my title")

library(ggplot2)
autoplot(z, linetype = I("dashed"), lwd = I(1.5), col = I("blue")) + 
  xlab("year") + 
  ylab("value") + 
  ggtitle("my title")

然后将其转换为动物园系列，并使用经典图形或GGPLOT2（AutoPlot）。

注意

Lines <- "year   sum1
 1 1979      4
 2 1980     14
 3 1981     14
 4 1982     13
 5 1983      6
 6 1984     15
 7 1985     15
 8 1986      7
 9 1987     10
10 1988     12"
DF <- read.table(text = Lines, colClasses = c(year = "character"))

Answer 2

转换as.xts和绘图。首先通过1月1日完成日期

my_ts <- xts::as.xts(dat$sum1, order.by=as.Date(paste0(dat$year, '-01-01')))
plot(my_ts)

。 。

---

​

dat <- structure(list(year = 1979:1988, sum1 = c(4L, 14L, 14L, 13L, 
6L, 15L, 15L, 7L, 10L, 12L)), class = "data.frame", row.names = 1979:1988)

Answer 3

我们可以使用tsibble软件包将数据框架转换为times系列OBEJCT：

library(tsibble)
library(fable)
df %>% 
  as_tsibble(index = year) %>% 
  autoplot(vars(sum1))