如何将日期季度分配给整数值

Question

我有一个数据集，其中包含一个日期列，该数据集由以下内容组成：

date
0.25
0.50
0.75
1.00
1.25
1.50
1.75
2.00
2.25
(etc)

这表示年度宿舍。 我要做的是将每个季度转换为相应的值，0.25是第一季度，第二季度为0.50，依此类推。

结果看起来是一个新专栏，每个季度的值1：4。 类似：

date     quarter
0.25      1
0.50      2
0.75      3
1.00      4
1.25      1
1.50      2
1.75      3
2.00      4
(etc)

我知道这可以做得很长的路（loop的恐惧），但我希望可以更简洁的代码。谢谢

Answer 1

一个可能的解决方案：

library(dplyr)

df %>% 
  mutate(quarter = date - floor(date), 
         quarter = case_when(quarter == 0.25 ~ 1,
                             quarter == 0.50 ~ 2,
                             quarter == 0.75 ~ 3,
                             TRUE ~ 4)) 

#>   date quarter
#> 1 0.25       1
#> 2 0.50       2
#> 3 0.75       3
#> 4 1.00       4
#> 5 1.25       1
#> 6 1.50       2
#> 7 1.75       3
#> 8 2.00       4
#> 9 2.25       1

Answer 2

只需

date <- c(.25,.5,.75,1,1.25,1.5,1.75,2)

quarter <- (date-floor(date))/.25
quarter <- ifelse(quarter == 0, 4, quarter)
quarter
[1] 1 2 3 4 1 2 3 4

使用（date-floor（date））您只保留数字的小数位置。然后，您按.25分开以查看它是什么四分之一。最后将零替换为四个。

编辑

我看到我的答案与其他答案具有相同的逻辑。无论如何，我都保留它，因为解释可能会有所帮助。

Answer 3

将日期乘以4，以给出一个整数值并减去1给出0、1、2，...。然后将其余部分除以4并添加1个。我们在此下方提出的解决方案中最短的解决方案，本节中的解决方案同样一般，并且不需要连续或从第一季度开始。

请注意，x %% 4表示除以4和x %% 1之后的其余部分是除以1的剩余部分，即分数部分。

transform(DF, quarter = (4 * date - 1) %% 4 + 1)

另一种选择是将一个因素转换为一个因素，并采用整数级别的

transform(DF, quarter = as.integer(factor((date - 0.25) %% 1)))

另一种方法是在动物园中使用年度QTR类。它代表年度/季度的日期，使用年度加上0、1/4、1/2和3/4的年份。

library(zoo)
transform(DF, quarter = cycle(as.yearqtr(date - 0.25)))

尽管有点费力，这很简单：

transform(DF, quarter = match(date %% 1, c(0.25, 0.5, 0.75, 0.00)))

连续季度，

如果我们知道四分之一是连续的，并且从第一季度开始，我们可以将序列1、2、3、4重复到这样的长度。虽然不太通用非常简单。

transform(DF, quarter = rep(1:4, length = nrow(DF)))

另一种方式，如果我们知道四分之一是连续的，并且从第一季度开始的是将日期转换为TS系列并使用周期。

transform(DF, quarter = c(cycle(ts(date, freq = 4))))

注意

可重现形式的输入：

DF <-
structure(list(date = c(0.25, 0.5, 0.75, 1, 1.25, 1.5, 1.75, 
2, 2.25)), class = "data.frame", row.names = c(NA, -9L))