1 ChatGPT

챗GPT API를 활용하여 자체 앱을 개발할 경우 특정 요구 사항에 맞는 사용자 지정 인터페이스를 만들 수 있다는 장점 외에 다음과 같은 장단점이 제기된다.

웹사이트 로고를 넣고 다른 자체 시스템과 통합할 수 있다.
기존 서비스에 챗봇 기능 추가
챗GPT 월간 유료 구독비용보다 저렴하다.
- 특히, 사용자가 100명 넘어갈 경우 API를 통한 서비스 사용이 비용적인 측면에서 매력이 있다.
- 예를 들어, 100명이 유료 구독할 경우 대략 $2,000 달러가 비용으로 책정되는데 현재 환율기준 1,300월/\$ 대략 260만원인데 10,000번 호출할 경우 대략 $1,800 달러면 해결된다.

2 비용

코드

library(tidyverse)
library(gt)
library(gtExtras)

cost_raw <- tibble::tribble(
  ~`Tokens.per.execution    Words.per.execution Price.for.1.execution`,
                                                        "Price for",
                                                            "10000",
                                                       "executions",
                                         "10\t8\t~$0.00045\t~$4.50",
                                        "20\t15\t~$0.00090\t~$9.00",
                                       "50\t38\t~$0.00225\t~$22.50",
                                      "100\t75\t~$0.00450\t~$45.00",
                                     "200\t150\t~$0.00900\t~$90.00",
                                    "500\t375\t~$0.02250\t~$225.00",
                                   "1000\t750\t~$0.04500\t~$450.00",
                                  "2000\t1500\t~$0.09000\t~$900.00",
                                 "4000\t3000\t~$0.18000\t~$1800.00"
  )

cost_raw |> 
  janitor::clean_names() |> 
  set_names("data") |> 
  mutate(data = map(data, str_split, pattern = "\t")) |> 
  unnest(data) |> 
  mutate(ncol = map_int(data, length)) |> 
  filter(ncol == 4) |> 
  mutate(tokens = map_chr(data, 1),
         words = map_chr(data, 2),
         unit_cost = map_chr(data, 3),
         ttl_cost =  map_chr(data, 4)) |> 
  mutate(ttl_cost = parse_number(ttl_cost)) |> 
  select(-data, -ncol) |> 
  mutate(tokens = parse_number(tokens),
         words  = parse_number(words)) |> 
  gt::gt() |> 
    gt_theme_538() |> 
    cols_align("center") |> 
    fmt_integer(columns = c(ttl_cost, words, tokens)) |> 
    tab_footnote(
      footnote = "챗GPT 유료계정 $20 x 100명, $2,000 기준",
      locations = cells_body(columns = ttl_cost, rows = 9)
    ) |> 
  tab_header(
    title = html("챗GPT4 API 호출횟수와 유료계정"),
    subtitle = html("GPT-4 API 10,000번 호출 기준")
  )

tokens	words	unit_cost	ttl_cost
챗GPT4 API 호출횟수와 유료계정
GPT-4 API 10,000번 호출 기준
10	8	~$0.00045	4
20	15	~$0.00090	9
50	38	~$0.00225	22
100	75	~$0.00450	45
200	150	~$0.00900	90
500	375	~$0.02250	225
1,000	750	~$0.04500	450
2,000	1,500	~$0.09000	900
4,000	3,000	~$0.18000	1,800¹
¹ 챗GPT 유료계정 $20 x 100명, $2,000 기준

3 자체 앱 구출

GitHub 저장소 deepanshu88/shinyChatGPT 코드를 바탕으로 로고와 메시지를 바꾸면 Shiny 챗GPT 앱을 간단히 구현할 수 있다.

--- title: "챗GPT" subtitle: "Shiny 챗GPT" description: | Shiny로 챗GPT를 구현한다. author: - name: 이광춘 url: https://www.linkedin.com/in/kwangchunlee/ affiliation: 한국 R 사용자회 affiliation-url: https://github.com/bit2r date: today title-block-banner: true #title-block-banner: "#562457" format: html: css: css/quarto.css theme: flatly code-fold: true code-overflow: wrap toc: true toc-depth: 3 toc-title: 목차 number-sections: true highlight-style: github self-contained: false filters: - lightbox lightbox: auto link-citations: true knitr: opts_chunk: message: false warning: false collapse: true comment: "#>" R.options: knitr.graphics.auto_pdf: true editor_options: chunk_output_type: console editor: markdown: wrap: 72 --- # ChatGPT 챗GPT API를 활용하여 자체 앱을 개발할 경우 특정 요구 사항에 맞는 사용자 지정 인터페이스를 만들 수 있다는 장점 외에 다음과 같은 장단점이 제기된다. - 웹사이트 로고를 넣고 다른 자체 시스템과 통합할 수 있다. - 기존 서비스에 챗봇 기능 추가 - 챗GPT 월간 유료 구독비용보다 저렴하다. - 특히, 사용자가 100명 넘어갈 경우 API를 통한 서비스 사용이 비용적인 측면에서 매력이 있다. - 예를 들어, 100명이 유료 구독할 경우 대략 \$2,000 달러가 비용으로 책정되는데 현재 환율기준 `1,300월/\$` 대략 260만원인데 10,000번 호출할 경우 대략 \$1,800 달러면 해결된다. # 비용 [출처: [OpenAI API Pricing calculator](https://gptforwork.com/tools/openai-chatgpt-api-pricing-calculator)]{.aside} ```{r} library(tidyverse) library(gt) library(gtExtras) cost_raw <- tibble::tribble( ~`Tokens.per.execution Words.per.execution Price.for.1.execution`, "Price for", "10000", "executions", "10\t8\t~$0.00045\t~$4.50", "20\t15\t~$0.00090\t~$9.00", "50\t38\t~$0.00225\t~$22.50", "100\t75\t~$0.00450\t~$45.00", "200\t150\t~$0.00900\t~$90.00", "500\t375\t~$0.02250\t~$225.00", "1000\t750\t~$0.04500\t~$450.00", "2000\t1500\t~$0.09000\t~$900.00", "4000\t3000\t~$0.18000\t~$1800.00" ) cost_raw |> janitor::clean_names() |> set_names("data") |> mutate(data = map(data, str_split, pattern = "\t")) |> unnest(data) |> mutate(ncol = map_int(data, length)) |> filter(ncol == 4) |> mutate(tokens = map_chr(data, 1), words = map_chr(data, 2), unit_cost = map_chr(data, 3), ttl_cost = map_chr(data, 4)) |> mutate(ttl_cost = parse_number(ttl_cost)) |> select(-data, -ncol) |> mutate(tokens = parse_number(tokens), words = parse_number(words)) |> gt::gt() |> gt_theme_538() |> cols_align("center") |> fmt_integer(columns = c(ttl_cost, words, tokens)) |> tab_footnote( footnote = "챗GPT 유료계정 $20 x 100명, $2,000 기준", locations = cells_body(columns = ttl_cost, rows = 9) ) |> tab_header( title = html("챗GPT4 API 호출횟수와 유료계정"), subtitle = html("GPT-4 API 10,000번 호출 기준") ) ``` # 자체 앱 구출 GitHub 저장소 [deepanshu88/shinyChatGPT](https://github.com/deepanshu88/shinyChatGPT) 코드를 바탕으로 로고와 메시지를 바꾸면 Shiny 챗GPT 앱을 간단히 구현할 수 있다. :::::{.columns} :::{.column} ![](images/shinyGPT.gif) ::: :::{.column} ![](images/km_chatgpt.jpg) ::: :::::