不同时间段(年、月、周)的收入——我想对数据进行标准化

Income at different time periods (year, month, week)- I want to standardise the data

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

Income Income period
1500 3
400 2
30000 1

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

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

抱歉,如果这是一个非常简单的问题,我想我可以将 3 重新编码为 12,然后用一个公式将这些列相乘,然后将 2 重新编码为 52,然后做同样的事情,只是想看看是否任何人都有更好的做事方式,因为实际上有多个像这样的列,我需要修复不同的时间段代码。

  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-04-13 创建