04. R Study 4-2. Find

 

## 2. 사용자 조건에 적합한 데이터 찾기 ##

which(subway$승차총승객수>=50000) #승차총승객수가 50000이상 몇번째 있는 위치
which(subway$하차총승객수<=50) #하차총승객수가 50 이하인 몇번째 있는 위치
max(subway$승차총승객수) #최고 승차총승객수
which.max(subway$승차총승객수) #최고 승차총승객수 위치
min(subway$승차총승객수) #최소 승차총승객수
which.min(subway$승차총승객수) #최소 승차총 승객수 위치

eng<- c(78, 100, 78, 59, 90, 65, 85, 78, 89, 88)
중간 <- which(eng <= 70) #영어 성적이 70 이하인 값들의 인덱스
eng[중간] <- 75 #영어 성적이 70 이하인 값들은 75점으로 중간상태로 변경
eng #상향된 중간 점수확인

기말 <- which(eng>=85) #영어 85점 이상의 인덱스
eng.high <- eng[기말] #85점이상인 점수들만 추출해서 저장
eng.high #내용 확인

sub <- which(subway$하차총승객수<50) #하차 총 승객수가 50 이하인 인덱스
sub
subway.sma <- subway[sub,] #추출한 인덱스에 적절한 값만 추출
subway.sma

# 5열의 값 중 1000보다 큰 데이터 값의 행과 열의 인덱스 위치
sub3 <- which(subway[,5]>1000, arr.ind=TRUE)
sub3

# 노선 == "중앙선" 조건에 만족하는 데이터만 추출함
subset(subway, 노선명=="중앙선")