將 pgm 轉換為矩陣

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 function：

matrix(data, nrow, ncol)

根據是否應按行而不是按列填充數據，您可以指定參數byrow=TRUE

在您的特定情況下，使用readLines讀取文件：

pgm = readLines("1_1.pgm")

對於無權訪問您的文件的其他用戶，這里是來自 dput 的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