这不是符合标准的分号CSV。"thing"引号应该是双引号才能转义，如在"37129";"11746; weird";"weird ""thing"""中。创建该文件的任何内容都不符合标准。“
我们可以尝试使用regex来解析内容，将嵌入的"引号改为双引号""（而不更改括起来的" s），可能是这样的：

## on the shell, not in R
$ sed -E 's/([^;])"([^;])/\1""\2/g' quux.csv > newquux.csv

个字符
人们可能会在R中这样做，这通常是好的。但是，如果csv文件很大，那么这将导致R的内存消耗不必要的增长......同样，只有在文件很大时才是问题。

read.csv2(
  text = gsub('(?<=[^;])"(?=[^;])', '""',
              readLines("quux.csv"), perl = TRUE))
#      X1           X2            X3
# 1     1            0          test
# 2 37129 11746; weird weird "thing"
# 3 27929            1   xyz Limited

型
上述两种方法都适用于readr::read_csv2：

readr::read_csv2("newquux.csv")
readr::read_csv2(
  I(gsub('(?<=[^;])"(?=[^;])', '""',
         readLines("quux.csv"), perl = TRUE)))

型
(The I(..)在这里是必需的，因为否则它会选择查找名为"X1";"X2";"X3"的文件。）

我认为你需要的是指定"作为引号字符，我得到了我认为你想要的：

read.table("test.csv", sep=";", quote = "\"", header= FALSE)

字符串
但是，引号被删除，因为它们是引号字符，您是否也要保留它们？
输出：

V1           V2          V3
1    X1           X2          X3
2     1            0        test
3 37129 11746; weird weird thing
4 27929            1 xyz Limited

型

这是一种非标准的文件格式，但我们可以使用readLines读取它，然后用文件中没有的其他字符替换分隔引号-这里我们使用单引号作为该字符。

"my_file.csv" |>
  readLines() |>
  gsub('^"|"$', "'", x = _) |>  # replace " with ' at start & end of each line
  gsub('";"', "';'", x = _) |>  # replace ";" with ';'
  read.csv2(text = _, quote = "'")
##      X1           X2            X3
## 1     1            0          test
## 2 37129 11746; weird weird "thing"
## 3 27929            1   xyz Limited

字符串
我们可以用这段代码来检查文件中有哪些字符。任何未列出的字符都可以用作新的引号字符。

"my_file.csv" |>
  readLines() |>
  strsplit("") |>
  unlist() |>
  table() |>
  names() |>
  cat("\n")
## " ; 0 1 2 3 4 6 7 9 d e g h i L m n r s t w x X y z

型
或者我们可以用这个代码来检查一个特定的字符，这里是单引号，是否出现在文件中。如果像问题中的示例输入那样返回1，则该字符不会出现，否则会出现。

max(count.fields("my_file.csv", sep = "'", quote = ""))
## [1] 1

型