如何在R中同时命名多个列表中的对象？

# 创建两个空列表
my_list1 <- list()
my_list2 <- list()

# 向列表中添加对象并命名
my_list1$obj1 <- "对象1"
my_list1$obj2 <- "对象2"

my_list2$obj3 <- "对象3"
my_list2$obj4 <- "对象4"

# 创建一个空列表
my_list <- list()

# 创建要命名的对象的名称向量
object_names <- c("obj1", "obj2", "obj3")

# 使用循环命名对象并添加到列表中
for (name in object_names) {
  my_list[[name]] <- paste("对象", name, sep = "_")
}

# 创建一个空列表
my_list <- list()

# 创建要命名的对象的名称向量
object_names <- c("obj1", "obj2", "obj3")

# 使用lapply命名对象并添加到列表中
lapply(object_names, function(name) {
  my_list[[name]] <- paste("对象", name, sep = "_")
})