첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
본 블로그는 광고를 포함하고 있습니다.
광고 클릭에서 발생하는 수익금은 모두 블로그 콘텐츠 향상을 위해 쓰여집니다.

728x90
반응형
728x170
매출 = read.csv('data_win.csv')

library(dplyr)
library(ggplot2)
library(scales)

월점포비교 = 매출 %>%
    filter(매출월 == 1) %>%
    group_by(점포) %>%
    summarise(합계 = sum(구매건수))

월매출그래프 = function(월)
{
    월점포비교 = 매출 %>%
        filter(매출월 == 월) %>%
        group_by(점포) %>%
        summarise(합계 = sum(구매건수))
  
    png(paste(월, '월매출.png', sep=''))

    print(qplot(점포, data = 월점포비교, geom = 'bar', fill = 점포) + geom_bar(aes(weight = 합계)) + scale_y_continuous(labels = comma))

    dev.off()
}

월매출그래프(10)
728x90
반응형
그리드형
Posted by 사용자 icodebroker
TAG , , ,

댓글을 달아 주세요