如何将矩阵从交叉验证复制并粘贴到 rstudio 控制台（使用剪贴板）？

Question

矩阵为：

     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]   -1    0   -1   -1    0   -1
[2,]   -1    0   -1    1    1    0
[3,]   -1    0    1   -1    0    1
[4,]   -1    0    1    1   -1    0
[5,]    1   -1    0   -1    0    1
[6,]    1   -1    0    1   -1    0
[7,]    1    1    0   -1    0   -1
[8,]    1    1    0    1    1    0

我已经尝试了几个建议，包括最接近成功的尝试：

x <- readClipboard()

[1] "[,1] [,2] [,3] [,4] [,5] [,6]"                     
[2] "+               [1,]   -1    0   -1   -1    0   -1"
[3] "+               [2,]   -1    0   -1    1    1    0"
[4] "+               [3,]   -1    0    1   -1    0    1"
[5] "+               [4,]   -1    0    1    1   -1    0"
[6] "+               [5,]    1   -1    0   -1    0    1"
[7] "+               [6,]    1   -1    0    1   -1    0"
[8] "+               [7,]    1    1    0   -1    0   -1"
[9] "+               [8,]    1    1    0    1    1    0"

距离有用还差得远。

我见过 dput()、dump() 和 scan()... 都给出了更差的结果。

如何从剪贴板粘贴此结构，然后将其移动到 R 脚本中保存？

Answer 1

我们可以使用 read.clipboard 来自 library(psych)

library(psych)
d1 <- read.clipboard()
d1
#     X..1. X..2. X..3. X..4. X..5. X..6.
#[1,]    -1     0    -1    -1     0    -1
#[2,]    -1     0    -1     1     1     0
#[3,]    -1     0     1    -1     0     1
#[4,]    -1     0     1     1    -1     0
#[5,]     1    -1     0    -1     0     1
#[6,]     1    -1     0     1    -1     0
#[7,]     1     1     0    -1     0    -1
#[8,]     1     1     0     1     1     0

输出将是 data.frame，row.names 为 "[1,]" "[2,]" "[3,]"。如果需要，可以更改。

row.names(d1) <- NULL
colnames(d1) <- gsub('[.]+', '', colnames(d1))

如何将矩阵从交叉验证复制并粘贴到 rstudio 控制台（使用剪贴板）？

How to copy and paste a matrix from crossvalidated to the rstudio console (using clipboard)?

clipboard

r

copy-paste