loop 안에서 그래프 그리기

참조: http://r.789695.n4.nabble.com/png-inside-loop-td3339526.html

참조: http://cran.r-project.org/doc/FAQ/R-FAQ.html#Why-do-lattice_002ftrellis-graphics-not-work_003f

루프 내에서 console이든 파일이든 출력하려면

그래프를 그릴 때 아래와 같은 코드에서

file_name=paste0("/home/sjlee/works/count.", date, "_merged.", width, "x", height,
            ".png")
png(file_name, width=width, height=height, units="px")
qplot(count_data$datetime, count_data$amount, colour=count_data$server, xlab="x label",
            main="amount", margins=TRUE)
dev.off()

아래와 같이 print() 를 사용하시면 됩니다.

file_name=paste0("/home/sjlee/works/count.", date, "_merged.", width, "x", height,
            ".png")
png(file_name, width=width, height=height, units="px")
print(qplot(count_data$datetime, count_data$amount, colour=count_data$server, xlab="x label",
            main="amount", margins=TRUE))
dev.off()

이 예에서는 qplot 함수를 사용하여 그리기 때문에  qplot 함수를 print로 랩핑했습니다.