1 로고제작 기본 이미지
구글 이미지 검색을 통해 useR! 2021 Korea 컨퍼런스 제작에 필요한 로고를 제작한다.
1.1 광화문
Noun Project 웹사이트에서 광화문(Gwanghwamun Gate) 이미지를 다운로드 받아 R에서 불러온다.
library(tidyverse)
library(magick)
gwanghwamun_raw <- image_read("fig/noun_Gwanghwamun Gate_260270.png")
gwanghwamun <- gwanghwamun_raw %>%
image_crop(geometry = "700x500")
gwanghwamun
1.2 useR! 로고
마찬가지 방식으로 구글 이미지 검색을 통해 useR! 로고를 다운로드 받는다. 먼저 검정색 로고를 다운로드 받는다.
useR_black_raw <- image_read("fig/user-logo-positive.png")
useR_black <- useR_black_raw %>%
image_resize("30%")
useR_black
색상이 들어간 useR! 로고를 다운로드 받는다.
useR_color_raw <- image_read("fig/user-logo-color.png")
useR_color <- useR_color_raw %>%
image_resize("20%")
useR_color
1.3 로고 제작
앞서 다운로드 받은 이미지를 로고 캔바스에 올려 크기를 조정하여 최종 로고를 제작한다.
## 로고 캔바스 -------------------------
logo_blank <- image_blank(width = 477, height= 500, color = "white", pseudo_image = "", defines = NULL)
## useR 로고 크기조정 -------------------------
useR_color_resized <- useR_color %>%
image_crop(geometry = "300x270+00+30")
## 광화문 로고 크기조정 -------------------------
gwanghwamun_resized <- image_crop(gwanghwamun, geometry = "530x350+95+100") %>%
image_scale("330")
## useR! Korea logo -------------------------
useR_korea <- logo_blank %>%
# image_annotate("KOREA", size = 130, degrees = 90, location = "+110+10") %>%
image_annotate("KOREA", size = 130, degrees = -90, location = "+20+470") %>%
image_composite(useR_color_resized, offset = "+130+10") %>%
image_composite(gwanghwamun_resized, offset = "+130+215")
useR_korea <- image_transparent(useR_korea, 'white')
useR_korea 
2 koRea 로고 제작
useR! 브랜드와 충돌이 있어 새로운 한국 R 컨퍼런스 로고를 제작한다. R 로고 웹사이트에서 로고를 받아 기본 이미지로 사용한다.
library(tidyverse)
library(magick)
R_logo <- image_read("fig/Rlogo.png")
R_logo
2.1 koRea 컨퍼런스 로고
logo_blank <- image_blank(width = 270, height= 60, color = "white", pseudo_image = "", defines = NULL)
## R 로고 크기조정 -------------------------
R_logo_resized <- R_logo %>%
image_scale("45") %>%
image_transparent(color = "white")
## useR! Korea logo -------------------------
koRea_logo <- logo_blank %>%
image_annotate("KO EA", size = 20, location = "+5+25", font = "NanumBarunGothic YetHangul") %>%
image_annotate("컨퍼런스", size = 37, location = "+120+10", font = "NanumBarunGothic YetHangul") %>%
image_composite(R_logo_resized %>% image_rotate(degrees = -15), offset = "+32+00")
koRea_logo <- image_transparent(koRea_logo, 'white')
koRea_logo %>%
image_resize("200%")
2.2 내보내기
image_write(koRea_logo, path ="fig/koRea_logo.png", format = "png")
# image_write(koRea_logo, path ="fig/koRea_logo.svg", format = "svg")- 로고 다운로드
3 영문 koRea 로고 제작
3.1 koRea Conference 로고
logo_blank <- image_blank(width = 270, height= 60, color = "white", pseudo_image = "", defines = NULL)
## R 로고 크기조정 -------------------------
R_logo_resized <- R_logo %>%
image_scale("45") %>%
image_transparent(color = "white")
## useR! Korea logo -------------------------
koRea_english_logo <- logo_blank %>%
image_annotate("KO EA", size = 20, location = "+5+25", font = "NanumBarunGothic YetHangul") %>%
image_annotate("Conference", size = 27, location = "+120+10", font = "NanumBarunGothic YetHangul") %>%
image_composite(R_logo_resized %>% image_rotate(degrees = -15), offset = "+32+00")
koRea_english_logo <- image_transparent(koRea_english_logo, 'white')
koRea_english_logo %>%
image_resize("200%")
3.2 내보내기
image_write(koRea_english_logo, path ="fig/koRea_english_logo.png", format = "png")
# image_write(koRea_english_logo, path ="fig/koRea_english_logo.svg", format = "svg")4 세로 koRea 로고 제작
가로형 R 컨퍼런스 로고가 때로는 가로형으로 정사각형을 만족할 때 더 좋은 시각적인 효과를 띄는 경우도 있다.
library(tidyverse)
library(magick)
R_logo <- image_read("fig/Rlogo.png")
# 첫 화면 정의
logo_blank <- image_blank(width = 250, height= 250, color = "white", pseudo_image = "", defines = NULL)
? image_blank
## R 로고 크기조정 -------------------------
R_logo_resized <- R_logo %>%
image_scale("85") %>%
image_transparent(color = "white")
## R conference logo -------------------------
koRea_vertical_logo <- logo_blank %>%
image_annotate("KO EA", size = 37, location = "+20+50", font = "NanumBarunGothic YetHangul") %>%
image_composite(R_logo_resized %>% image_rotate(degrees = -15), offset = "+75+10") %>%
image_annotate("컨퍼런스", size = 57, location = "+20+100", font = "NanumBarunGothic YetHangul")
koRea_vertical_logo <- image_transparent(koRea_vertical_logo, 'white')
koRea_vertical_logo %>%
image_resize("200%")
4.1 내보내기
image_write(koRea_vertical_logo, path ="fig/koRea_vertical_logo.png", format = "png")
# image_write(koRea_vertical_logo, path ="fig/koRea_vertical_logo.svg", format = "svg")- 로고 다운로드
5 R 로고
데이콘(Dacon) 후원으로 김지수 디자이너님이 R 로고를 직접 제작해 주셨습니다. 한국 R 컨퍼런스 로고로 채용하여 지속적으로 활용될 듯 싶습니다.
library(tidyverse)
library(slickR)
library(magick)
rlogo_files <- fs::dir_ls("fig/rlogo/")
rlogo_tbl <- tibble(filename = rlogo_files)
slickR(obj = rlogo_tbl$filename)파일 이미지가 너무 커서… 이를 적당히 축소(“400”)으로 가로를 지정한 후 로컬 파일에 저장시킨다.
# 이미지 크기 조정 (축소) -----------------------
rlogo_img <- map(rlogo_files, image_read)
rlogo_resize_img <- map(rlogo_img, image_resize, "400x")
# 축소된 이미지 저장 -----------------------
fs::dir_create(path = "fig/rlogo/resized")
rlogo_resized_filenames <- glue::glue("fig/rlogo/resized/{fs::path_file(rlogo_files)}")
map2(rlogo_resize_img, rlogo_resized_filenames, image_write)다시 한번 작업할 결과를 확인해보자.
rlogo_resized_files <- fs::dir_ls("fig/rlogo/resized")
rlogo_resized_tbl <- tibble(filename = rlogo_resized_files)
slickR(obj = rlogo_resized_tbl$filename)5.1 한국 R 컨퍼런스 로고
한국 R 컨퍼런스 로고가 필요한 경우 다음을 다운로드해서 사용한다.
데이터 과학자 이광춘 저작
kwangchun.lee.7@gmail.com