相关疑难解决方法(0)

我想编写一些代码可以获取给定的数据框,检查是否缺少任何列,如果是,则添加填充0或NA的缺失列.这是我得到的:

> df
   x1 x2 x4
1   0  1  3
2   3  1  3
3   1  2  1

> nameslist <- c("x1","x2","x3","x4")
> miss.names <- !nameslist %in% colnames(df)
> holder <- rbind(nameslist,miss.names)
> miss.cols <- subset(holder[1,], holder[2,] == "TRUE")

除此之外,我无法弄清楚如何在没有硬编码的情况下添加丢失的列("x3").理想情况下,我希望新的完整数据框也具有与nameslist相同的列.

有任何想法吗？我当前的代码可以忽略,没问题.