Question

我正在尝试收集按排名排序的数据集中的n个最小值。

这是我的代码：

testscript <- function(num) {
    df <- data.frame(State = paste0("State",sort(rep(1:2,10))),
                     City = rep(paste0("city",rep(1:10,2))),
                     Value = runif(n=20))
    vec <- NULL
    df$Rank <- ave(df$Value, df$State, FUN=rank)
    for (i in 1:num) {
         vec[i] <- df[df$Rank==[i],]
    }
}

参数num是我想要收集的最小值的数量。

当我运行该函数时，出现以下错误：

    Error: unexpected '[' in:
    "for (i in 1:num) {
          vec[i] <- df[df$Rank==["

Answer 1

如果要获得按排名排序的数据集中的n个最小值，可以使用order和head函数执行此操作 - 不需要for循环：

num <- 10
head(df[order(df$Rank),], num)
#     State   City        Value Rank
# 7  State1  city7 0.1075155728    1
# 19 State2  city9 0.0008769566    1
# 5  State1  city5 0.2829263743    2
# 17 State2  city7 0.0407836910    2
# 6  State1  city6 0.4697333111    3
# 14 State2  city4 0.1197360896    3
# 3  State1  city3 0.4853360290    4
# 11 State2  city1 0.1766399497    4
# 10 State1 city10 0.5803764823    5
# 13 State2  city3 0.3109590847    5

R中For循环的子集和索引

1 个答案: