额 在三个统计论坛上发了此贴都没人回答[s:12]
https://bbs.pinggu.org
http://f.dataguru.cn
http://cos.name
不过查看了文档资料 自己发现了一个方法[s:11]
lhs <- as.numeric(LIST(rules@lhs), "vector")
rhs <- as(LIST(rules@lhs), "vector")
ruletable <- data.frame(cbind(lhs, rhs))
dbWriteTable(con, "tablename", ruletable, overwrite = TRUE)
亲测成功哦
希望有高手看看是否有更好的方法...