如题，读取大量文件时多次使用for循环将降低效率，主要遇到以下几个问题：（1）读取多层文件夹的数据，除了循环有什么比较好用的方法？
（2）读入json文件和提取数据、写入数据时有什么比较高效的办法？能否考虑减少循环和多线程运行？
（3）将结果df_all用RMySQL包中的dbWriteTable(con1,"data_test",df_all,overwrite=TRUE)写入MySQL数据库时，中文出现乱码，尝试使用了dbSendQuery(con1,"set names utf8")转化，还是未解决。
   以下是我用比较笨的方法写的，可以正常运行，请问如何优化代码，可以提高效率。R如果使用多线程，有什么推荐的好方法，谢谢！代码如下：