설치된 패키지 경로 확인 : .libPaths()
인스톨된 패키지 확인 : installed.packages()
소수점
round(5.33, 0) # 5, 소수점 0번쨰 자리까지 반올림trunc(5.5) # 5, 소수점 이하는 무조건 버리기ceiling(4.3) # 5floor (4.3) # 4문자열 날짜로 변환
날짜와 날짜 연산
Lubridate() 패키지 날짜관리
벡터 - 같은 데이터 유형
>var1 ← c(1, 2, 3)
>var1
[1] 1 2 3
>is.vector(var1)
[1] TRUE
>class(var1)
[1] “numeric”
>var2 ← c(1, 2, “3”)
>var2
[1] “1” “2” “3”
패키지설치하기 : install.packages(”패키지명문자열벡터”)
패키지 메모리에 로드하기 : library(패키지명)
패키지 업데이트 : update.packages(”업데이트할패키지명”)
패키지 제거 : remove.packages(” “)
sum(1, 2, 3)
mean(1, 2, 3)
sum(1, 2, NA)
x <- NA
x
is.na(x)
x[1]
x[is.na(x)] <- 0
x
sum(1, 2, 3, NA, na.rm = TRUE)
sum(1, 2, 3, NA, na.rm = T)
sum(1, 2, 3, NA, na.rm = TRUE)
x <- c(1, 2, 3, NA)
x
x[is.na(x)] <- 0
x
# matrix
mat1 <- matrix(c(1:20), nrow = 4)
mat1 <- matrix(c(1:20), nrow = 4, byrow = T)
mat1[c(1,3), c(2,4)]
mat1[c(2, 3), ]
mat1[ ,c(3, 4)]
#list
list1 <-list(c(1001, '강감찬', '1998-07-20'))
list1
list2 <- list(1002, '일지매', '1989-11-20')
list2
list3 <- list(학번=1003, 이름='김유신', 생일='2020-01-15')
list3
names(list2) <- c('학번', '이름', '생일')
list2
list3
list4 <- rbind(list2, list3)
# dataframe
no <- c(1001, 1002, 1003)
name <- c('홍길동', '일지매', '강감찬')
kor <- c(88, 78, 93)
eng <- c(65, 75, 99)
no
name
kor
eng
data1 <- data.frame(no, name, kor, eng)
data1$name
data1[2]
data1[[2]]
data1$hap <- data1$kor + data1$eng
data1
data2 <- cbind(data1, grade=c(1, 2, 3)) # 열 추가
data2
data3 <- rbind(data1, c(1004, '김유신', 50, 50, 100)) # 행 추가
data3
getwd()
txt1 <- readLines('구매후기.txt')
readLines('구매후기_utf8.txt', encoding='UTF-8')