gpt-coding/_common.R at main · bit2r/gpt-coding · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
library(tidyverse)
library(gt)
library(gtExtras)
library(rvest)
library(JuliaCall)


# 0. WebR ----------------------------------------------------------------

# webr::install("stringr")

# 1. Julia ----------------------------------------------------------------

# julia_setup(JULIA_HOME="C:/Users/statkclee/AppData/Local/Programs/Julia-1.10.1/bin")

# 2. fonts ----------------------------------------------------------------

library(sysfonts)
library(showtext)

extrafont::loadfonts(quiet = TRUE)

showtext_auto(enable = TRUE)

# 3. 코딩 -------------------------------------------------------------------


knitr::opts_chunk$set(
  comment = "#>",
  collapse = TRUE,
  # cache = TRUE,
  fig.retina = 2,
  fig.width = 6,
  fig.asp = 2/3,
  fig.show = "hold"
)

options(
  dplyr.print_min = 6,
  dplyr.print_max = 6,
  pillar.max_footer_lines = 2,
  pillar.min_chars = 15,
  stringr.view_n = 6,
  # Temporarily deactivate cli output for quarto
  cli.num_colors = 0,
  cli.hyperlink = FALSE,
  pillar.bold = TRUE,
  width = 77 # 80 - 3 for #> comment
)

# 1. ggplot 그래프 ------------------------
extrafont::loadfonts("win")

## 테마 (글꼴) -----------------------------
theme_korean <- function() {

  # ggthemes::theme_tufte() +
  ggplot2::theme_minimal() +

    ggplot2::theme(
      plot.title     = ggplot2::element_text(family = "NanumSquare", size = 18, face = "bold"),
      plot.subtitle  = ggplot2::element_text(family = "MaruBuri", size = 13),
      axis.title.x   = ggplot2::element_text(family = "MaruBuri"),
      axis.title.y   = ggplot2::element_text(family = "MaruBuri"),
      axis.text.x    = ggplot2::element_text(family = "MaruBuri", size = 11),
      axis.text.y    = ggplot2::element_text(family = "MaruBuri", size = 11),
      legend.title   = ggplot2::element_text(family = "MaruBuri", size=13),
      plot.caption   = ggplot2::element_text(family = "NanumSquare", color = "gray20")
    )
}


ggplot2::theme_set(theme_korean())

# 2. gt 표 ------------------------

gt_theme_hangul <- function(gt_tbl) {

  # Grab number of rows of data from gt object
  n_rows <- nrow(gt_tbl$`_data`)

  gt_tbl |>
    gt_theme_538() |>
    tab_options(
      # column_labels.background.color = '#1E61B0', # R logo 파란색
      table.font.names ="NanumSquare",
      heading.title.font.size = px(26),
      heading.subtitle.font.size = px(16),
      heading.background.color = "transparent",
      column_labels.font.weight = 'bold',
      table_body.hlines.width = px(0),
      data_row.padding = px(6),
      heading.align = 'center',
      stub.background.color = "#ffffff",
      stub.font.weight = "bold",
      source_notes.font.size = px(10),
      row.striping.include_table_body = FALSE
    ) |>
    cols_align( align = "center", columns = where(is.numeric)) |>
    cols_align( align = "auto", columns = where(is.character)) |>
    ## 글꼴 달리 적용
    tab_style(
      style = cell_text(
        font = "MaruBuri",
        weight = 'bold'
      ),
      locations = cells_title(groups = 'subtitle')
    ) |>
    tab_style(
      style = cell_text(
        font = "MaruBuri",
        weight = 'bold'
      ),
      locations = cells_body()
    ) |>
    tab_style(
      style = cell_text(
        font = "MaruBuri",
        weight = 'bold'
      ),
      locations = cells_column_labels()
    ) |>
    tab_style(
      style = cell_text(
        font = "MaruBuri",
      ),
      locations = cells_source_notes()
    ) |>
    tab_style(
      style = cell_fill(color = 'grey90'),
      locations = cells_body(rows = seq(1, n_rows, 2))
    )
}