不同时间段(年、月、周)的收入——我想对数据进行标准化
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 创建
我有一个看起来有点像这样的数据集:
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 创建