## 경기 결과열을 만들어 줍니다.

kbo_total$경기결과  <- ifelse(kbo_total$홈팀점수>kbo_total$원정팀점수,"홈승",ifelse(kbo_total$홈팀점수<kbo_total$원정팀점수,"원정승","무"))


## 정규시즌만 뽑아 줍니다.

normal_season <- subset(kbo_total,kbo_total$비고=="정규시즌")
doosan <- subset(normal_season,normal_season$홈팀=="두산"|normal_season$원정팀=="두산")


## 홈팀과 원정팀의 경기 수를 경기결과에 따라 분류합니다.

home <- aggregate(홈팀점수~홈팀+원정팀+경기결과,doosan,length)
doosan_home <- home[home$홈팀=="두산",]

away <- aggregate(원정팀점수~홈팀+원정팀+경기결과,doosan,length)
doosan_away <- away[away$원정팀=="두산",]


## 두산이 홈일 때와 원정일 때의 승리만 따로 뽑아줍니다.

doosan_home_win <- doosan_home[doosan_home$경기결과=="홈승",]
doosan_away_win <- doosan_away[doosan_away$경기결과=="원정승",]


## 두산의 열이 중복되므로 지워줍니다.

doosan_home_win <- doosan_home_win[,-1]
doosan_away_win <- doosan_away_win[,-2]


## 하나의 자료로 만들어 줍니다.

colnames(doosan_home_win) <- c("상대팀","경기결과","승리횟수")
colnames(doosan_away_win) <- c("상대팀","경기결과","승리횟수")

doosan_win <- rbind(doosan_home_win,doosan_away_win)  

## 이제 두산의 상대전적(승리)그래프를 그려봅시다.

p <- ggplot(doosan_win,aes(x=상대팀,y=승리횟수,fill= 경기결과))+
geom_bar(stat="identity",colour = "black")+
scale_x_discrete(limits=c("한화","KIA", "SK", "LG", "넥센", "삼성", "롯데", "NC","kt" ))+
theme(axis.text.x= element_text(angle=90, hjust=1))

p+labs(title="두산상대전적그래프")