如何在R中将旧数据帧转换为新数据帧?