使用DBI::dbWriteTable向Oracle写入数据时报类型不兼容错误

我想用DBI包把R中的数据框写入Oracle数据库，RODBC的sqlSave能正常运行，但用DBI的dbWriteTable时出现错误：Error: Not compatible with requested type: [type=character; target=double]，数据库里只创建了空表，没写入数据。我试过指定field.types参数，也检查了自动生成的SQL数据类型映射，还是没解决，求修正方法。

报错的DBI代码 #

# 使用mtcars数据集
data("mtcars")

# 连接Oracle数据库
STG <- DBI::dbConnect(odbc::odbc(), dsn="XXX", uid="XX", pwd="XXXXX")

# 将数据写入数据库
DBI::dbWriteTable(STG, name = "DBM_TEST", value = mtcars[1:5, ], overwrite = TRUE)

# 断开连接
DBI::dbDisconnect(STG)

DBI代码运行报错输出 #

> data(mtcars)
> STG <- DBI::dbConnect(odbc::odbc(), dsn = "XXX", uid = "XX", 
+     pwd = "XXXXX")
> DBI::dbWriteTable(STG, name = "DBM_TEST", value = mtcars[1:5, ], overwrite = TRUE)
Error: Not compatible with requested type: [type=character; target=double].

正常运行的RODBC代码 #

library(RODBC)

# 连接数据库
STG <- odbcConnect("XXX", uid="XXX", pwd="XXXXX")

# 写入表（先尝试删除已有表）
try(sqlDrop(STG, 'DBM_TEST', errors = FALSE), silent = TRUE)
sqlSave(STG, mtcars, 'DBM_TEST', rownames = 'INDEX', addPK = TRUE, safer = FALSE)

# 验证写入结果
sqlFetch(STG, "DBM_TEST", max = 5)

# 断开连接
odbcClose(STG)

RODBC代码运行输出 #

> data(mtcars)
> STG <- odbcConnect("XXX", uid="XXX", pwd="XXXXX")
> try(sqlDrop(STG, 'DBM_TEST', errors = FALSE), silent = TRUE)
> sqlSave(STG, mtcars, 'DBM_TEST', rownames = 'INDEX', addPK = TRUE, safer = FALSE)
> sqlFetch(STG, "DBM_TEST", max = 5)
              INDEX  mpg cyl disp  hp drat    wt  qsec vs am gear carb
1         Mazda RX4 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
2     Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
3        Datsun 710 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
4    Hornet 4 Drive 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
5 Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
> odbcClose(STG)

自动生成的SQL数据类型 #

> DBI::dbDataType(STG, mtcars)
            mpg             cyl            disp              hp            drat              wt            qsec              vs              am 
"BINARY_DOUBLE" "BINARY_DOUBLE" "BINARY_DOUBLE" "BINARY_DOUBLE" "BINARY_DOUBLE" "BINARY_DOUBLE" "BINARY_DOUBLE" "BINARY_DOUBLE" "BINARY_DOUBLE" 
           gear            carb 
"BINARY_DOUBLE" "BINARY_DOUBLE" 

解决方案 #

这个错误通常源于ODBC驱动在R数据类型与Oracle类型映射时的隐性冲突，可尝试以下方法修复：

1. 统一数据框列类型 #

先确认数据框所有列的类型，确保数值列都是numeric类型而非字符型。可通过str(mtcars)检查，若存在类型异常，强制转换：

# 强制将所有列转为numeric（按需调整）
mtcars_clean <- mtcars %>% dplyr::mutate(across(everything(), as.numeric))

2. 精准指定field.types #

替换自动生成的BINARY_DOUBLE，改用Oracle原生的NUMBER类型映射：

field_types <- list(
  mpg = "NUMBER",
  cyl = "NUMBER",
  disp = "NUMBER",
  hp = "NUMBER",
  drat = "NUMBER",
  wt = "NUMBER",
  qsec = "NUMBER",
  vs = "NUMBER",
  am = "NUMBER",
  gear = "NUMBER",
  carb = "NUMBER"
)

DBI::dbWriteTable(STG, name = "DBM_TEST", value = mtcars[1:5, ], 
                  overwrite = TRUE, field.types = field_types)

3. 处理行名写入（关键差异点） #

RODBC代码将行名转为了INDEX列，但DBI默认会单独处理行名，可能引发类型识别错误。有两种处理方式：

# 方法1：不写入行名
DBI::dbWriteTable(STG, name = "DBM_TEST", value = mtcars[1:5, ], 
                  overwrite = TRUE, row.names = FALSE)

# 方法2：将行名转为数据框列（对齐RODBC行为）
mtcars_with_index <- mtcars %>% 
  tibble::rownames_to_column(var = "INDEX")

DBI::dbWriteTable(STG, name = "DBM_TEST", value = mtcars_with_index[1:5, ], 
                  overwrite = TRUE, row.names = FALSE)

4. 更新驱动与包 #

确保odbc、DBI包为最新版本，同时检查Oracle ODBC驱动是否为官方最新版（如Instant Client ODBC），旧版本驱动常存在类型映射bug。

内容的提问来源于stack exchange，提问作者danadbm