chatGPT

지식(GSeek): 디지털 글쓰기

챗GPT가 이목을 집중하고 있는 가장 근본적인 이유는 디지털 글쓰기를 사람보다 신속하고 빠르게 하기 때문입니다. 챗GPT 글쓰기에는 다양한 종류의 글쓰기, 코딩, 그리고, 추론 등이 포함되고 있습니다. 챗GPT 글쓰기 첫 번째 주제로 “디지털 글쓰기”를 챗GPT 출현 이전과 이후 확연히 달라진 디지털 글쓰기를 실습을 통해 진행합니다.

저자
소속

이광춘

한국 R 사용자회

신종화

한국 R 사용자회

공개

2023년 4월 7일

노트

비영리법인 한국 R 사용자회에서 추진하고 있는 디지털 글쓰기 : chatGPT와 함께 AI 글쓰기, 쿼토 데이터 과학를 참고한다.

코드 
xfun::embed_file("data/writing_penguin.zip", text="실습파일 압축(zip) 다운로드")
실습파일 압축(zip) 다운로드

1 사전 준비

1.1 환경설정

디지털 저작 출판을 위한 저작환경을 준비한다.

1.2 마크다운

디지털 글쓰기 마크다운 기초를 참조한다.

1.3 레이아웃

쿼토 레이아웃을 참조한다.

2 펭귄

2.1 데이터셋

코드 
library(tidyverse)
library(palmerpenguins)

penguins %>% 
  head() %>% 
  gt::gt()
species island bill_length_mm bill_depth_mm flipper_length_mm body_mass_g sex year
Adelie Torgersen 39.1 18.7 181 3750 male 2007
Adelie Torgersen 39.5 17.4 186 3800 female 2007
Adelie Torgersen 40.3 18.0 195 3250 female 2007
Adelie Torgersen NA NA NA NA NA 2007
Adelie Torgersen 36.7 19.3 193 3450 female 2007
Adelie Torgersen 39.3 20.6 190 3650 male 2007

2.2 표

코드 
penguins %>% 
  # 데이터 전처리
  drop_na() %>% 
  # 요약통계량
  count(species, sex) %>% 
  # 자료구조 변환
  pivot_wider(names_from = sex, values_from = n) %>% 
  # 표 요약
  gt::gt()
species female male
Adelie 73 73
Chinstrap 34 34
Gentoo 58 61

2.3 그래프

코드 
mass_flipper <- penguins %>% drop_na() %>% 
  ggplot(aes(x = flipper_length_mm, y = body_mass_g)) +
  geom_point(aes(color = species, 
                 shape = species),
             size = 3,
             alpha = 0.8) +
  theme_minimal(base_family = "NanumGothic") +
  scale_color_manual(values = c("darkorange","purple","cyan4")) +
  labs(title = "펭귄 크기",
       subtitle = "남극 펭귄 3종 물갈퀴 길이와 체질량 관계",
       x = "물갈퀴 길이 (mm)",
       y = "체질량 (g)",
       color = "펭귄 3종",
       shape = "펭귄 3종") +
  theme(legend.position = c(0.2, 0.7),
        legend.background = element_rect(fill = "white", color = NA),
        plot.title.position = "plot",
        plot.caption = element_text(hjust = 0, face= "italic"),
        plot.caption.position = "plot")

mass_flipper