将 pgm 转换为 Matrix

Question

我需要将 pgm 文件转换为 25 行 x 25 列的 csv 文件。

df <- read.delim("1_1.pgm", skip =3, row.names = NULL, sep = "," ,col.names = NULL, header = FALSE, fill = TRUE)
write.csv(df, "test.csv")

我已经这样做了，但我认为我必须将它转换为矩阵，因为上面的代码只是一个单独的列，后面是数字列表，所以它不是 25x25，而是像一个 625 个数字列。

任何人都可以帮助我如何获取文本文件并将其更改为 25x25 的矩阵吗？

谢谢！

Answer 1

要将vector转换为matrix，您可以简单地使用matrix函数：

matrix(data, nrow, ncol)

根据数据是否应按行而不是按列填充，您可以指定参数 byrow=TRUE

在您的特定情况下，使用 readLines:

读取文件

pgm = readLines("1_1.pgm")

对于无法访问您的文件的其他用户，这里是 dput 的输出，可以简单地复制粘贴到 R 控制台：

pgm = c("P2", "# Created by GIMP version 2.10.22 PNM plug-in", "25 25", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "2", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "2", "2", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "2", "2", "2", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "2", "2", "255", "2", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "2", "2", "255", 
"255", "2", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "2", "255", "255", "255", "2", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "2", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "2", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "2", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "2", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "2", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "2", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "2", "2", "2", 
"2", "2", "2", "2", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255", "255", "255", 
"255", "255", "255", "255", "255", "255", "255")

前三行是header，可以去掉，但注意：

length(pgm) # 629

但是25*25+3是628，所以要么header由4个元素组成，要么最后还有一个额外的元素。

pgm = pgm[-(1:4)] # remove first 4 elements
pgm = as.numeric(pgm) # convert from character to numeric vector
pgm = matrix(pgm, 25, 25, byrow=TRUE) # populate matrix from pgm by rows

# pgm is now a matrix:
is.matrix(pgm) # TRUE
dim(pgm) # [1] 25 25

将 pgm 转换为 Matrix

Convert pgm to Matrix

r

pgm