[R/GGPLOT2] function 함수 : 그래프 저장하는 함수 만들기

■ function 함수를 상ㅇ해 그래프를 저장하는 함수를 만드는 방법을 보여준다.

▶ 예제 코드 (R)


매출 = 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)

매출 = 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)