library(RMySQL)
conn <- dbConnect(MySQL(), dbname = "bangdan", username="", password="",host="",port=)
dbSendQuery(conn,'SET NAMES gbk')
k2<-data.frame(k2)      # k2之前为矩阵，里面有中文和数字
dbWriteTable(conn, "bang",k2,overwrite=TRUE)

下面为执行上述代码后，在数据库中看到的结果。
ID     名称   指数         数量
25            0.0569     226642
26        ʷ    0.0517    54712
27            0.0503   
28            0.05   
29            0.0499   
30        һֻ    0.0493   
31        ͵    0.0487   
32        è    0.0447   
33        è    0.0447      452000
名称列变成了乱码，而且丢失了绝大多数中文数据。
求大神赐教！