r - 将 pgm 转换为矩阵
问题描述
我需要将 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", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "255", "255",
"255", "255", "255", "255", "255", "255", "255", "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")
前三行是标题,可以删除,但请注意:
length(pgm) # 629
但是25*25+3
is 628
,所以要么标题由 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
推荐阅读
- android - 如何在调试模式下测试销毁的生命周期?
- python - 路径有空格时无法导入
- reactjs - 使用 React Native 获取大量数据
- tensorflow - TFLite 中缺少广播的解决方法
- javascript - Promise.resolve 响应分配给外部变量
- gem5 - Gem5 模拟中未显示多个 CPUID
- java - 具有 gradle 依赖关系的 MBeans 构造函数错误
- dplyr - 如何根据R中最后一行中的条件过滤第一行和最后一行
- ckeditor - CKEditor 仅粗斜体
- c - 抑制来自 PC Lint Global Wrap up 的消息?