使用任何套用方法找出每个学生的最高和最低分数之间的差异

Question

这是分数列表

Scores<-list(T = c(10,8,7,9), M = c(9,10,8,7), L = c(6,8,10), B = c(10,9,10,7,8))

我尝试使用lapply（）函数失败，我是R的新手，只是想解决一些运动问题。解决此问题的最佳方法是什么？

Answer 1

如果刚开始，这会更困难，因为您可能希望将所谓的匿名函数传递给lapply()，而不是像mean这样的现成函数。这是这样做的方法：

Scores <- list(T = c(10,8,7,9), M = c(9,10,8,7), L = c(6,8,10), B = c(10,9,10,7,8))

lapply(Scores, function(x) diff(range(x)))

# $T
# [1] 3
#
# $M
# [1] 3
#
# $L
# [1] 4
#
# $B
# [1] 3