첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.

728x90
반응형
728x170

매출 = read.csv('data_win.csv')

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

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

qplot(점포, data = 월점포비교, geom = 'bar', fill = 점포) + geom_bar(aes(weight = 합계)) + scale_y_continuous(labels = comma)
728x90
반응형
그리드형(광고전용)
Posted by icodebroker
TAG , , ,

댓글을 달아 주세요