多个表格按列总和划分表格元素

我可以扫描表格列表以获得条件概率还是必须单独扫描每个表格？这里有一些数据我编造的，与表的输出一起，向人们展示我的问题多个表格按列总和划分表格元素

positions <- c("forward", "midfield", "defence", "goalkeeper", rep("forward", 5), "defender") 
nationality <- c(rep("IRE", 3), "GER", "ITA", "ENG", "FRA", "BRA", "SCO", "ESP") 
teams <- c("Milan", "Juventus", "Lazio", "Palermo", "Milan", "Juventus", "Chievo", "Siena", "Parma", "Napoli") 



dF <- data.frame(Team = factor(teams), 
       Position = factor(positions), 
       Nationality = factor(nationality), 
       stringsAsFactors = T) 

t1 <- t(table(dF$Nationality, dF$Position)) 
t2 <- t(table(dF$Nationality, dF$Team)) 



       BRA ENG ESP FRA GER IRE ITA SCO 
    defence  0 0 0 0 0 1 0 0 
    defender  0 0 1 0 0 0 0 0 
    forward  1 1 0 1 0 1 1 1 
    goalkeeper 0 0 0 0 1 0 0 0 
    midfield  0 0 0 0 0 1 0 0 



      BRA ENG ESP FRA GER IRE ITA SCO 
    Chievo  0 0 0 1 0 0 0 0 
    Juventus 0 1 0 0 0 1 0 0 
    Lazio  0 0 0 0 0 1 0 0 
    Milan  0 0 0 0 0 1 1 0 
    Napoli  0 0 1 0 0 0 0 0 
    Palermo 0 0 0 0 1 0 0 0 
    Parma  0 0 0 0 0 0 0 1 
    Siena  1 0 0 0 0 0 0 0

我需要做的是通过划分其列的总和每个表项，以获得条件概率。我知道我可以使用应用于每个表的扫描函数，但我想知道它是否可以通过lapply或通过for循环应用于表列表？我尝试过都没有成功。我也尝试过没有成功的扫描功能。

例如：

tbl_list <- list(t1, t2) 

for(tbl in tbl_list) { 
    tbl <- sweep(tbl, 2, colSums(tbl), `/`) 
}

来源

2017-02-09 Seanosapien

它很好用，谢谢。你在那里定义的两个函数究竟发生了什么？ – Seanosapien

如果表是一个列表，你可以在他们使用sapply循环如下

sapply(tbl_list, function(y) apply(y, 2, function(x) x/sum(x)))

我们将遍历的tbl_list元素与sapply(tbl_list并将function(y)应用于它们。每个元素（t1和t2）将依次变为y并进行function(y)这是apply(y, 2, function(x) x/sum(x))。在apply内部，我们将function(x)应用于MARGIN2（列）。 function(x)基本上将y列的每个元素与相应列的总和相除。

来源

2017-02-09 16:42:52

好的。现在对我来说更清楚了。很好解释并再次感谢你。 – Seanosapien

多个表格按列总和划分表格元素

回答

相关问题