R 각종통계1: 상품별/나이별/성별
1. 기본예제
x<-read.table(“c:/image/sales.csv”,sep=”,”,header=TRUE)
ggplot(x,aes(sale_day))+geom_bar()+facet_wrap(~sex)
2. 자바 소스
public void createImage(int no){
try{
RConnection rc=new RConnection();
rc.voidEval(“Sys.setenv(JAVA_HOME=’C:/Program Files/Java/jre7′)”);
rc.voidEval(“library(ggplot2)”);
rc.voidEval(“library(KoNLP)”);
rc.voidEval(“x<-read.table(‘C:/Spring/workspace/.metadata/.plugins/org.eclipse.wst.server.core/tmp0/wtpwebapps/GoodsProject/shop/sales.csv’,sep=’,’,header=TRUE)”);
rc.voidEval(“png(‘C:/Spring/workspace/.metadata/.plugins/org.eclipse.wst.server.core/tmp0/wtpwebapps/GoodsProject/shop/sales.png’)”);
switch(no) {
case 1:
rc.voidEval(“print(qplot(sale_day,data=x,geom=’bar’,fill=sex,xlab=’SALESDAY’,ylab=’ACCOUNT’))”);
break;
case 2:
rc.voidEval(“print(qplot(sale_day,data=x,geom=’bar’,fill=sale_week,xlab=’SALESDAY’,ylab=’ACCOUNT’))”);
break;
case 3:
rc.voidEval(“print(ggplot(x,aes(sale_day))+geom_bar()+facet_wrap(~sex))”);
break;
case 4:
rc.voidEval(“print(ggplot(x,aes(sale_day))+geom_bar()+facet_wrap(~age))”);
break;
case 5:
rc.voidEval(“print(ggplot(x,aes(sale_day))+geom_bar()+facet_wrap(~sale_week))”);
break;
case 6:
rc.voidEval(“print(ggplot(x,aes(sale_day))+geom_bar()+facet_wrap(~sale_day))”);
break;
case 7:
rc.voidEval(“print(ggplot(x,aes(sale_day))+geom_bar()+facet_wrap(~sale_wh_day))”);
break;
}
rc.voidEval(“dev.off()”);
rc.close();
}catch(Exception ex){System.out.println(ex.getMessage());}
}