【R】ggdogs

1. はじめに

ggdogsは、簡単に予想がつくようにggplotに犬のgeomを提供するパッケージです。

2. インストール

Githubからインストールできます。

remotes::install_github("R-CoderDotCom/ggdogs@main")

3. つかってみる

使える犬は、下記の通りです。

"doge" (default) "doge_strong" "chihuahua" "eyes" "gabe" "glasses" "tail" "surprised"
"thisisfine" "hearing" "pug" "ears" "husky" "husky_2" "chilaquil"

例をそのまま実行してみます。

grid <- expand.grid(1:5, 3:1)

df <- data.frame(x = grid[, 1],
                 y = grid[, 2],
                 image = c("doge", "doge_strong", "chihuahua", "eyes", "gabe", "glasses", "tail", "surprised",
"thisisfine", "hearing", "pug", "ears", "husky", "husky_2", "chilaquil"))
                           
library(ggplot2)
ggplot(df) +
 geom_dog(aes(x, y, dog = image), size = 5) +
    xlim(c(0.25, 5.5)) + 
    ylim(c(0.25, 3.5))

4. さいごに

おもしろいですね（笑）！