Re: 오늘의 마지막 문제. 오늘 배운 내용 (왜도,첨도,히스토그램, 산포도, 상관계수, 이원 교차표,..

[19기_박두연]

subway <- read.csv("2호선_강남역_시간대별_승하차현황_수정2.csv", header=T, fileEncoding ='euc-kr')

x<-plot(subway$time, subway$in_cnt, pch=21, col='red', bg='red')
y<-plot(subway$time, subway$out_cnt, pch=21, col='blue', bg='blue')
cor(subway$time, subway$in_cnt)
cor(subway$time, subway$out_cnt)

강남역 2호선의 시간대별 탑승 수는 양의 상관관계, 하차 수는 약한 음의 상관관계를 보이고, 하차수와 탑승 수는 상관관계가 매우 낮다.