重现问题：

library(tidyverse)

df1 <- tibble(col = c("one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten"))
df2 <- tibble(col = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))
bind_rows(df1, df2)

Error in `bind_rows()`:
! Can't combine `..1$col` <character> and `..2$col` <double>.
Run `rlang::last_trace()` to see where the error occurred.

字符串

说明

当您尝试合并字符类型值的列（例如，"hello world"），其中一列是双类型值（例如100）。

解决方案

找到有问题的列，删除它们，或者转换它们，使它们具有相同的格式：

df3 <- tibble(col = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10"))

df3 %>% 
  mutate(col = as.numeric(col)) %>% 
  bind_rows(df2) # works, returns a column of doubles

df2 %>% 
  mutate(col = as.character(col)) %>%
    bind_rows(df3) # works, returns a column of characters

型

查找不匹配列

下面的函数查找df1中的列，这些列在df2中，但不具有相同的列类型：

compare_df_col_types <- function(df1, df2) {
  t1 <- df1 %>% 
    map_df(class) %>%
    pivot_longer(everything(), names_to = "df1_cols", values_to = "df1_class")
    t2 <- df2 %>%
    map_df(class) %>%
    pivot_longer(everything(), names_to = "df2_cols", values_to = "df2_class")
    comparison <- t1 %>%
        left_join(t2, by = c("df1_cols" = "df2_cols")) %>%
        filter(df1_class != df2_class)
    return(comparison)
}

型