r语言如何导出obs.