移除R中文本行的编号

Question

我得到了R中的输出，我希望将输出复制并粘贴到其他Microsoft应用程序中。然而，每一行都有编号。我该怎么删除这些数字？

例如：

library(stringr)
str_extract_all(x, "“.*?”") %>%
  .[[1]]

1“利用肉桂疫霉菌( Phytophthora cinnamomi )的蛋白质组学方法验证和改造死后病的基因。

2“栽培面积对意大利硬粒小麦籽粒真菌群落和次生代谢物的存在有影响”。

小麦对黑斑病菌( Pyrenophora Repentis) ToxB真菌效应物敏感性的遗传分析

4“当时间真的是金钱的时候:原位定量测定小麦病原菌黑曲霉( Blumeria . sp. tritici)中的间位菌素抗性突变G143A。

Answer 1

您可以使用cat从R控制台复制输出：

library(stringr)

str_extract_all(x, "“.*?”") %>%
  .[[1]] %>%
  paste0(collapse = '\n') %>% 
  cat

这将打印输出没有数字，并将很容易复制。

Answer 2

这些行仅在控制台输出中编号。

但不要从那里复制/粘贴。将输出写入文件。例如，使用readr::write_lines

library(stringr)
library(readr)

str_extract_all(x, ".*?") %>%
  .[[1]] %>%
  write_lines(file = "output.txt")