如果包含特定单词，如何从R中的列表中删除元素(dataframe

# 创建一个示例列表
my_list <- list(df1 = data.frame(a = 1:3, b = 4:6),
                df2 = data.frame(c = 7:9, d = 10:12),
                df3 = data.frame(e = 13:15, f = 16:18))

# 定义要删除的特定单词
word_to_remove <- "dataframe"

# 循环遍历列表并删除包含特定单词的元素
for (name in names(my_list)) {
  if (grepl(word_to_remove, name, ignore.case = TRUE)) {
    my_list[[name]] <- NULL
  }
}

# 打印删除后的列表
print(my_list)

# 创建一个示例列表
my_list <- list(df1 = data.frame(a = 1:3, b = 4:6),
                df2 = data.frame(c = 7:9, d = 10:12),
                df3 = data.frame(e = 13:15, f = 16:18))

# 定义要删除的特定单词
word_to_remove <- "dataframe"

# 使用lapply函数删除包含特定单词的元素
my_list <- my_list[!sapply(names(my_list), function(name) grepl(word_to_remove, name, ignore.case = TRUE))]

# 打印删除后的列表
print(my_list)