在R中列表的所有元素中查找字符串

# 创建一个包含多个元素的列表
my_list <- list("apple", "banana", "orange", "grape")

# 要查找的字符串
search_string <- "an"

# 使用循环遍历列表的每个元素，并查找包含字符串的元素
found_elements <- list()
for (element in my_list) {
  if (grepl(search_string, element)) {
    found_elements <- c(found_elements, element)
  }
}

# 输出包含字符串的元素
print(found_elements)

# 创建一个包含多个元素的列表
my_list <- list("apple", "banana", "orange", "grape")

# 要查找的字符串
search_string <- "an"

# 自定义函数，用于判断字符串是否存在于元素中
find_string <- function(element) {
  if (grepl(search_string, element)) {
    return(element)
  }
}

# 使用lapply函数对列表的每个元素应用相同的操作
found_elements <- lapply(my_list, find_string)

# 输出包含字符串的元素
print(found_elements)