如何对某些观察结果运行函数？

Question

我正在尝试根据政党在该地区所获得的选票数来计算每个政党在给定选举中赢得的席位数。

R中有一个函数可以对每个区域执行此操作：

seats_ha(party, votes, seats, method="dhondt")

第一个参数提供一个政党名单名称的向量，第二个参数提供一个政党在一个地区中赢得的选票总数的向量，位子=给定地区中的席位数，方法是用于转换选票的选举公式进入座位。 我能够做的是通过在选举年度中按单个区域单独对数据进行分组来计算此结果。 我的问题是，在3个选举年中，我有〜27个地区。

所以我的数据看起来像这样：

year   region dist_seat  party_name party_vote reg_id cong_id
2016-2021 AMAZONAS   2          UPP     0            1       3
2016-2021 AMAZONAS   2          FP      51067        1       3
2016-2021 AMAZONAS   2          AP      11992        1       3
2016-2021   ANCASH   5          FE       4534        2       3
2016-2021   ANCASH   5          UPP     0            2       3

我希望能够每年在每个地区运行该功能。

Answer 1

考虑by ，使用面向对象的包装器来tapply ，从而按一列或多列对数据帧进行切片以运行所需的操作。 by的FUN的输入参数始终是一个子集数据帧，输出始终是所有函数返回的列表，这里是seat_ha的返回。

您甚至可以将新列添加到子数据框，然后对单个数据框执行do.call + rbind结果。 在tryCatch下面，确保始终填充新列： seats_ha和NA实际结果（如果遇到错误）。

BUILD LIST OF SUBSETTED DFs
df_list <- by(mydata, mydata[,c("year", "region")], FUN=function(sub) {
                 # ADD NEW COLUMN TO sub DF
                 sub$calc_seat <- tryCatch(with(sub, seats_ha(party_name, party_vote, 
                                                              dist_seat, method="dhondt")), 
                                           error = function(e) NA)
                 return(sub)
             })

# ROW BIND ALL DFs
final_df <- do.call(rbind, df_list)