R语言中嵌套Tibble含NA时如何映射函数至嵌套列？

首先加载所需工具包：

library(tibble)
library(purrr)
library(lubridate)

原始嵌套数据：

df <- tibble(station = c("station1","station2"), 
             data = c(list(NA), 
                      list(tibble(timestamp = c("2001-01-01","2002-01-02", "2002-01-03"), 
                                  value=c(1,2,3)))))

方法1：用map_if()精准处理非NA嵌套表 #

map_if()会只对符合条件的元素执行修改逻辑，自动保留不符合条件的NA值：

df_cleaned <- df %>%
  mutate(data = map_if(data, is_tibble, ~ .x %>% mutate(timestamp = ymd(timestamp))))

方法2：用map()配合显式条件判断 #

如果偏好更直观的分支逻辑，可直接在map()里写if/else：

df_cleaned <- df %>%
  mutate(data = map(data, function(x) {
    if (is_tibble(x)) {
      x %>% mutate(timestamp = ymd(timestamp))
    } else {
      x  # 原样保留NA值
    }
  }))

验证结果 #

检查转换效果及NA留存情况：

# 查看第二个站点的timestamp类型
str(df_cleaned$data[[2]]$timestamp)
# 输出： Date[1:3], format: "2001-01-01" "2002-01-02" "2002-01-03"

# 确认第一个站点的NA未被修改
df_cleaned$data[[1]]
# 输出：[1] NA

内容的提问来源于stack exchange，提问作者ScalingR