평소 플롯에 유행색을 도입하는 것은 어떻습니까?
이전의 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"
Reference
이 문제에 관하여(평소 플롯에 유행색을 도입하는 것은 어떻습니까?), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/uri/items/32a708d3e5395db604b6텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)