R矩阵变换镜像中的换位图像

Question

我有一个数据帧，我要转换成一个矩阵。每一行代表白色、灰色和黑色的图像。

图像对应于数字5。我在想，数字5出现镜像时，我遗漏了什么？

plotimage <- function(df,n, imageTitle) {
  convertedImage <- df
  matrx <- matrix(unlist(convertedImage[n,1:784]), byrow = T, nrow=28)
  image(col = gray(0:255/255), z = matrx)
}

plotimage(image5, 1600,"Image of 5")

输出我想要

5号没有镜像。

谢谢,

​

​

Answer 1

这是因为image的工作方式(不寻常)：

注意，图像将z矩阵解释为f(xi，yj)值的表，因此x轴对应行号，y轴对应列数，第1列位于底部，即传统打印矩阵布局的90度逆时针旋转。

这就是如何解释您的matrx。因此，写作

image(col = gray(0:255/255), z = matrx[nrow(matrx):1, ])

应该把它修好。