いつものプロットに流行色を取り入れるのはいかが？

10148 ワード
R scraping R テキストリンク

PANTONEが来年春のテーマカラーを発表しましたね。せっかくなのでプロットの凡例にこの色を使ってみたいと思います。

前回のrvestでDribbbleに投稿されたshotのカラーパレットを作る - Qiitaに引き続き、rvestパッケージによるwebスクレイピングによるカラーパレットの作成です。

まずは使用するパッケージを読み込みます

library(rvest)
library(stringr)
library(ggplot2)

URLを指定し、カラーコードを取得します

color2015 <- html("http://pantone.com/pages/fcr/?season=spring&year=2015&pid=11") %>%
  html_nodes("div .coloredSquare") %>%
  html_attr("style") %>%
  str_sub(start = 18, end = 24)

適当なデータフレームを作って、プロット

x <- c(1, 1.4, 1.8, 2.2,  1, 1.4, 1.8, 2.2, 1, 1.4, 1.8, 2.2,  1, 1.4, 1.8, 2.2)
y <- c(1, 1, 1, 1, 1.35, 1.35, 1.35, 1.35, 1.7, 1.7, 1.7, 1.7, 2.05, 2.05, 2.05, 2.05)
z <- color2015

df <- data.frame(x, y, z)

ggplot(df,
       aes(x = x, y = y, colour = z, label = z), guide = F) +
  geom_point(shape = 21, size = 30, colour = z, fill = z) +
  scale_x_continuous(limit = c(0.8, 2.5)) +
  scale_y_continuous(limit = c(0.8, 2.2)) +
  geom_text(size = 6)

丸にするとアイスクリームみたいでおいしそうですね（唐突）

実際のカラーコードは以下のとおりです

color2015
 [1] "#9DC6D8" "#00B2CA" "#7DCFB6" "#1D4E89"
 [5] "#D2B29A" "#E3868F" "#F79256" "#EAD98B"
 [9] "#955251" "#C6CBCC" "#7DA1BF" "#4E6E38"
[13] "#7F8040" "#C78D6B" "#888688" "#B38FB1"