r - 如何读取带有特殊分隔符和回车的txt文件？

Question

在 r 中导入 txt 文件时，我只有一行包含所有值，而不是两行。我认为问题是这个#@#@#。你能帮我解决这个问题吗？

文件示例:

A'~'40337463'~''~'1403289'~'4620851'~'21'~''~'STDLONG'~'A-'~'A-'~'2020-06-08 15:05:59 '~''~''~''~''~''~''~''~''~'EU'~''~'新评级'~''~''~'2023-06-28 00:00:00'~''~''~'DE000A254Z26#@#@#A'~'40337464'~''~'1403282'~'4620842'~'21'~''~'STDLONG'~' BBB+'~'BBB+'~'2020-06-08 15:11:49'~''~''~''~''~''~''~''~''~'EE'~'' ~'新评级'~''~''~'2030-12-31 00:00:00'~''~''~'US776743AJ55#@#@#

dd <- data.table::fread("200610-204642spRatingDataNoCUSIP.txt", sep = "~", header = F)

输出:

Answer 1

一种基本方法是编辑您的 .txt -file 并替换那些 #@#@#与换行符。

另一种使用 readr 的方法和 stringr :

df <- read_lines("test.csv") %>%
  str_split("#@#@#", simplify=TRUE) %>%
  read_delim(delim="~", col_names=FALSE) %>%
  mutate(across(everything(), str_remove_all, pattern="'"))

我将文件命名为 test.csv ，相应地更改它。实际上，我不确定这是否适用于大文件，但您可以尝试一下。