In tidyverse-korea/statdata: Datasets for the elementary, middle, and high school in the Korean textbooks.

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Setup

Type library(statdata) and then, datasets in the statdata package are avaiable.

library(dplyr)
library(readr)
library(magrittr)
library(purrr)
library(fs)
library(skimr)
library(statdata)

Load Sample Dataset

gender dataset contains male and female row-by-row values.

data("gender")
gender <- gender %>% 
  set_names("gender")

gender

Basic Analysis

The univariate categorical variable can be summarized through counting.

gender %>%
  count(gender)

Visualization

We can visualize the univariate categorical variable with barplot or pie chart.

par(family = "NanumGothic")

gender_count <- gender %>%
  count(gender)

barplot(n ~ gender, data = gender_count)

The pie chart plot is also possible.

par(family = "NanumGothic")

gender_vector <- gender_count %>% 
  pull(n)

names(gender_vector) <- gender_count$gender

pie(gender_vector)

tidyverse-korea/statdata documentation built on Dec. 23, 2021, 10:54 a.m.