根据其他数据框更改数据帧类

Question

我有一个从 Excel 导入的 R 数据框和一个使用脚本创建的数据框。这些数据框包含相同的列，但由于其中一列是从 Excel 导入的，因此列的类与使用脚本创建的数据框的列不同。 数据帧包含 500 多列，因此单独完成会花费大量时间。有什么方法可以将 Excel 导入的数据框的所有列的类更改为脚本创建的数据框的列的类吗？

非常感谢！

Answer 1

df1 <- data.frame(a=1,b="2")
df2 <- data.frame(a=1L,b=2,d=3)
nms <- intersect(names(df1), names(df2))
df2[nms] <- Map(function(ref, tgt) { class(tgt) <- class(ref); tgt; }, df1[nms], df2[nms])
str(df2)
# 'data.frame': 1 obs. of  3 variables:
#  $ a: int 1
#  $ b: chr "2"
#  $ d: num 3

当然，$a 仍然是整数，而不是转换为数字；如果这不是问题，那么这就足够了。如果不是，那么可能会首选这种更详细、更灵活的选项：

cls <- sapply(df1[nms], function(z) class(z)[1])
df2[nms] <- Map(function(tgt, cl) {
  if (cl == "numeric") {
    tgt <- as.numeric(tgt)
  } else if (cl == "integer") {
    tgt <- as.integer(tgt)
  } else if (cl == "character") {
    tgt <- as.character(tgt)
  }
  tgt
}, df2[nms], cls)
str(df2)
# 'data.frame': 1 obs. of  3 variables:
#  $ a: num 1
#  $ b: chr "2"
#  $ d: num 3

sapply(.., class(z)[1]) 背后的基本原理是某些类的长度大于 1 (例如，tbl_df、POSIXct），这会破坏该过程。