10.6 데이터 프레임에 행/열의 확장

데이터 프레임에 열과 행을 추가하여 데이터 프레임을 확장할 수 있습니다.

10.6.1 열 추가

새 열 이름을 사용하여 열 벡터를 추가하기 만하면 됩니다.

# emp.data 데이터 프레임에 dept 컬럼을 추가해 보겠습니다.
# emp.data를 v변수에 복사하겠습니다.
v <- emp.data

# 이제 v 변수에 dept 컬럼을 추가헤 보겠습니다.
v$dept <- c("IT","Operations","IT","HR","Finance")

# 변화된 v의 구조를 확인해 봅니다.
str(v)

## 'data.frame':    5 obs. of  5 variables:
##  $ emp_id    : int  1 2 3 4 5
##  $ emp_name  : chr  "Rick" "Dan" "Michelle" "Ryan" ...
##  $ salary    : num  623 515 611 729 843
##  $ start_date: Date, format: "2012-01-01" "2013-09-23" ...
##  $ dept      : chr  "IT" "Operations" "IT" "HR" ...

10.6.2 행 추가

기존 데이터 프레임에 더 많은 행을 영구적으로 추가하려면 기존 데이터 프레임과 동일한 구조로 새 행을 가져와 rbind() 함수를 사용해야 합니다.

아래 예에서는 새 행이 있는 데이터 프레임을 만들고 기존 데이터 프레임과 병합하여 최종 데이터 프레임을 만듭니다.

# 첫 번째 데이터 프레임입니다.
emp.data <- data.frame(
                emp_id = c(1:5), 
                emp_name = c("Rick","Dan","Michelle","Ryan","Gary"),
                salary = c(623.3,515.2,611.0,729.0,843.25), 
                start_date = as.Date(c("2012-01-01", "2013-09-23", "2014-11-15", "2014-05-11",
                                       "2015-03-27")),
                dept = c("IT","Operations","IT","HR","Finance"),
                stringsAsFactors = TRUE
)

# 추가할 데이터를 담고 이는 데이터 프레임입니다.
emp.newdata <-  data.frame(
                    emp_id = c(6:8), 
                    emp_name = c("Rasmi","Pranab","Tusar"),
                    salary = c(578.0,722.5,632.8), 
                    start_date = as.Date(c("2013-05-21","2013-07-30","2014-06-17")),
   dept = c("IT","Operations","Fianance"),
   stringsAsFactors = TRUE
)

# emp.data 밑에 emp.newdata를 결합한 후, emp.finaldata 변수에 복사합니다.
emp.finaldata <- rbind(emp.data, emp.newdata)

# 결합된 데이터를 확인합니다. 총 8개 행, 5개 열로 구성되어 있습니다.
emp.finaldata

##   emp_id emp_name salary start_date       dept
## 1      1     Rick 623.30 2012-01-01         IT
## 2      2      Dan 515.20 2013-09-23 Operations
## 3      3 Michelle 611.00 2014-11-15         IT
## 4      4     Ryan 729.00 2014-05-11         HR
## 5      5     Gary 843.25 2015-03-27    Finance
## 6      6    Rasmi 578.00 2013-05-21         IT
## 7      7   Pranab 722.50 2013-07-30 Operations
## 8      8    Tusar 632.80 2014-06-17   Fianance

10.6.3 열과 행의 삭제

데이터 프레임 열은 NULL을 할당하여 데이터 프레임에서 삭제할 수 있으며, 마찬가지로 행은 (-)기호를 이용하여 서브세팅함으로써 삭제할 수 있습니다.

# 다음과 같은 데이터 프레임이 있다고 생각하겠습니다.
x <- data.frame("SN" = 1:2, "Age" = c(21,15), "Name" = c("John","Dora"))
str(x)

## 'data.frame':    2 obs. of  3 variables:
##  $ SN  : int  1 2
##  $ Age : num  21 15
##  $ Name: chr  "John" "Dora"

# 열을 삭제할 수 있습니다.
# SN 컬럼을 x에서 제거해 보겠습니다.
x$SN <- NULL             # SN 컬럼에 NULL 값을 할당합니다.
str(x)                   # x 데이터 프레임에서 SN 컬럼이 삭제되었습니다.

## 'data.frame':    2 obs. of  2 variables:
##  $ Age : num  21 15
##  $ Name: chr  "John" "Dora"

# 열을 삭제할 수 있습니다.
x <- x[x$Age >= 16, ]    # Age 컬럼의 값이 16보다 작은 행은 삭제합니다.
x                        # 데이터를 확인해 봅니다.

##   Age Name
## 1  21 John