[R] 디아블로3 API를 활용하여 직업별 상위 랭킹 세팅 분포 구하기 네번째날

##작성자: 춤추는초코칩

##작성일: 2018-03-19

##작성내용:바바리안 상위 100위 랭커 세팅 분포 확인하기

첫번째날: 디아블로3 개발자 사이트 가입하기

두번째날: 바바리안 랭커 배틀태그, 히어로아이디 수집하기

세번째날: 바바리안 1위 랭커 아이템 확인하기

지난 시간에 이야기한 대로 이번 시간에는 반복문을 활용해서 1,000명의 랭커들의 아이템정보를 가지고 옵니다.

시간이 걸리는 관계는 이번에는 100명의 랭커들의 아이템정보를 가지고 왔습니다.

item_type <- c("head", "neck", "torso", "shoulders", "legs", "waist", "hands", "bracers", "feet", "leftFinger", "rightFinger", "mainHand", "offHand")

item_name <- matrix(rep("",1300), nrow=100)

for (i in 1:100) {

  item_url <- paste(pre,ranker[i,1],mid,ranker[i,2],post, sep="")

  item_url <- read_html(item_url)

  for (j in 1:13){

    item_name[i,j] <- unlist(strsplit(substr(item_url,regexpr(item_type[j],item_url),regexpr(item_type[j],item_url)+100),"\""))[9]

  }

}

상위 100명의 아이템 정보입니다.

item_name

상위 1위 랭커의 아이템이 사라졌습니다. 영웅을 지우신거 같습니다. 조회가 안돼네요. ㅠ.ㅠ

어떤 세팅을 사용하시는 지 투구를 통해 확인해 보겠습니다.

item_name[,1]

"레코르의 의지"를 많이 사용하시는 거 같습니다. 빈도표를 확인해 보면 더 정확히 알 수 있을 거 같습니다.

head <- table(item_name[,1])

head

레코르가 43명으로 가장 많이 사용되며, 불멸왕이 37명으로 두번째로 많이 사용되고 있습니다. 

대지와 황야는 각각 3명, 7명으로 상대적으로 적네요.

그래프로 확인해 볼까요?

barplot(head, ylim=c(0,50))

확실히 레코르, 불멸왕의 비중이 많은 것을 확인할 수 있습니다. 무기나 스킬까지 확인하면 어떤 세팅인지 더 자세히 확인할 수 있을거 같습니다.

하지만 간단히 보려고 하는 것이니 요기까지하겠습니다.

다음 시간에는 다른 직업군의 분포도 확인해 보겠습니다.