1、首先需要导入专门连接Mysql用的R包：RMySQL、dplyr、DBI；这三个包
2、创建连接mysql的Url，地址用户名，密码
3、我们用：DBI::dbConnect(MySQL()来连接数据库，并且植入好刚刚创建好的 用户名密码，详情看图片
4、当连接好数据库最重要的一个环节就是转码，烂瘀佐栾这个需要看数据库中数据记录的编码，一般是UDF-8我的是gbk格式 ：RMySQL::dbSendQuery(Laputa, "SET NAMES gbk")
5、接下来我们就可以用SQL语言对数据库的数据进行查询到R语言中了，下面我写出了一个简单代码提取数据到R中：a <- DBI::dbGetQuery(Laputa,"SELE潮贾篡绐CTa.id 工单id,a.apply_time 提交时间,a.estimate_status 状态,a.puzu_price 普租价格,a.community_id 小区ID,b.city 城市名称,b.district 行政区,b.block 商圈,b.name 小区名字FROM Forecast.house_pricing aLEFT JOIN Laputa.xiaoqus b on a.community_id=b.idWHERE a.estimate_status ='评估通过'and a.community_id >0and a.puzu_price >0LIMIT 100 ") %>% mutate(提交时间 = as.Date(提交时间))
6、运行完这段代码后，右上角我们看下这段SQL存在了变量a中，我们点开看下数据
7、接下来导出数据到新表，导入包openxlsx烂瘀佐栾这个包是专门导出数据到新表的包，我们用到函数：a <- openx造婷用痃lsx::write.xlsx(a,'C:/Users/Administrator/Desktop/城市数据.xlsx')；把数据导出到桌面，且命名城市数据；
8、接下来看下结果展示，代码生成后可1秒导出需要数据，大大提高工作效率
