对列表中的所有数据框执行相同的操作

Question

我有一个数据框列表，我需要对所有数据框执行相同的操作。我不确定是否最好创建一个函数或循环，然后将其应用于列表中的所有内容。我都尝试过，但我无法让任何东西发挥作用。我已经尝试过：

    prepare_df <- function(df) {
      # make changes to df
      names(df)[1] <- 'row'
      df <- df %>%
        pivot_longer((!row), names_to = "plateColumn", values_to = "Broth_t0")
      df <- df %>%
        mutate(wellID = paste0(row, plateColumn)) %>%
        select(-c(row, plateColumn))
      return(df)

并且我已经尝试过：

      change <- function(i){
        i <- i %>% 
          pivot_longer((!row), names_to = "plateColumn", values_to = "Treatment") %>% 
          mutate(get(wellID = paste0(row, plateColumn))) %>%
          select(-c(row, plateColumn))
      }

我想知道是否更容易一步一步地完成我需要做的事情，而不是尝试将所有内容合并到 1 个函数/循环中，但我需要能够完成所有这些工作以下。 mr1_44_312_t0 是单独的数据帧，我只是复制和粘贴，但我有太多数据，无法继续使用该方法。我对 R 相当陌生，所以任何帮助将不胜感激！

    mr1_44_312_t0 <- mr1_44_312_t0[36:43, 2:14]
    colnames(mr1_44_312_t0) [2:13] <- (1:12)
    names(mr1_44_312_t0)[1] <- 'row'
    mr1_44_312_t0 <- mr1_44_312_t0 %>%
      pivot_longer((!row), names_to = "plateColumn", values_to = "Absorbance_t0")
    mr1_44_312_t0 <- mr1_44_312_t0 %>%
      mutate(wellID = paste0(row, plateColumn)) %>%
      select(-c(row, plateColumn))

Answer 1

我们可以使用map来循环list

library(dplyr)
library(tidyr)
library(purrr)
out <- map(lst1, ~ .x %>%
          # select the columns 2 to 14
          select(2:14) %>%
          # subset the rows from 36:43
          slice(36:43) %>% 
          # reshape to long format        
          pivot_longer(-1, names_to = "plateColumn", 
          values_to = "Absorbance_t0") %>%
          # create the wellID
          mutate(wellID = paste0(cur_data()[[1]], plateColumn)) %>%
           select(-1, -plateColumn))