主页 / coding / 问题 / 78782012
Accepted
deschen
Asked: 2024-07-23 15:04:39 +0800 CST

使用 bind_rows 时出错，其中一个数据框具有 <hash> 类型的列

  • 772

我想绑定来自两个不同数据框的行，其中一个数据框包含一列哈希值，而第二个数据框不包含该列。

library(tidyverse)
library(openssl)

df <- data.frame(x = sha3(letters[1:3], size = 512),
                 y = 1:3)

df2 <- data.frame(y = 4:6)

df |>
  bind_rows(df2)

尝试绑定行时，出现以下错误：

Error in `bind_rows()`:
! Can't combine `..1` <hash> and `..2` <vctrs:::common_class_fallback>.
Run `rlang::last_trace()` to see where the error occurred.

NA我不知怎么就明白了这是怎么回事，因为第二个数据框不包含 x 列。但是，我预期/期望的输出是 bind_rows 仍然有效，并且只用填充 x 列df2。

编辑：

我创建了一个小解决方法，只需将哈希列从 df 转换回字符，但我仍然好奇我是否可以首先避免错误。

4 个回答

  1. Best Answer

    此问题并非特定于哈希。如果您有一个未定义c方法的对象，则会发生此问题。

    bind_rows用途vctrs::vec_rbind和文档说明：

    如果要合并的列继承自一个公共类，且存在为此类层次结构实现的 ac() 方法，则 vec_rbind() 将回退到 base::c()。

    这不是确切的情况（没有公共类），但我们<vctrs:::common_class_fallback>在错误消息中看到了。如果我们定义一个简单的，c.hash它会起作用。不幸的是，它没有保留类。我不知道为什么。

    library(openssl)
library(dplyr)

c.hash <- function(...) {
  args <- list(...)
  class <- oldClass(args[[1]])
  dargs <- lapply(args, unclass)
  res <- do.call(c, dargs)
  oldClass(res) <- class
  res
}

x <- sha3(letters[1:3], size = 512)
class(c(x, NA))
#[1] "hash"     "sha3-512"


df <- data.frame(x = sha3(letters[1:3], size = 512),
                 y = 1:3)

df2 <- data.frame(y = 4:6)

test <- df |>
  bind_rows(df2)
class(test$x)
#[1] "character"
    • 5

  2. 我建议使用rbind.fill：

    plyr::rbind.fill(df, df2)
    • 1

  3. 这是因为sha3()将向量转换为哈希。您可以对其进行转换，例如，as.character()使用

    library(dplyr)
library(openssl)

df <- data.frame(x = as.character(sha3(letters[1:3]), size = 512),
                 y = 1:3)

df2 <- data.frame(y = 4:6)

df |> 
  bind_rows(df2)

    输出为：

                                                                     x y
1 80084bf2fba02475726feb2cab2d8215eab14bc6bdd8bfb2c8151257032ecd8b 1
2 b039179a8a4ce2c252aa6f2f25798251c19b75fc1508d9d511a191e0487d64a7 2
3 263ab762270d3b73d3e2cddf9acc893bb6bd41110347e5d5e4bd1d3c128ea90a 3
4                                                             <NA> 4
5                                                             <NA> 5
6                                                             <NA> 6
    • 1

  4. 在基础上我们可以做

     df = data.frame(x = openssl::sha3(letters[1:3], size = 512), y = 1:3)
 df2 = data.frame(y = 4:6)
 df2[setdiff(names(df), names(df2))]<-NA
 new = rbind(df, df2)
 rm(df, df2) # optional
 new
#>                                                                                                                                  x
#> 1 697f2d856172cb8309d6b8b97dac4de344b549d4dee61edfb4962d8698b7fa803f4f93ff24393586e28b5b957ac3d1d369420ce53332712f997bd336d09ab02a
#> 2 8446c46ee03793ba6e5813ba0db4480008926dd1d19efe2c8eb92f9034da974d2171ae483f29ce3a79ed4fdd621ae1ed14fe12532af95ddd0728779ce5aa842d
#> 3 bfe4d7f7377116dc15f794d902621797b72b32396382de2b6e49d4f1d7eabdfddcfc3bc127bb67f92f9458a5733bb21804e7ccd56b4b6f81049339f477cd279d
#> 4                                                                                                                             <NA>
#> 5                                                                                                                             <NA>
#> 6                                                                                                                             <NA>
#>   y
#> 1 1
#> 2 2
#> 3 3
#> 4 4
#> 5 5
#> 6 6

    其中new是类 的新对象data.frame。

    • 1

相关问题