只打印列表的前 5 个元素

Question

我创建了一个名为 df 的数据框并为其指定了列名。然后我创建一个名为 test_list 的新列表。我遍历数据帧（df）并按顺序对它们进行排序。

现在，如何仅打印或提取列表中的前 5 个元素（test_fun）？

df<- data.frame(45,67,78,89,45,65,54,67,87) 
colnames(df) <- c("A","B","C","D","E","F","G","H","I")

test_list <- list()

for(i in 1:nrow(df))
{
  test_list[[i]] <- colnames(sort(df[i,c(1:9)], decreasing = TRUE))
}

我试过，

test_list[[1]]

#gives output
#[1] "D" "I" "C" "B" "H" "F" "G" "A" "E"

test_list[c(1,2,3,4,5)]
#gives output
#[[1]]
#[1] "D" "I" "C" "B" "H" "F" "G" "A" "E"

#[[2]]
#NULL

#[[3]]
#NULL

#[[4]]
#NULL

#[[5]]
#NULL

但是我需要

#output as
#D
#I
#C
#B
#H

Answer 1

使用 head

head(test_list[[1]],5)
[1] "D" "I" "C" "B" "H"