不同时间段（年、月、周）的收入——我想把数据标准化

Question

我有一个看起来有点像这样的数据集：

收入	收入期
1500	3
400	2
30000	1

其中 1 是每年，2 是每周，3 是每月。

我想创建一个列来显示所有行的年度收入，以便我可以更轻松地比较它们。

抱歉，如果这是一个非常简单的问题，我想我可以将 3 重新编码为 12，然后有一个公式将这些列相乘，然后将 2 重新编码为 52 并执行相同操作，只是想看看是否有人有更好的方法做事，因为实际上有多个这样的列，在我需要修复的时间段内具有不同的代码。

Answer 1

  library(dplyr)

  df %>% 
    mutate(income_yr = case_when(period == 3 ~ income * 12,
                                 period == 2 ~ income * 52,
                                 TRUE ~ income))
#>   income period income_yr
#> 1   1500      3     18000
#> 2    400      2     20800
#> 3  30000      1     30000

数据

  df <- data.frame(income = c(1500, 400, 30000),
                   period = c(3, 2, 1))

^{由reprex package (v2.0.0) 于 2021 年 4 月 13 日创建}