我们可以遍历list，并将toupper应用于names以及list的列值和名称

setNames(lapply(my_list, \(x) {
      x[] <- lapply(x, toupper)
      names(x) <- toupper(names(x))
       x}), 
    toupper(names(my_list)))

• 输出

$MY_NAME
  C..JUAN....CARLOS....RRICARDO..
1                            JUAN
2                          CARLOS
3                        RRICARDO

$MY_DATA
  C..LUNES....MARTES....MIERCOLES..
1                             LUNES
2                            MARTES
3                         MIERCOLES

我们需要调用toupper三次，来替换names of the data.frames、names of the individual data.frame columns和values in each column。我们可以使用tidyverse：

library(dplyr)
library(purrr)

my_list %>%
    map(~mutate(.x, across(where(is.character), toupper)) %>% #values in each column
            rename_with(toupper)) %>% # names of the individual data.frame columns
    set_names(toupper(names(.))) #names of the data.frames

$MY_NAME
  C..JUAN....CARLOS....RRICARDO..
1                            JUAN
2                          CARLOS
3                        RRICARDO

$MY_DATA
  C..LUNES....MARTES....MIERCOLES..
1                             LUNES
2                            MARTES
3                         MIERCOLES

添加where(is.character)部分是为了安全，我们可以通过用across(.fns=toupper)替换原来对across()的调用来避免这种情况