旋转图像使其处于直立位置

Question

我正在尝试可视化数字5的图像。最初使用代码：

image(matrix(data[,11552], nrow = 28, byrow = TRUE), col = gray(0:255/255))

看起来如下图：

当我使用代码转换矩阵时：

image(t(matrix(data[,11552], nrow = 28, byrow = TRUE)), col = gray(0:255/255))

，看起来像：

正如你所看到的，我仍然无法正确5。如何进一步旋转图像以使5处于直立位置？

data的维度为：

[1]   784 11552

Answer 1

以下是您的要求吗？

windows()
image(volcano)

windows()
image(volcano[nrow(volcano):1, ncol(volcano):1])

注意：我在Windows上运行它。

编辑。

上面的代码水平和垂直翻转图像。如果只需要将图像颠倒显示，只需反转列索引。

windows()
image(volcano[, ncol(volcano):1])

Answer 2

您可以尝试撤消数据（使用rev()）而不是转置数据吗？

只是一个想法，因为t()翻转水平和垂直，以便t(t(data)) = data。