替换R中列表列表中的部分文本

# 创建一个包含字符串的列表
my_list <- list(
  "Hello, world!",
  "R is great!",
  "Programming in R is fun."
)

# 定义要替换的文本和替换后的文本
pattern <- "world"
replacement <- "universe"

# 使用lapply和gsub函数替换列表中的文本
new_list <- lapply(my_list, function(x) gsub(pattern, replacement, x))

# 打印新列表
print(new_list)

[[1]]
[1] "Hello, universe!"

[[2]]
[1] "R is great!"

[[3]]
[1] "Programming in R is fun."

new_list <- lapply(my_list, function(x) gsub(pattern, replacement, x, fixed = TRUE))

# 假设有一个嵌套列表
nested_list <- list(
  list("Hello, world!", "Welcome to R!"),
  list("R is great!", "Enjoy programming in R.")
)

# 使用嵌套的lapply来替换文本
new_nested_list <- lapply(nested_list, function(x) lapply(x, function(y) gsub(pattern, replacement, y)))

# 打印新嵌套列表
print(new_nested_list)