循环遍历 R 中的 .csv 文件，计算相对频率？

Question

我是 R 新手，我正在尝试创建一个 .R 脚本，该脚本将打开我的 .csv 文件并计算一些频率。该文件中有标头，与它们关联的值为 1、0、NA 或 -4。我想要做的是遍历每个垂直行，然后计算它们的频率。我确信这是一个简单的脚本，但我还不确定 R 的语法是如何工作的。有人可以帮我开始做这个吗？

Answer 1

确切的脚本会根据您的输入和您想要的输出类型而有所不同（只是打印到交互式控制台？写入 .csv？），但这是我的尝试：

#Read the data into .csv - it assumes headers
dat <- read.csv(file = "yourfile.csv")

#For right now, use this fake data
dat <- data.frame(x = c(-4, 0, 1, 1, -4, NA, NA, 0), y = c(1, 1, 1, 0, -4, NA, 0, NA))

#Get the frequency of values for each column, assuming every column consists of data
apply(X = dat, MARGIN = 2, FUN = function(x) {summary(factor(x))})

apply 函数将您提供的函数 (FUN) 应用到您提供的数据的边距（1 = 行，2 = 列）上。您可以赋予它任何您喜欢的功能。传递FUN=summary将为您提供每列的平均值、最小值、最大值等（因为它们是数字）。但是因子的summary()的默认方法是频率，这正是您所需要的。因此，不要传递摘要，而是欺骗 R 将您的数字视为一个因素：定义一个匿名函数 function(x) （apply 会知道 x 您指的是一次取一个的列）。设置此函数首先将 x 转换为一个因子 (factor(x))，然后对该因子进行汇总。这将返回一个矩阵，其中包含每列的频率。

这不是有史以来最优雅的代码，但我认为它会满足您的需求。