【R】ggdogs

1. はじめに

ggplotでgeomの拡張をするパッケージは、様々あります。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"

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

library(ggplot2)
library(ggdogs)

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))

dat <- data.frame(x=c(1:5), y=c(1:5), img=c("hearing", "pug", "ears", "husky", "husky_2"))

ggplot(dat) + geom_dog(aes(x, y, dog=img),size=3)

4. さいごに

おもしろいですね。犬好きにはたまらないパッケージなんでしょうね。