使用 for 循环在数据框中创建新列来计算 R 中的值？

我有两个数据框 df1 和 df2：

group=c("Group 1", "Group 2", "Group3","Group 1", "Group 2", "Group3")
year=c("2000","2000","2000", "2015", "2015", "2015")
items=c("12", "10", "15", "5", "10", "7")
df1=data.frame(group, year, items)

year=c("2000", "2015")
items=c("37", "22")
df2=data.frame(year,items)

df1 包含每年按组分隔的项目数，df2 包含每年的项目总数

我正在尝试创建一个 for 循环来计算每种组类型的项目比例。 我正在尝试做类似的事情：

df1$Prop="" #create empty column called Prop in df1
for(i in 1:nrow(df1)){
  df1$Prop[i]=df1$items/df2$items[df2$year==df1$year[i]]
} 

其中循环应该获取每种类型项目的比例（通过从 df1 获取值并除以 df2 中的总数）并将其列出在新列中，但此代码不起作用。

你不需要df2真的，这是一个简单的解决方案，使用data.table并且只有df1（我假设items是数字列，如果不是，则需要将其转换为一setDT(df1)[, items := as.numeric(as.character(items))])

library(data.table)
setDT(df1)[, Prop := items/sum(items), by = year]
df1
#      group year items      Prop
# 1: Group 1 2000    12 0.3243243
# 2: Group 2 2000    10 0.2702703
# 3:  Group3 2000    15 0.4054054
# 4: Group 1 2015     5 0.2272727
# 5: Group 2 2015    10 0.4545455
# 6:  Group3 2015     7 0.3181818

另一种方法是如果你已经有df2，您可以连接两者并计算Prop这样做的同时（再次，我假设items是实际数据中的数字）

setkey(setDT(df1), year)[df2, Prop := items/i.items]

基础 R 替代方案

with(df1, ave(items, year, FUN = function(x) x/sum(x)))
## [1] 0.3243243 0.2702703 0.4054054 0.2272727 0.4545455 0.3181818