R/hero_rank.R

In lizhongliu1996/dotaRecord: Analyse your Dota2 Account Data

#' This function tells your top-10-rank heroes among dota2
#' players around whole world when passed dota2 id
#'
#' @param dota2ID your dota2 account ID
#'
#' @return NULL
#' @import ggplot2 ROpenDota
#'
#' @export
#'
#' @examples
#' hero_rank(135474549)
#'
#'
#'
hero_rank<-function(dota2ID){
  rank<-get_hero_rankings(dota2ID)[1:10,]
  hero<-get_heroes()
  id<-rank$hero_id
  q<-hero[,1] %in% id
  hero_name<-as.data.frame(hero[q,1:3])
  colnames(hero_name)<-c("hero_id","longname","hero_name")
  herosrank<-merge(rank,hero_name,by="hero_id")
  newdata<-herosrank[order(-herosrank$percent_rank),]
  newdata$percent_rank<-paste(round(100*newdata$percent_rank, 2), "%")

  titles<-c("The graph shows your top 10 ranked heroes among players worldwide")

  ggplot(data=newdata,aes(y=newdata$percent_rank, x=newdata$hero_name, fill=newdata$hero_name)) +
    geom_bar(stat="identity")+
    labs(title = titles, y="Hero rank in global players",x="Hero names") +
    coord_flip()+
    geom_text(aes(label=newdata$percent_rank), vjust=0, size=4) +
    theme(
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      panel.background = element_rect(fill = "transparent",colour = NA),
      plot.background = element_rect(fill = "transparent",colour = NA)
    ) +
    guides(fill=FALSE)

}