如何在R中正确打开此文本文件？

我在一个文件中有这行代码：

{"id":53680,"title":"daytona1-usa"}

但当我尝试使用以下命令在R中打开它时：

df <- read.csv("file1.txt", strip.white = TRUE, sep = ":")

我要做的是打开文件，使列如下所示：

Col1: X53680.title
Col2: daytona1.usa.url

Col1: 53680
Col2: daytona1-usa

我在R怎么做

编辑：我正在读取的实际文件如下：

{"id":53203,"title":"bbc-moment","url":"https:\/\/wow.bbc.com\/bbc-ids\/live\/enus\/211\/53203","type":"audio\/mpeg"},{"id":53204,"title":"shg-moment","url":"https:\/\/wow.shg.com\/shg-ids\/live\/enus\/212\/53204","type":"audio\/mpeg"},{"id":53205,"title":"was-zone","url":"https:\/\/wow.was.com\/was-ids\/live\/enus\/213\/53205","type":"audio\/mpeg"},{"id":53206,"title":"xx1-zone","url":"https:\/\/wow.xx1.com\/xx1-ids\/live\/enus\/214\/53206","type":"audio\/mpeg"},], WH.ge('zonemusicdiv-zonemusic'), {loop: true});

在中阅读后，我删除了第一列，然后每隔第三列和第四列删除一列：

# Delete the first column
df <- df[-1]

# Delete every 3rd and 4th columns
i1 <- rep(seq(3, ncol(df), 4) , each = 2) + 0:1
df <- df[,-i1]

#删除第一列
df如果文件中只有一个JSON，那么

jsonlite:：read_json（“file1.txt”）
#$id
# [1] 53680
#$title
#[1]“美国代顿1号”

如果它是NDJSON（
N
ewline-
D
elimited json），那么

jsonlite:：stream_in（文件（“file1.txt”），verbose=FALSE）
#身份证名称
#美国代顿1 53680
如果文件中只有一个JSON，则

jsonlite:：read_json（“file1.txt”）
#$id
# [1] 53680
#$title
#[1]“美国代顿1号”

如果它是NDJSON（
N
ewline-
D
elimited json），那么

jsonlite:：stream_in（文件（“file1.txt”），verbose=FALSE）
#身份证名称
#美国代顿1 53680
虽然如果数据格式正确，上面的答案可能是正确的，但它们似乎不适用于我所拥有的数据，因此我最终得出的结论是：

df <- read.csv("file1.txt", header = FALSE, sep = ":", dec = "-")

# Delete the first column
df <- df[-1]

# Delete every 3rd and 4th columns
i1 <- rep(seq(3, ncol(df), 4) , each = 2) + 0:1
df <- df[,-i1]

df[] <- lapply(df, gsub, pattern = ".title", replacement = "", fixed = TRUE)
df[] <- lapply(df, gsub, pattern = ",url", replacement = "", fixed = TRUE)

df虽然如果数据格式正确，上面的答案是正确的，但它们似乎不适用于我拥有的数据，因此我最终得出的结论是：

df <- read.csv("file1.txt", header = FALSE, sep = ":", dec = "-")

# Delete the first column
df <- df[-1]

# Delete every 3rd and 4th columns
i1 <- rep(seq(3, ncol(df), 4) , each = 2) + 0:1
df <- df[,-i1]

df[] <- lapply(df, gsub, pattern = ".title", replacement = "", fixed = TRUE)
df[] <- lapply(df, gsub, pattern = ",url", replacement = "", fixed = TRUE)

df你能看一下我问题的编辑部分吗？我添加了我试图打开的完整文件，但当我试图运行代码打开该文件时，我在parse_con（txt，bigint_as_char）中看到一个错误：parse error:trailing garbage/53203，“type”：“audio\/mpeg”}，{“id”：53204，“title”：“shg momen（就在这里）------^这改变了一切。它的一部分是合法的json，但整体上不是。我发现奇怪的是，您显示的字符串在其最后一个dict结尾处有一个
]
，就好像它是dict的json列表，但没有一个开头
[
。这表明您给我们的示例不完整和/或不具有代表性，或者文件格式更糟糕。在这一点上，有几种方法可以解析它，但我更希望有更多的图片。例如，是否有一个前导的
[
？所有的都在一行吗？是否有其他列表（
[…]
）在结构中？你能阅读我问题的编辑部分吗？我添加了我试图打开的完整文件，但当我试图运行你的代码打开该文件时，我在parse_con（txt，bigint_as_char）中看到一个错误：parse error:trailing garbage/53203，“type”：“audio\/mpeg”}，{“id”：53204，“title”：shg momen（就在这里）--^这改变了一切。它的一部分是合法的json，但整体上不是。我觉得奇怪的是，您显示的字符串在其最后一个dict结尾处有一个
]
，好像它是一个dict的json列表，但没有一个开头
[
。这表明您给我们的示例不完整和/或不具有代表性，或者文件格式更糟糕。在这一点上，有几种方法可以解析它，但我更希望有更多的图片。例如，是否有一个前导的
[
？所有的都在一行吗？是否有其他列表（
[…]
）在结构中？