r - 如何在ggplot2中绘制png图像？

Question

图片显示不正常，向左旋转了90度。

library("png")
library("ggplot2")

download.file("https://upload.wikimedia.org/wikipedia/commons/7/70/Example.png",
              "wiki.png", mode = 'wb')
img = readPNG("wiki.png")

grd = expand.grid(1:178, 1:172)
dim(img) = c(178 * 172, 3)
img = as.data.frame(img)
img = cbind(grd, img)
colnames(img) = c("X", "Y", "R", "G", "B")
img$RGB = rgb(img$R, img$G, img$B)

ggplot(img, aes(x = X, y = Y, fill = RGB)) +
  geom_raster() +
  scale_fill_identity()

Answer 1

您的光栅图像本质上是一个矩阵 - 第一行，左上角的第一列，以及维度(行、列)的典型矩阵排序。

ggplot 的默认值是在笛卡尔坐标系中绘制数据，如果您的绘图全部为正值，则“开始”(原点)是左下角，维度的典型顺序是(x，y)。

这些是非常不同的系统，因此您需要在它们两者之间进行转换才能采用这种方法:aes(x = Y, y = -X, fill = RGB) - 虽然为了使事情更清楚，您可能希望为图像坐标选择不同于 X 和 Y 的名称。