A0622 R 복습 필요한 사항 (20150626) B

 R 복습 필요한 사항 (20150626)

========================

# setwd('C:/Users/revision/Desktop/rvc_kb/02_EnGageMent/000_03_bigfi_DSt/prct')

# 데이터 프레임 만들기

cA <- c(1:10)

cB <- c(11:20)

cC <- c("A", "B", "C", "D", "E","F","G","H","I","J")

dat <- data.frame(cA, cB, cC) 

# 행삭제

dat[-1, ] 

dat[-c(2:3), ]

# 행삭제 후 결과 저장

dat1 <- dat[-1, ] 

dat1 <- dat1[-c(2:3), ] 

dat <- dat[-c(1:3), ]

head(dat)

row.names(dat)

# 열삭제

dat[,-2 ]

dat2<-dat[,-2 ]

# 열삭제로 한개의 열만 남으면 Vector로 자동 변경

dat3<-dat2[,-2 ]

# DF의 특정 부분만 추출

# [1] 행,렬지정해서 추출 (단, row.names 유지)

dat4 <- dat[3:5, 2:3]

# [2] which 사용

dat5 <- dat[ which(row.names(dat)==3 | row.names(dat)==4) ,] 

dat6 <- dat[ which(row.names(dat)=="3") ,] 

dat7 <- dat[ which(row.names(dat)!="4") ,2:3] 

# 소트

dat8 <- dat7[order(-cB),]

nrow(dat8)

# 조건문 ifelse, if else

dat9 <- dat

dat9$is_cAbig <- ifelse(dat$cA>7, "BIG", "small")  

dat9$is_cAbig <- ifelse(dat$cA>7, ifelse(dat$cA>9,"Very BIG", "BIG"), "small")  

# 집계 (평균과 합계)

datagg1 <- aggregate(dat9$cA, by=list(dat9$is_cAbig), 

             FUN=sum)

names(datagg1) <- c("is_cAbig","sum_cA")

for 루프

함수 작성

png 파일 출력

pdf 파일 출력

-------------------------

reshape

apply

--------------------