在R中编写函数以生成多个数据帧并对数据进行计数

Question

1. 从我们的体重-身高数据中抽取了20个人。(体重- height.csv.gz)统计男性和女性的数量。重复几次。( a)使用卡方检验来接受/拒绝关于体重高度数据集中一半的人口是男性的零假设。( b)对40人、60人、80人和100人

的样本进行重复

wh <- read.csv("weight-height.csv",header=TRUE)

iterations =10

output <- list()

for(i in 1:iterations){
    output[[i]] <- (sample_n(wh, 20, fac = "Gender"))
}
output

输出给我10种不同的数据框架，但我需要帮助创建一个代码，从每个数据帧中计数“男性”和“女性”，然后将其放入一个新的数据框架中，如下所示

​

​

Answer 1

尽量减少R中循环的使用是一种普遍的良好做法。下面是一些带有玩具数据集的示例代码。

set.seed(7)
data <- sample(c('F', 'M'), replace = TRUE, 1000)

iter <- 10
size <- 20    
samples <- replicate(iter, sample(data, size))
male_counts <- apply(samples, 2, function(x) sum(x == "M"))
female_counts <- size - male_counts
df <- data.frame(male_counts, female_counts)
df
   male_counts female_counts
1           12             8
2            8            12
3            9            11
4            7            13
5           11             9
6           11             9
7           13             7
8           14             6
9            8            12
10          11             9

replicate函数生成样本并将它们存储为矩阵。apply函数对样本列中的男性进行求和，并返回一个向量。数据帧是简单地由计数向量构造的。