[R] 기초 문법 4

2022.01.09 - [[R] 연습] - [R] 기초 문법 1

2022.01.13 - [[R] 연습] - [R] 기초 문법 2

2022.01.15 - [[R] 연습] - [R] 기초 문법 3

지난 포스팅에 이어서 R의 기본적인 문법을 계속해서 정리해볼 것이다.

 

팩터(Factor)

팩터는 범주형 자료를 표현factor(x = 범주형 데이터, levels = 범주 목록, labels = 범주별 표시 값, ordered = TRUE는 순서형, FALSE는 명목형)로 생성

# 팩터 예시
payment <- factor(c("cash", "credit", "debit", "credit"), 
                  levels = c("cash", "debit", "credit"))
payment

 

데이터 결합

rbind(), cbind(), merge()함수

 

rbind(데이터1, 데이터2, ...)

각 데이터의 행을 서로 결합하여 새로운 데이터를 생성

# rbind 예시
sales.df1 <- data.frame(product = c("computer", "phone", "monitor"),
                        price = c(899, 750, 320))
sales.df2 <- data.frame(product = c("laptop", "keyboard", "tablet"),
                        price = c(1099, 120, 560))
rbind(sales.df1, sales.df2)
#    product price
# 1 computer   899
# 2    phone   750
# 3  monitor   320
# 4   laptop  1099
# 5 keyboard   120
# 6   tablet   560

 

cbind(데이터1, 데이터2, ...)

각 데이터의 열을 서로 결합하여 새로운 데이터를 생성

sales.df1 <- data.frame(product = c("computer", "phone", "monitor"),
                        price = c(899, 750, 320))
sales.df2 <- data.frame(stocks = c(200, 350, 170))
cbind(sales.df1, sales.df2)
#    product price stocks
# 1 computer   899   200
# 2    phone   750   350
# 3  monitor   320   170

 

merge(x, y, by = 기준 컬럼, by.x, by.y, all, all.x, all.y)

주요 파라미터	설명
by.x, by.y	각 데이터 프레임의 기준 칼럼의 이름이 다른 경우 기준 칼럼 지정
all	기준 칼럼의 공통값이 없는 경우에 처리를 위해서 지정 FALSE면 공통 행만 병합 TRUE면 전체 행 병합(공통 값이 없는 경우는 NA 처리)
all.x, all.y	all.x = TRUE면, x 데이터의 모든 행이 결과에 포함 all.y = TRUE면, y 데이터의 모든 행이 결과에 포함

# cbind 예시
sales.df1 <- data.frame(product = c("computer", "phone", "monitor"),
                        price = c(899, 750, 320))
sales.df2 <- data.frame(product = c("laptop", "monitor", "phone"),
                        stocks = c(200, 350, 170))
merge(sales.df1, sales.df2)
#   product price stocks
# 1 monitor   320    350
# 2   phone   750    170

merge(sales.df1, sales.df2, all = TRUE)
#    product price stocks
# 1 computer   899     NA
# 2   laptop    NA    200
# 3  monitor   320    350
# 4    phone   750    170

 

함수

함수명 = function(매개변수1, 매개변수2, ...){
    code
    ...
    return
}

# 함수 생성 예시
auto_cal <- function(x, type) {
  switch(type,
         mean = mean(x),
         median = median(x))
}
x <- scores
auto_cal(x, "mean")
auto_cal(x, "median")