使用modify_at删除列表内各tibble中NA值报错如何解决？

错误原因 #

你对modify_at的作用逻辑理解有误：modify_at的定位对象是最外层列表的元素，你传入的字符索引"FIPS"是列表内部tibble的列名，而非外层列表的元素名称。你的外层列表是通过数字下标索引的无名列表，自然会触发「字符索引要求对象有名称」的报错。

解决方案 #

你需要的操作逻辑是先遍历外层列表的每一个tibble元素，再对每个tibble执行删除FIPS列NA值的操作，直接用modify遍历全列表即可，两种常用写法可选：

1. 基于tidyr的drop_na实现

library(purrr)
library(tidyr)

my_list_clean <- my_list %>% 
  modify(~ drop_na(.x, FIPS))

2. 基于R基础包的na.omit实现

my_list_clean <- my_list %>% 
  modify(~ na.omit(.x, cols = "FIPS"))

补充说明 #

如果你只需要处理外层列表中的部分tibble元素，才需要用到modify_at，此时指定的索引为外层列表对应元素的数字下标即可，比如仅处理第2、3个tibble的写法如下：

my_list_clean <- my_list %>% 
  modify_at(c(2,3), ~ drop_na(.x, FIPS))

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