0412 과제2 (Vector/ Metrix) 답

1. seq()함수를 사용하여 date4라는 변수에 2015년 1월 1일부터 2015년 1월 3일까지 1일씩 증가하는 31개의 날짜를 입력하는 방법을 쓰세요.

 

date4 <- seq(20150101, 20150131)

date4_day <- seq(as.Date("2015-01-01"), as.Date("2015-01-31"), by = "day")

 

date4_day

 

#

[1] "2015-01-01" "2015-01-02" "2015-01-03" "2015-01-04" "2015-01-05"
 [6] "2015-01-06" "2015-01-07" "2015-01-08" "2015-01-09" "2015-01-10"
[11] "2015-01-11" "2015-01-12" "2015-01-13" "2015-01-14" "2015-01-15"
[16] "2015-01-16" "2015-01-17" "2015-01-18" "2015-01-19" "2015-01-20"
[21] "2015-01-21" "2015-01-22" "2015-01-23" "2015-01-24" "2015-01-25"
[26] "2015-01-26" "2015-01-27" "2015-01-28" "2015-01-29" "2015-01-30"
[31] "2015-01-31"

 

2. 아래 그림과 같이 vec1을 생성하세요.

 

> vec1 <- c('사과', '배', '감', '버섯', '고구마')

> vec1

[1] "사과" "배" "감 "버섯" "고구마"

> 

 

위의 vec1에서 3번째 요소인 '감'을 제외하고 vec1의 값을 출력하세요.

 

vec1생성후 "감"을 제외하여 출력

 

vec1 <- c("사과", "배", "감", "버섯", "고구마")

vec1[-3]

 

 

# [1] "사과"   "배"     "버섯"   "고구마"

 

3. 아래 그림과 같이 vec1과 vec2를 만드세요.

> vec1 <- c('봄', '여름', '가을', '겨울')

> vec2 <- c('봄', '여름', '늦여름', '초가을')

>

1) vec1과 vec2내용을 모두 합친 결과를 출력하는 코드를 쓰세요.

   

cat(vec1 ,vec2)

#봄 여름 가을 겨울 봄 여름 늦여름 초가을

 

union 함수 이용:  #vec1과 vec2를 모두 합친결과 출력: 합집합

union(vec1, vec2)

 

# [1] "봄"     "여름"   "가을"   "겨울"   "늦여름" "초가을"

 

 

2) vec1에는 있는데 vec2에는 없는 결과를 출력하는 코드를 쓰세요.

 

setdiff 함수 이용: setdiff(vec1, vec2) #vec1에는 있는데 vec2에는 없는 결과를 출력 : 차집합 (순서주의)

 

setdiff(vec1, vec2)

 

# [1] "가을" "겨울"

 

 

3) vec1과 vec2 모두 있는 결과를 출력하는 코드를 쓰세요.

intersect 함수 이용: intersect(vec1, vec2) #vec1, vec2에 모두 있는 결과를 출력 : 교집합

 

intersect(vec1, vec2)

 

# [1] "봄"   "여름"

 

1. 아래 그림과 같은 형태의 행렬을 만드세요.

1)

>

> seasons

      [,1]  [,2]

[1, ] "봄" "가을"

[2, ] "여름" "겨울"

>

#행열생성 (열먼저)

seasons <- matrix(c("봄", "여름", "가을", "겨울"), nrow = 2)

 

 

#

      [,1]   [,2]  
[1,] "봄"   "가을"
[2,] "여름" "겨울"

 

 

 

2) 

> seasons

      [,1]  [,2]

[1, ] "봄" "여름"

[2, ] "가을" "겨울"

>

 

#행열생성 (행먼저)

seasons <- matrix(c("봄", "여름", "가을", "겨울"), nrow = 2, by = T)

 

#

     [,1]   [,2]  
[1,] "봄"   "여름"
[2,] "가을" "겨울"

 

 

2. 아래 그림과 같이 seasons행렬에서 여름과 겨울만 조회하는 방법을 쓰세요

> seasons

      [,1]  [,2]

[1, ] "봄" "여름"

[2, ] "가을" "겨울"

>

[1] "여름" "겨울"

>

 

seasons[,2]

 

#

[1] "여름" "겨울"

 

3. 아래 그림과 같이 seasons행렬에 3번 행을 추가하여 season_2행렬을 만드세요.

 > seasons

       [,1]  [,2]

[1, ] "봄" "여름"

[2, ] "가을" "겨울"

 

 

> seasons_2

       [,1]  [,2]

[1, ] "봄" "여름"

[2, ] "가을" "겨울"

[3, ] "초봄" "초가을"

>

 

rbind함수 이용하여 행추가

seasons_2 <- rbind(seasons, c("초봄", "초가을"))

 

 

#      [,1]   [,2]    
[1,] "봄"   "여름"  
[2,] "가을" "겨울"  
[3,] "초봄" "초가을"

 

 

4. 아래 그림처럼 seasons2_ 변수에 열을 추가하여 seasons_3 행렬을 만드세요

> seasons2_

       [,1]  [,2]

[1, ] "봄" "여름"

[2, ] "가을" "겨울"

[3, ] "초봄" "초가을"

>

>

> seasons_3

       [,1]  [,2]    [3]

[1, ] "봄" "여름" "초여름"

[2, ] "가을" "겨울" "초겨울"

[3, ] "초봄" "초가을" "한겨울"

>

>

 

cbind함수 사용하여 열추가

 

seasons_3 <- rbind(seasons_2, c("초여름", "초겨울", "한겨울"))
seasons_3 

 

#

     [,1]     [,2]    
[1,] "봄"     "여름"  
[2,] "가을"   "겨울"  
[3,] "초봄"   "초가을"
[4,] "초여름" "초겨울"