평소 플롯에 유행색을 도입하는 것은 어떻습니까?

10040 단어 Rscraping
PANTONE이 내년 봄 테마 컬러를 발표했습니다 모처럼이므로 플롯의 범례에 이 색을 사용해 보고 싶습니다.

이전의 rvest로 Dribbble에 게시 된 샷의 컬러 팔레트 만들기 - 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"

좋은 웹페이지 즐겨찾기