r - 如何在 R 中使用 map 迭代对象以创建一系列 gt 表

Question

我正在尝试创建一系列表并希望使用 map 遍历因子变量功能。我能够做到这一点，但是当我想使用迭代变量作为每个表的标题时遇到了麻烦。索引和迭代是我仍在思考的事情，所以如果有人能指出我在下面的代码中做错了什么，我将不胜感激:

library(gt)
Area1 <- as.factor(c(0,0, 0.50659782, "NS"))
Area2 <- c(NA, NA, 0.507, NA)
Pond  <- c('MGF', '101W', 5, 5)
Ponds <-data.frame(Area1, Area2, Pond)

Ponds %>%
    split(.$Pond) %>% 
    map(~gt(.) %>%
      tab_header(
        title = map(., names(.)
        )
      )
    )

这就是我想要为每个池塘提供适当标题的输出

Answer 1

我猜你的代码的问题是你试图映射两个需要 map2 的对象。 .祝你好运!

Ponds_split <- Ponds %>%
  split(.$Pond) 

map2(
  Ponds_split,
  names(Ponds_split),
  ~gt(.) %>%
    tab_header(
      title = .y
      )
)