R ๊ฟ€ํŒ

1. ์ถ”์ฒœ ์‚ฌ์ดํŠธ

2. ๊ฒ€์ƒ‰ ํŒ

๊ตฌ๊ธ€๋ง ์‹œ, ๋’ค์— ‘Rpubs’ ๋ถ™์ด๊ธฐ

3. blogdown Auto-Knit ๋„๊ธฐ

Ctrl+S ๋‹จ์ถ•ํ‚ค๋กœ ์ˆ˜์‹œ๋กœ ์ €์žฅํ•˜๋Š” ์Šต๊ด€ ๋•Œ๋ฌธ์—, Rmd ํŒŒ์ผ์„ ์ž‘์—…ํ•  ๋•Œ knit๊ฐ€ ์ˆ˜์‹œ๋กœ ๋˜์–ด ์ž‘์—…์†๋„์— ์˜ํ–ฅ์„ ๋ฏธ์นœ๋‹ค.
์ด๋Ÿด ๋•Œ๋Š” .Rprofile์ด๋ผ๋Š” ์ด๋ฆ„์˜ ํŒŒ์ผ์„ ์ฐพ์•„์„œ

blogdown.knit.on_save = TRUE

๋ผ๋Š” ์ฝ”๋“œ์—์„œ TRUE๋ฅผ FALSE๋กœ ๋ฐ”๊ฟ”์ฃผ์–ด์•ผ ํ•œ๋‹ค.

4. ์ž๋™์ •๋ ฌ ๋‹จ์ถ•ํ‚ค

ctrl + I

5. python์˜ dictionary์ฒ˜๋Ÿผ ์‚ฌ์šฉํ•˜๊ธฐ

1
2
3
4
5
# recode: case_when์˜ ํŠน์ˆ˜ํ•œ ํ˜•ํƒœ๋กœ์„œ ๋ฐ์ดํ„ฐ๋ฅผ ๊ต์ฒดํ•  ๋•Œ ์‚ฌ์šฉํ•  ์ˆ˜ ์žˆ์„ ๊ฒƒ์ด๋‹ค.
tmp_char <- sample(c("a", "b", "c"), 10, replace = TRUE)
# !!!์„ ํ™œ์šฉํ•˜๋ฉด, python์—์„œ dictionary ํ˜•ํƒœ๋กœ ํ™œ์šฉํ•˜๋Š” ๊ฒƒ์ฒ˜๋Ÿผ ์“ธ ์ˆ˜ ์žˆ๋‹ค.
level_key <- c(a = "apple", b = "banana", c = "carrot")
recode(tmp_char, !!!level_key)

6. Rmarkdown ggplot ๊ทธ๋ž˜ํ”„์—์„œ ํ•œ๊ธ€ ์ถœ๋ ฅํ•˜๊ธฐ

1
2
3
4
5
6
7
library(extrafont)
library(showtext)

fond_add('nanum', 'NanumGothic.ttf')
showtext_auto()
font_import()
theme_set(theme_bw(base_family='nanum'))
  • ๊ทธ๋Ÿฐ๋ฐ code chunk ์•ˆ์— ๋“ค์–ด๊ฐ€๋Š” ํ•œ๊ธ€์—์„œ๋Š” pdf ๋งŒ๋“ค ๋•Œ ์•ˆ ๋‚˜์˜ค๋˜๋ฐ ์ด๊ฑฐ๋Š” ์–ด๋–ป๊ฒŒ ํ•ด์•ผํ•˜๋Š”์ง€ ์•„์ง ๋ชจ๋ฅด๊ฒ ๋‹ค.

7. ๋ฐ˜๋ณต๋ฌธ์—์„œ tidyverse ๋ณ€์ˆ˜๋ช… ์ฒ˜๋ฆฌ

1
variable_name = rlang::ensym(variable_name)