循环添加到列中的值以生成新列

Question

我正在尝试创建某种循环来生成未来几年（以月为单位）的年龄百分比。我有两列，年龄和期限。将它们相除可以得到我正在寻找的百分比，但我需要一种简单的方法来将年龄加 1，并保持术语一致，并使用它来创建一个新列。类似于：

for i = n col_n<-data_set$term/(data_set$age + n) n=30

Answer 1

library(tidyverse)

# create example data frame
df <- tribble(~age, ~term,
              10,   5,
              12,   6)

# create function to add new column 
agePlusN <- function(df, n) {
  mutate(df, "col.{n}" := term/(age+ n))
}

# iterate through 1:30 applying agePlusN() 
walk(1:30, \(n) df <<- agePlusN(df, n))

这可行，但最后一步有点难看。它确实应该使用地图而不是步行，但我不太清楚如何让它不添加新行。

尝试 2

# create function to add new column 
agePlusN <- function(df, n) {
  mutate(df, "col.{n}" := term/(age+n)) %>% 
  select(-term, -age)
}

# iterate through 1:30 applying agePlusN() 
df2 <- 
  map_dfc(1:30, \(n) agePlusN(df, n)) %>% 
  bind_cols(df, .)

注意：

• mutate 中的 := 允许您在左侧参数的名称中使用 glue() 语法（例如"col.{n}")
• map_dfc() 表示映射，然后使用 bind_cols 组合所有输出
• \(n) 是等价的到function(n)
• 调用 bind_cols() 中的 . 不是必需的，但可确保“age”和“term”列放在结果数据帧的开头。

我仍然认为这可以做得更好，而不必调用bind_cols，但我不够聪明，无法弄清楚。