不带引号将 table 复制到剪贴板

Question

我想将粘贴数据从 R 复制到剪贴板，然后再复制到 powerpoint。由于要复制粘贴的东西很多，所以我想尽可能地减少步骤。以下代码获取了我的数据，但带有引号 ("")，之后我必须手动删除，这很烦人：

# Data similar to mine:
library(stringi)    
dfrm <- cbind(mtcars, str=stri_rand_strings(nrow(mtcars), 5, '[A-Z]'))
# Output similar to what I want:
a <- t(dfrm["Toyota Corolla", c("cyl", "str", "disp", "hp", "drat")])
      #
      #      Toyota Corolla
      # cyl  "4"               # Presence of a string element in 
      # str  "NVQJS"           # my vector forces all elements to 
      # disp "71.1"            # become string upon transposition
      # hp   "65"          
      # drat "4.22"   
# I want to get rid of all labels:
write.table(a, "clipboard", row.names = F, col.names = F)

      # This is what it looks like when I paste this:
      # 
      # "4"
      # "NVQJS"
      # "71.1"
      # "65"
      # "4.22"

如何去掉引号，使我的数据在粘贴时看起来像这样，无需手动删除引号？谢谢

      # Desired result when pasted:
      # 
      # 4
      # NVQJS
      # 71.1
      # 65
      # 4.22

Answer 1

只需将 quote=FALSE 添加到您的 write.table

write.table(a, "clipboard", row.names = F, col.names = F, quote=F)

不带引号将 table 复制到剪贴板

Copy table to clipboard without quotes

clipboard

r

copy-paste

write.table