使用R从json文件构建数据帧时有效替代merge（）？

I have written the following code which works, but is painfully slow once I start executing it over thousands of records:I have written the following code which works,