0

我是 R 编程新手，我制作了一个函数，可以从我们插入的列表或向量中返回一些基本统计信息。当我想插入数据框时，问题就来了。

我要插入的数据框有 2 列；第一个是指一组（1 或 2），第二个是指头骨的宽度，以厘米为单位（数值）。我想分别取两组的平均值，以便稍后我可以比较它们（1和2）、众数、中位数、四分位数......（我在函数中拥有的一切）。

我突然想到使用我制作的插入列表或向量的函数，然后对我进行分组，使用 tapply 函数，但它通过控制台给了我一个错误，这个：

Error in tapply(archivo, archivo$`Época histórica`, descriptive_statistics) : 
  arguments must have same length

在这里，您拥有我所做的功能和 tapply：

descriptive_statistics = function(x){
  result <- list(
    mean(x), exp(mean(log(x))), median(x), modes(x),
    (range(x)[2] - range(x)[1]), var(x), sqrt(var(x)), sqrt(var(x)) / mean(x)
  )
  names(result) <- c('Aritmetic mean', 'Geometric mean', 'Median', 'Mode', 'Range', 'Variance', 'Standard deviation', 'Pearsons coefficient of variation')
  
  result
}

tapply(archivo, archivo$`Época histórica`, descriptive_statistics)

我可以改进我的功能，以便让我输入数据框？或者我可以在 tapply 函数中做些什么来让它对我有用？有人可以帮我解决这个问题吗？我也接受其他想法，我尝试过聚合和汇总函数等，但它没有给我想要的统计数据，比如皮尔逊系数。

非常感谢您，问候

4

1 回答 1

1

在函数中传递数据框的列而不是完整的数据框。您尚未共享数据，因此很难给出具体答案，但我们假设另一列称为col1。在这种情况下，你可以做 -

tapply(archivo$col1, archivo$`Época histórica`, descriptive_statistics)
于 2021-12-04T11:47:58.503 回答