如何在将R Dataframe转换为命名列表时省略“NA”

# 创建一个示例Dataframe
df <- data.frame(A = c(1, 2, NA, 4),
                 B = c(NA, 2, 3, 4),
                 C = c(1, NA, 3, NA))

# 将Dataframe转换为命名列表并省略"NA"值
list_df <- lapply(df, function(x) {
  x[is.na(x)] <- NULL
  return(x)
})

# 打印转换后的命名列表
print(list_df)

# 安装和加载purrr包
install.packages("purrr")
library(purrr)

# 创建一个示例Dataframe
df <- data.frame(A = c(1, 2, NA, 4),
                 B = c(NA, 2, 3, 4),
                 C = c(1, NA, 3, NA))

# 将Dataframe转换为命名列表并省略"NA"值
list_df <- map(df, ~ .x[!is.na(.x)])

# 打印转换后的命名列表
print(list_df)