如何提取R数据帧的单个列作为数据帧?