r - 估计R中每一行的范围

Question

我们进行了一项调查，其中 60 名学生必须投票选出他们最喜欢的想法。你可以选择三个想法。最佳创意得 3 分，次之 2 分，第三个最佳创意得 1 分。第 2 至 10 列对应于想法。

所以为了检查是否每个人都正确完成了调查，我使用了命令

rowSums(x[,2:10], na.rm=T)

这有效。

但接下来我想使用以下命令检查每一行的范围:

rowRanges(x, rows = NULL, cols=NULL, na.rm=T, dim.=dim(x[,2:10])

但是这里有一个错误。你能帮帮我吗？

Answer 1

这是一个在 mtcars 数据上使用 apply 的例子。

df = mtcars
df$cars = rownames(df)
df = df[,c(12,1:10)]
rownames(df) = NULL

df$sums = apply(df[,2:10], 1, function(x) sum(x, na.rm = TRUE))
df$range = apply(df[,2:10], 1, function(x)
                paste(max(x,na.rm = TRUE)," - ",min(x, na.rm = TRUE),sep = ""))