如何在R语言中使用googlesheets4为Google Sheets标签上色

googlesheets4包本身没有提供直接修改工作表标签颜色的专用函数，但可以通过调用Google Sheets API的批量更新接口实现这个需求。以下是具体实现步骤和代码示例：

步骤1：加载包并获取表格信息 #

首先确保已安装googlesheets4，加载后获取目标表格的工作表信息：

library(googlesheets4)

# 替换为你的Google Sheets表格URL或ID
ss <- gs4_get("your-spreadsheet-url-or-id")

# 查看所有工作表的名称和对应的ID（后续需要用ID指定修改目标）
sheet_info <- ss$sheets
print(sheet_info[, c("name", "id")])

步骤2：构造批量更新请求并执行 #

以将名为Sheet1的工作表标签设置为棕色（RGB: 165,42,42）为例：

# 定位目标工作表的ID
target_sheet_id <- sheet_info$id[sheet_info$name == "Sheet1"]

# 构造API请求体：指定要修改的工作表属性（tabColor）
update_request <- list(
  requests = list(
    list(
      updateSheetProperties = list(
        properties = list(
          sheetId = target_sheet_id,
          tabColor = list(
            red = 165/255,
            green = 42/255,
            blue = 42/255
          )
        ),
        fields = "tabColor"
      )
    )
  )
)

# 发送请求完成修改
gs4_do_batch_update(ss, update_request)

补充说明 #

• 颜色值需转换为0-1之间的比例值（将0-255的RGB整数除以255），你可以根据需要替换为其他颜色的RGB值
• 如果需要清除标签颜色，只需将tabColor设为NULL即可
• 若要批量修改多个工作表的标签颜色，只需在requests列表中添加多个updateSheetProperties对象

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