将值分配给任意数量的接收器答案

【问题标题】：Distribute values to on arbitrary number of receivers将值分配给任意数量的接收器
【发布时间】：2013-01-24 15:55:33
【问题描述】：

我有一些比赛的数据，在每场比赛中，有不同数量的球员进球。我现在想将每场比赛的进球数分配给参加那场比赛的球员。最后，我希望得到每个球员在所有比赛中的总进球数。

示例：

Game 1: Players A + B + C; Goals: 3; so everyone gets a score of 1
Game 2: Players A + B + D + E; Goals: 8; everyone gets a score of 2
Game 3: Players B + C; Goals: 4; everyone gets a score of 2

结果：（这就是如果要创建的话）

A: 3
B: 5
C: 3
D: 2
E: 2

此数据以 CSV 格式提供，其中每场比赛的可变球员被放入由竖线 (|) 分隔的单个列中：

Players;Goals
A|B|C;3
A|B|D|E;8
B|C;4
E;3

我可以将其读入 data.frame：

data <- read.csv("demo.csv", header=TRUE, sep=";")

并将玩家信息与 data.frame 中的 Players 列分开：

lapply(data$Players, function(x) strsplit(as.character(x), "|", fixed=TRUE))

我如何将进球栏中的分数分配给这些球员？

【问题讨论】：

你不需要lapplystrsplit。你可以做strsplit(as.character(data$Players),"|",fixed=TRUE)。

标签： r

【解决方案1】：

这是使用base 函数和*apply 的东西：

#input data (from clipboard)
data <- read.table(header=TRUE,sep=";",file='clipboard')
players <- strsplit(as.character(data$Players),"|",fixed=TRUE)
#number of players in a game
data$n.player <- sapply(players,length)
#unique list of players
uni.players <- unique(unlist(players))

goals.per.player <- sapply(uni.players,function(x) {
  #identifies which games (rows of data) each player was in
  games.played <- which(sapply(players, function(y) x %in% y))
  #sums the games played
  sum((data$Goals/data$n.player)[games.played])
})
#A B C D E 
#3 5 3 2 5

【讨论】：