안녕하세요 구도입니다.


자세한 설명은 각 코드별로 "#" 처리 후 설명 첨삭하였으니 이를 참고해주시면 감사하겠습니다.


코드만 보고 이해하지 말고 프로그램 설치 후 직접 해보시면서 공부하시면 더 쉽게 이해하실 수 있으십니다.


*프로그램은 'R x64 3.5.1' 을 사용하였습니다*



#matrix 함수

x <- matrix(1:6, nrow=2) # 1~6 사이의 정수를 행의 수가 2인 행렬로 만듬. 원소 값은 열 기준으로 할당

x


x <- matrix(1:6, nrow=2, byrow=TRUE) # 원소 값의 할당기준이 행 기준

x


x[1,3]


names <- list(c("1행", "2행"), c("1열", "2열", "3열"))

x <- matrix(1:6, nrow=2, byrow=TRUE, dimnames=names) # 행의크기는 2 & 원소 값의 할당기준이 행 기준

x



#벡터 결합에 의한 행렬 만들기

v1 <- c(1,2,3,4)

v2 <- c(5,6,7,8)

v3 <- c(9,10,11,12)

x <- cbind(v1,v2,v3)

x


#행과 열 이름 주기

rownames(x) <- c("1행", "2행", "3행", "4행")

x

colnames(x) <- c("1열", "2열", "3열")

x


x <- rbind(v1,v2,v3)

x


rownames(x) <- c("1행", "2행", "3행")

x

colnames(x) <- c("1열", "2열", "3열", "4열")

x


#data.frame

#두 명의 고객 정보에 대한 데이터 프레임 만들기

#case 1

x <- data.frame(성명=c("홍길동", "손오공"), 나이=c(20,30), 주소=c("서울", "부산")) #두 객체에 해당하는 데이터 프레임

x


#case 2

x <- data.frame("성명"=c("홍길동", "손오공"), "나이"=c(20,30), "주소"=c("서울", "부산"))

x


#열과 행 단위 추가

x <- cbind(x, 학과=c("e-비즈", "경영"))

x


x <- rbind(x, data.frame(성명="장발장", 나이=40, 주소="파리", 학과="행정"))

x


#요소 값 보기

x[3,2]  # 3행 2열의 요소 값


x[3,]   # 3행의 모든 값


x[,2]   # 2열의 모든 값


x[-2,]  #2행을 제외한 모든 값

 

x["성명"] #"성명"요소. x[1]과 동일한 값


x$성명  #case 1. "성명"요소의 값. 


x[["성명"]] #case 2. "성명"요소의 값.


x[[1]]  # 1열 요소의 값


x[[1]][2]  # 1열 요소의 값에서 두 번째 값


x[1.2] <- 21  # 1행 2열의 값을 21로 수정

x


x[1,"나이"] <- 22  # 1행과 "나이" 열의 값을 22로 수정

x


오늘도 글 읽어주셔서 감사합니다.

+ Recent posts