RMySQL 错误 - 重复的行名称

Question

当我使用运行下面的代码读取我的 MySQL 服务器 table.

时，我得到了下面的错误

my_data <- dbReadTable(mydb, "ar_data")
Warning message:
row.names not set (duplicate elements in field)

有什么方法可以不让 R 读取行名吗？我的 table 很好，我不想对我的 MySQL table.

做任何更改

Answer 1

这里有几个选项：

library(RMySQL) 
library(DBI)
drv <- dbDriver("MySQL") 
con <- dbConnect (drv, dbname="mydb", user="username") 

data <- mtcars; rownames(data) <- NULL; data$row_names <- rownames(mtcars)[1]
dbWriteTable(con, "mtcars", data, overwrite = T, row.names = F)
head( dbReadTable(con, "mtcars"), 3 )
#    mpg cyl disp  hp drat    wt  qsec vs am gear carb row_names
# 1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4 Mazda RX4
# 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4 Mazda RX4
# 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 Mazda RX4
# Warning message:
# row.names not set (duplicate elements in field) 

# suppress warnings
head( suppressWarnings(dbReadTable(con, "mtcars")), 3 )
#    mpg cyl disp  hp drat    wt  qsec vs am gear carb row_names
# 1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4 Mazda RX4
# 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4 Mazda RX4
# 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 Mazda RX4

# rename column row_names to rn
dbSendQuery(con, "ALTER TABLE mtcars CHANGE COLUMN row_names rn TEXT")
head( dbReadTable(con, "mtcars"), 3 )
#          rn  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 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
# 3 Mazda RX4 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1

dbSendQuery(con, 'DROP TABLE mtcars')
dbDisconnect(con)

RMySQL 错误 - 重复的行名称

RMySQL error - duplicate row names

r

rmysql