地球の画像をプロットしてみよう。

今から４０年ほど前、月へ向かっていたアポロ１７号が素晴らしい地球の画像を撮影しました。

その画像ファイルは NASA のウェブサイトにあります。

今回はサイズの小さな "AS17-148-22727.jpg" を使います。

このファイルを R の作業用フォルダにダウンロードします。

この画像ファイルは JPEG フォーマットなので、あらかじめ install.packages("jpeg") で jpeg パッケージをインストールしておきます。

そして、次のようなスクリプトを実行しましょう。

library(ggplot2)
library(jpeg)

dummy <- data.frame(x = 0, y = 0)
image <- readJPEG("AS17-148-22727.jpg")

g <- ggplot(dummy, aes(x, y))
g <- g + annotation_raster(image, -Inf, Inf, -Inf, Inf)
g <- g + coord_equal() + labs(x = "", y = "")
g <- g + theme(axis.ticks = element_blank(), axis.text = element_blank())
print(g)

結果はこうなります。