链接数据库
con <- dbConnect(MySQL(),host='10.000.000.57',username='MY_USERNAME',password='MYPASSWORD',port=3306,dbname='数据库名')
对数据库指定字段插入数据
for (i in 1:nrow(merge_results)){
dbSendQuery(con,paste0("insert into table (name,age,moneyr) values ('",merge_results$NAME[i],"','",merge_results$AGE[i],"','",merge_results$MONEY[i],"')"))}
dbDisconnect(con)