将矩阵读入 r 而不进行分隔

Question

我想读入 R 的文件看起来像这样

0010101010101010101
1110101010101010101
1111110101010111000
0001010101000010100

当我读到问题是 R 认为每一行都是一个数字并且只显示

   V1
1 Inf
2 Inf
3 Inf
4 Inf
5 Inf
6 Inf

如何将其读入包含 0 和另一个元素的矩阵？

Answer 1

一个选项是

as.matrix(read.fwf('triub.txt', widths=rep(1,19)))
#    V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19
#[1,]  0  0  1  0  1  0  1  0  1   0   1   0   1   0   1   0   1   0   1
#[2,]  1  1  1  0  1  0  1  0  1   0   1   0   1   0   1   0   1   0   1
#[3,]  1  1  1  1  1  1  0  1  0   1   0   1   0   1   1   1   0   0   0
#[4,]  0  0  0  1  0  1  0  1  0   1   0   0   0   0   1   0   1   0   0

或者

as.matrix(read.table(text=gsub("", ' ', readLines('triub.txt'))))
#    V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19
#[1,]  0  0  1  0  1  0  1  0  1   0   1   0   1   0   1   0   1   0   1
#[2,]  1  1  1  0  1  0  1  0  1   0   1   0   1   0   1   0   1   0   1
#[3,]  1  1  1  1  1  1  0  1  0   1   0   1   0   1   1   1   0   0   0
#[4,]  0  0  0  1  0  1  0  1  0   1   0   0   0   0   1   0   1   0   0

或者您可以使用 sed 或 awk(在 linux 中)进行管道

 as.matrix(read.table(pipe("sed 's/./& /g' triub.txt"), header=FALSE))
 #    V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19
 #[1,]  0  0  1  0  1  0  1  0  1   0   1   0   1   0   1   0   1   0   1
 #[2,]  1  1  1  0  1  0  1  0  1   0   1   0   1   0   1   0   1   0   1
 #[3,]  1  1  1  1  1  1  0  1  0   1   0   1   0   1   1   1   0   0   0
 #[4,]  0  0  0  1  0  1  0  1  0   1   0   0   0   0   1   0   1   0   0

as.matrix(read.table(pipe("awk 'BEGIN{FS=\"\"; OFS=\" \"}{$1=$1}1' triub.txt"),
     header=FALSE))