如何从R中的值列表中获取具有最大值的元素

Question

您好，我有一个值列表，我只需要评分最高的元素，即 5。 所以对于下面的列表，我只需要有 5 个评级的电影名称。我不需要评级为 2 和 3 的电影。 我如何在 R 中做到这一点。

$Movie1
[1] 5

$Movie2
[1] 5

$Movie3
[1] 2

$Movie4
[1] 5

$Movie5
[1] 5

$Movie6
[1] 4

我需要结果

Movie1  Movie2  Movie4   Movie6
5         5       5        5

Answer 1

第一步是取消列出您的列表，然后为评分最高的电影名称编制索引，然后将它们存储在数据框中。由于您并没有真正提供用例，因此很难确切知道为什么要使用这种格式，但我希望这里有一些可以帮助您入门的东西。

my_list <- list(movie1 = 5,    # a mock movie list
                movie2 = 5,
                movie3 = 2,
                movie4 = 5,
                movie5 = 4)


new <- do.call(rbind, my_list) # unlisting the elements into a df


t(
  data.frame( 
    movie = row.names(new)[new == max(new)],   # here we store row names of max rows
    num = max(new))                            # here we provide the max rating
  )                                            # finally, transpose `t()`

希望这会有所帮助。或者，您可以这样做以从类似列表中获取所需的文字输出：

my_list <- list(movie1 = 5,    # a mock movie list
                movie2 = 5,
                movie3 = 2,
                movie4 = 5,
                movie5 = 4)


new <- do.call(rbind, my_list) # unlisting the elements into a df

movie_names <- row.names(new)[new == max(new)]  # store all the movie names that have max rating
rep_num <- max(new)                             # store max rating (to pass to rep and eventually table
len <- length(movie_names)                      # len to pass to seq_len

table(sapply(seq_len(len), function(i){rep(movie_names[i], rep_num)})) # then finally create a function to repeat the movie name for the max rating and create a table from it.