如何在 R 中编写由 Google 电子表格正确读取的 CSV

Question

问题

我正在尝试将数据框写入 CSV 文件，该文件将被 Google 电子表格正确读取，但是我遇到了特定列格式的错误。

有一列名为“详细信息”，其值类似于{\"campaign_id\":1,\"line_item_id\":1234}。此列格式由 R 从 Google 电子表格提供的原始数据帧中正确读取，但当写入 CSV 时，该列沿, 分为两列，推动覆盖以下列的值（默认为空） .

数据

R 中的数据框如下所示：

data <- structure(
  list(
    `Line Item Id` = c(1234, 4567),
    Details = c(
      "{\"campaign_id\":1,\"line_item_id\":1234}",
      "{\"campaign_id\":1,\"line_item_id\":4567}"
    ),
    `Bid Strategy Type` = c("",""),
    `TrueView Video Ad Formats` = c("In-stream / Video Discovery",
                                    "In-stream / Video Discovery"),
    `TrueView Bid Strategy Type` = c("Manual CPV",
                                     "Manual CPV")
  ),
  row.names = 1:2,
  class = "data.frame"
)

目前的做法

我尝试在引用中写下相关的专栏：

图书馆（tidyverse）

data %>%
  mutate(Details = dQuote(Details,q = )) %>%
  write.csv("test.csv", fileEncoding = "UTF-8",na = "",row.names = FALSE,quote = FALSE)

但这似乎不起作用，省略dQuote也不起作用。

我的输出 csv 是这样的：

test.csv generated by above code

更多详情

这里涉及的数据是 DV360 生成的 SDF，DV360 是一个用于管理 YouTube 广告活动的 Google 平台。在我的过程中，我从 DV360 下载了一个 SDF，更改了 R 中的一些值并将其上传回来。但是，由于所描述的问题，目前无法重新上传。我已经对其进行了测试，以确认上述列问题是导致问题的原因，并且如果手动更正上传工作正常。

预期输出

我已经添加了预期的输出和我得到的输出。

我现在拥有的：

Line Item Id,Details,TrueView Video Ad Formats,TrueView Bid Strategy Type
14596716402,“{"campaign_id":283,"line_item_id":99588}”,In-stream / Video Discovery,
14596725552,“{"campaign_id":283,"line_item_id":99585}”,In-stream / Video Discovery,

我需要什么：

Line Item Id,Details,TrueView Video Ad Formats,TrueView Bid Strategy Type
1234,"{""campaign_id"":1,""line_item_id"":1234}",,In-stream / Video Discovery
4567,"{""campaign_id"":1,""line_item_id"":4567}",,In-stream / Video Discovery

非常有趣的是，当我在 googlesheets 中手动解决问题然后下载文件时，我得到了什么：

Line Item Id,Details,TrueView Video Ad Formats,TrueView Bid Strategy Type
1234,"""{""""campaign_id"""":1,""""line_item_id"""":1234}""",,In-stream / Video Discovery
4567,"""{""""campaign_id"""":1,""""line_item_id"""":4567}""",,In-stream / Video Discovery

Answer 1

在得到@Greg 和@MrFlick 的宝贵意见后，我终于能够解决它。

为了让 Google 生态系统（电子表格和 Dv360）正确读取它需要具有以下格式的列：

"{""campaign_id"":1,""line_item_id"":1234}"

使用dQuote() 将在列周围加上必要的引号，但由于我的系统设置，提供了错误的引号类型。所以我们需要推迟useFancyQuotes。

此外，campaign_id 和 line_item_id 周围已经出现的引号需要双引号。

也许有更快的方法，但下面的代码会起作用：

library(dplyr) # only needed for pipe, not part of solution

options(useFancyQuotes = FALSE)  

data %>%
  mutate(Details = dQuote(gsub('"','""',Details))) %>%
  write.csv("test3.csv", fileEncoding = "UTF-8",na = "",row.names = FALSE,quote = FALSE)

因此，我们需要首先将所有引号转换为双引号，我使用 gsub() 进行了此操作，然后使用 dQuote() 在列周围加上最终引号，确保不要使用花哨的定向引号。