[Must Learning with R_5] Ch6. 중급문법 1단계 연습문제

Wikidocs에 올라와있는 Must Learning with R 을 참고하며 방학동안 부족한 R programming 공부를 하고있습니다. 책에 나와있는 연습문제를 정리하려 합니다.

Ch6. 중급문법 1단계

연습문제1

Event_Time.csv를 불러오시오.

ET = read.csv('D:/Event_Time.csv')
ET

결과

> ET = read.csv('D:/Event_Time.csv')
> ET
         Date Day Alarm Traffic Weather Event
1  2019-09-18  수     1  지하철    맑음     1
2  2019-09-19  목     1  지하철    맑음     1
3  2019-09-20  금     0    버스    맑음     0
4  2019-09-23  월     0    버스    맑음     0
5  2019-09-24  화     0  지하철    맑음     0
6  2019-09-25  수     1    버스    맑음     1
7  2019-09-26  목     1  지하철   비/눈     1
8  2019-09-27  금     0  지하철   비/눈     1
9  2019-09-30  월     0    버스   비/눈     0
10 2019-10-01  화     0    버스   비/눈     0
11 2019-10-02  수     1  지하철    맑음     0
12 2019-10-03  목     0    택시    맑음     0
13 2019-10-04  금     0    버스   비/눈     1
14 2019-10-07  월     0  지하철    맑음     0
15 2019-10-08  화     0    버스    맑음     1
16 2019-10-09  수     1    택시    맑음     1
17 2019-10-10  목     0  지하철   비/눈     0
18 2019-10-11  금     1  지하철    맑음     0
19 2019-10-14  월     0    버스    맑음     0
20 2019-10-15  화     0  지하철    맑음     0
21 2019-10-16  수     0  지하철    맑음     1
22 2019-10-17  목     1  지하철    맑음     0
23 2019-10-18  금     0  지하철   비/눈     0

연습문제2

colSums를 활용하여 Alarm, Event변수의 합을 각각 구하시오.

library(dplyr)

ET[,c(3,6)] %>%
  colSums()

결과

> library(dplyr)
> 
> ET[,c(3,6)] %>%
+   colSums()
Alarm Event 
    8     9  

연습문제3

reshape 패키지의 함수를 활용하여 다음의 데이터 셋을 만들어보시오.

library(reshape)

DataSet = cast(ET, Day ~ Traffic)
DataSet

결과

> library(reshape)
> 
> DataSet = cast(ET, Day ~ Traffic)
Using Event as value column.  Use the value argument to cast to override this choice
Aggregation requires fun.aggregate: length used as default
> DataSet
  Day 버스 지하철 택시
1  금    2      3    0
2  목    0      4    1
3  수    1      3    1
4  월    3      1    0
5  화    2      2    0

Remark: Reshape package

• 데이터를 재구성 할 때 사용되는 reshape package 사용 개념도를 첨부합니다.