[통계학개론] R기초

디렉토리 셋팅¶

현재 위치 확인¶

In [ ]:

getwd()

'/content'

작업 디렉토리 셋팅하기¶

In [ ]:

setwd("/content")     # / 혹은 \\ 로 경로 구분 사용.
setwd("\\content")    # Rstudio를 종료하면 헤제되기 때문에 다시 실행시 재설정 해주어야한다.

R의 데이터 형태와 연산¶

객체의 생성과 저장¶

In [ ]:

a <- 1 # <- 와 = 모두 가능하지만 <- 가 가독성이 좋으며, 함수인자를 정의할때 쓰이는 =와 구분 짓기도 좋기에 <- 가 추천된다.
b <- 1 # 단축키 : (masos) 'opt' + '-'
c <- a + b

Vector (벡터)¶

In [ ]:

a <- c(1,2,3,4,5)
b <- 1:5
c <- seq(1,10,2)  # 1에서 10까지 2 단위로
d <- rep(10,5)   # 10을 5번 반속
e <- c(d,c)
f <- c(1:4, seq(5,20,3))

cat(' a : ',a,'\n','b : ',b,'\n','c : ',c,'\n','d : ',d,'\n','e : ',e,'\n','f : ',f)

 a :  1 2 3 4 5 
 b :  1 2 3 4 5 
 c :  1 3 5 7 9 
 d :  10 10 10 10 10 
 e :  10 10 10 10 10 1 3 5 7 9 
 f :  1 2 3 4 5 8 11 14 17 20

벡터연산¶

In [ ]:

d + a

1. 11
2. 12
3. 13
4. 14
5. 15

In [ ]:

d - a

1. 9
2. 8
3. 7
4. 6
5. 5

In [ ]:

d * a

1. 10
2. 20
3. 30
4. 40
5. 50

In [ ]:

d / f

1. 10
2. 5
3. 3.33333333333333
4. 2.5
5. 2
6. 1.25
7. 0.909090909090909
8. 0.714285714285714
9. 0.588235294117647
10. 0.5

In [ ]:

d + f #길이가 다르면 짭은 길이의 벡터의 0번자리부터 모자른 부분을 순서대로 채운다. (이때 경고 메세지도 나온다.)

## Warning in d + f: longer object length is not a
## multiple of shorter object

1. 11
2. 12
3. 13
4. 14
5. 15
6. 18
7. 21
8. 24
9. 27
10. 30

In [ ]:

d ** a

1. 10
2. 100
3. 1000
4. 10000
5. 1e+05

In [ ]:

d %/% a #몫

1. 10
2. 5
3. 3
4. 2
5. 2

In [ ]:

d %% a #나머지

1. 0
2. 0
3. 1
4. 2
5. 0

데이터형¶

숫자형: 사칙연산 가능

범주형: factor() 또는 as.factor() 이용하여 생성

문자형: as.character() 이용하여 생성

논리형: TRUE 또는 FALSE 값을 가진다

In [ ]:

i <- 1:4
i

1. 1
2. 2
3. 3
4. 4

In [ ]:

j <- as.factor(1:4)
j

1. 1
2. 2
3. 3
4. 4

Levels:

1. '1'
2. '2'
3. '3'
4. '4'

In [ ]:

i + 1

1. 2
2. 3
3. 4
4. 5

In [ ]:

j + 1 # 범주형이라 연산하려고하면 에러메세지가 뜬다

Warning message in Ops.factor(j, 1):
“‘+’ not meaningful for factors”

1. <NA>
2. <NA>
3. <NA>
4. <NA>

In [ ]:

k <- as.character(1:4) #1에서 4를 문자형으로
k

1. '1'
2. '2'
3. '3'
4. '4'

In [ ]:

l <- as.numeric(k) #숫자형으로
l

1. 1
2. 2
3. 3
4. 4

In [ ]:

m <- c('a','b','c','d')
m

1. 'a'
2. 'b'
3. 'c'
4. 'd'

In [ ]:

n <- i>2
n

1. FALSE
2. FALSE
3. TRUE
4. TRUE

In [ ]:

is.numeric(m)

FALSE

Matrix (행렬)¶

In [ ]:

o <- rep(10, 5)
p <- 1:5

In [ ]:

q <- cbind(o, p)
q

A matrix: 5 × 2 of type dbl

o	p
10	1
10	2
10	3
10	4
10	5

In [ ]:

r <- rbind(o, p)
r

A matrix: 2 × 5 of type dbl

o	10	10	10	10	10
p	1	2	3	4	5

In [ ]:

s <- matrix(1:4, 2, 2). # 행(세로) 방향으로 데이터가 먼저 들어감
s

A matrix: 2 × 2 of type int

1	3
2	4

In [ ]:

t <- matrix (c(1,2,3,4), 2, 2)
t

A matrix: 2 × 2 of type dbl

1	3
2	4

In [ ]:

s + t

A matrix: 2 × 2 of type dbl

2	6
4	8

In [ ]:

s %*% t #행렬곱

A matrix: 2 × 2 of type dbl

7	15
10	22

In [ ]:

solve(t) # 역행렬

A matrix: 2 × 2 of type dbl

-2	1.5
1	-0.5

In [ ]:

t[1,2]

3

In [ ]:

t[1,]

1. 1
2. 3

In [ ]:

t[,2]

1. 3
2. 4