带有purrr::walk的嵌套循环留下了空图

# 导入所需的包
library(purrr)

# 创建一个嵌套列表
nested_list <- list(
  list(a = 1, b = 2),
  list(a = 3, b = 4),
  list(a = 5, b = 6)
)

# 创建一个空图形对象
plot <- NULL

# 使用purrr::walk进行嵌套循环并添加数据到图形对象
purrr::walk(nested_list, function(x) {
  # 检查嵌套列表中的元素是否为空
  if (!is.null(x)) {
    # 根据具体的数据操作填充图形对象，这里仅作示例
    plot <- plot + geom_point(aes(x = x$a, y = x$b))
  }
})

# 显示图形对象
print(plot)