如何将函数应用于嵌套列表的每一行？答案

【问题标题】：How to apply a function to each row of a nested list?如何将函数应用于嵌套列表的每一行？
【发布时间】：2018-06-21 15:52:15
【问题描述】：

我有这些数据示例：

    Lis=list(structure(c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
 NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(4L, 
 6L), .Dimnames = list(NULL, c("SE", "SE.1", "SE.2", "SE.3", 
 "SE.4", "SE.5"))), structure(c(1, 0, 
 7, 8, 1, 79, 2, 3, 2, 9, 
 6, 7, 8, 0,75, 2, 4, 6, 84, 
 2, 5, 4, 8, 1), .Dim = c(4L, 
   6L), .Dimnames = list(NULL, c("SE", "SE.1", "SE.2", "SE.3", 
 "SE.4", "SE.5"))), structure(c(NA, NA, NA, NA, 7, 0, 2,2, 7, 5, 2, 4, 3, 68, 
  9, 1, 5, 76, 09, 1), .Dim = c(4L, 5L), .Dimnames = list(NULL, c("SE", 
  "SE.1", "SE.2", "SE.3", "SE.4"))))

我想这样做：

收集每个元素的第一行并在必要时填充 [[3]]：

  [1,] NA   NA   NA   NA   NA   NA
  [1,]  1    1    2    8    4    5
  [1,] NA    7    7    3    5 NA

现在计算每一列的平均值：

第一行的最终输出（但我需要将其应用于列表的所有行）：

  [,1] 1    4   4.5  5.5    4.5   5
  [,2]
  [,3]
  [,4]

我找到了这样的东西但没有帮助：lapply(lis, [, 1)

【问题讨论】：

标签： r

【解决方案1】：

我们可以通过在每个list 中创建一个序列列来做到这一点，然后使用map_df，转换为单个数据集，按序列列分组，得到mean 的所有列与summarise_all

library(tidyverse)
Lis %>%
   map_df(~ 
          as_tibble(.x) %>%
          mutate(rn = row_number())) %>%
    group_by(rn) %>% 
    summarise_all(mean, na.rm = TRUE)
# A tibble: 4 x 7
#     rn    SE  SE.1  SE.2  SE.3  SE.4  SE.5
#  <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#1     1     1   4     4.5   5.5   4.5     5
#2     2     0  39.5   7    34    41       4
#3     3     7   2     4    42    46.5     8
#4     4     8   2.5   5.5   1.5   1.5     1

【讨论】：

@temor 当然，我们可以将mutate更改为mutate(rn = LETTERS[row_number()])) %>%，假设行数小于27
@temor 如果这是一个向量，请在变异中使用该向量vec <- c('co', 'bet', 'ref', 'te')，即mutate(rn = vec[row_number()]))
@temor 是的，您也可以在之后更改它，即在 summarise_all %>% mutate(rn = vec[rn]) 之后