几个月到整数R

Question

这是我正在处理的数据帧的一部分。 第一列代表年份，第二列代表月份，第三列代表当年该月份的观察数量。

2005 07    2
2005 10    4
2005 12    2
2006 01    4
2006 02    1
2006 07    2
2006 08    1
2006 10    3

我有2000年到2018年的观察。我想对这些数据运行内核回归，所以我需要从日期类向量创建一个连续整数。 例如，2000年1月将是​​1，2001年1月将是​​13，2002年1月将是​​25，依此类推。 有了它，我将能够运行内核。 后来，我需要翻译它（1将是2000年1月，2将是2000年2月，依此类推）来绘制我的模型。

Answer 1

只需使用一点代数：

df$cont <- (df$year - 2000L) * 12L + df$month

您可以使用模数和整数除法向后。

df$year <- df$cont %/% 12 + 2000L
df$month <- df$cont %% 12 # 12 is set at 0, so fix that with next line.
df$month[df$month == 0L] <- 12L

这里， %%是模数运算符， %/%是整数除法运算符。 有关这些算法运算符和其他算术运算符的解释，请参阅?"%%" 。

Answer 2

你能做的就是以下几点。 首先使用expand.grid创建日期data.frame，这样我们就可以拥有2000年1月到2018年的所有年份和月份。接下来以正确的顺序排列并最后添加一个订单列，以便2000 01从1开始，2018 12是如果将其与原始表合并，则会得到以下结果。 然后，您可以删除不需要的列。 并且因为您有一个日期表，您可以根据订单列返回年份和月份列。

dates <- expand.grid(year = seq(2000, 2018), month = seq(1, 12))
dates <- dates[order(dates$year, dates$month), ]
dates$order <- seq_along(dates$year)


merge(df, dates, by.x = c("year", "month"), by.y = c("year", "month"))

  year month obs order
1 2005    10   4    70
2 2005    12   2    72
3 2005     7   2    67
4 2006     1   4    73
5 2006    10   3    82
6 2006     2   1    74
7 2006     7   2    79
8 2006     8   1    80

数据：

df <- structure(list(year = c(2005L, 2005L, 2005L, 2006L, 2006L, 2006L, 2006L, 2006L), 
                     month = c(7L, 10L, 12L, 1L, 2L, 7L, 8L, 10L), 
                     obs = c(2L, 4L, 2L, 4L, 1L, 2L, 1L, 3L)), 
                class = "data.frame", 
                row.names = c(NA, -8L))

Answer 3

一个选项是使用zoo包中的yearmon类型，然后使用yearmon类型之间的差异计算Jan 2001的月份差异。

library(zoo)

# +1 has been added to difference so that Jan 2001 is treated as 1
df$slNum = (as.yearmon(paste0(df$year, df$month),"%Y%m")-as.yearmon("200001","%Y%m"))*12+1

#   year month obs slNum
# 1 2005     7   2    67
# 2 2005    10   4    70
# 3 2005    12   2    72
# 4 2006     1   4    73
# 5 2006     2   1    74
# 6 2006     7   2    79
# 7 2006     8   1    80
# 8 2006    10   3    82

数据：

df <- read.table(text = 
"year month obs
2005 07    2
2005 10    4
2005 12    2
2006 01    4
2006 02    1
2006 07    2
2006 08    1
2006 10    3",
header = TRUE, stringsAsFactors = FALSE)