如何实现Google Drive与R（含RStudio、云端脚本）的CSV双向传输？

一、本地RStudio中Google Drive CSV文件的导入与导出 #

推荐使用googledrive包完成操作，这是tidyverse生态下专门对接Google Drive的工具，操作简洁稳定。

1. 准备工作 #

# 安装包（首次运行）
install.packages("googledrive")
# 加载包
library(googledrive)

首次运行会弹出浏览器窗口，登录你的Google账号完成授权，允许R访问Drive数据。

2. 从Google Drive导入CSV到RStudio #

# 搜索目标CSV文件（替换为你的文件名）
target_file <- drive_find(pattern = "raw_data.csv", n_max = 1)

# 直接读取为DataFrame（需搭配readr包）
library(readr)
df <- drive_read(target_file, read_csv)

# 或者先下载到本地临时文件再读取
drive_download(target_file, path = tempfile(fileext = ".csv"), overwrite = TRUE)
df <- read.csv(tempfile(fileext = ".csv"))

3. 将R数据导出为CSV到Google Drive #

# 先将DataFrame写入本地临时CSV
write.csv(df, tempfile(fileext = ".csv"), row.names = FALSE)

# 上传到指定Drive路径，同名文件直接覆盖
drive_upload(
  media = tempfile(fileext = ".csv"),
  path = "/My Drive/数据存储文件夹", # 替换为你的Drive文件夹路径
  name = "processed_data.csv",
  overwrite = TRUE
)

二、Google Cloud自动化R脚本实现「拉取-处理-覆盖」流程 #

这个需求完全可行，核心是通过Google服务账号实现无交互授权，避免手动登录操作。

1. 前期Google Cloud配置 #

• 登录Google Cloud控制台，创建/选择项目，启用「Google Drive API」。
• 在「IAM与管理员」→「服务账号」中创建账号，为其添加「Drive文件编辑」权限。
• 进入服务账号详情页，切换到「密钥」标签，创建并下载JSON格式的密钥文件（脚本运行时需要访问该文件）。
• 打开Google Drive中的目标CSV文件，将服务账号邮箱（JSON文件中client_email字段）添加为协作者，赋予编辑权限。

2. R脚本完整实现 #

# 安装依赖包（首次运行）
install.packages(c("googledrive", "dplyr", "readr"))

# 加载包
library(googledrive)
library(dplyr)
library(readr)

# 服务账号授权（替换为你的密钥文件路径）
drive_auth(service_account_key = "/path/to/your/service-account-key.json")

# 1. 拉取Drive中的CSV文件
target_file <- drive_find(pattern = "raw_data.csv", n_max = 1)
df <- drive_read(target_file, read_csv)

# 2. 数据转换示例（根据你的需求修改）
processed_df <- df %>%
  mutate(adjusted_value = original_value * 1.2) %>%
  filter(original_value > 50)

# 3. 导出并覆盖原文件
temp_csv <- tempfile(fileext = ".csv")
write_csv(processed_df, temp_csv, na = "")

# 使用drive_update直接替换原文件内容
drive_update(
  file = target_file,
  media = temp_csv
)

注意事项 #

• 若在Google Cloud Functions/Cloud Run中运行，建议将密钥文件存储在云存储桶，通过环境变量指定路径，避免硬编码。
• 确保服务账号对目标文件及所在文件夹拥有编辑权限，否则会出现权限错误。

内容的提问来源于stack exchange，提问作者Abdu Kikhia