问题描述
我需要将 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 的矩阵的任何帮助吗?
谢谢!
解决方法
要将 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","2","255")
前三行是标题,可以去掉,但要注意:
length(pgm) # 629
但是 25*25+3
是 628
,所以要么头部包含 4 个元素,要么在结尾处有另一个额外的元素。
pgm = pgm[-(1:4)] # remove first 4 elements
pgm = as.numeric(pgm) # convert from character to numeric vector
pgm = matrix(pgm,25,byrow=TRUE) # populate matrix from pgm by rows
# pgm is now a matrix:
is.matrix(pgm) # TRUE
dim(pgm) # [1] 25 25