R 각종통계2: 주별 고객단위 구매금액

1. R 소스

1. 주별 고객단위 구매금액
import.df=data.frame(x)
x<-read.table(“c:/image/sales.csv”,sep=”,”,header=TRUE)
aggdata<-aggregate(total_price~no + sale_week,data=import.df,sum)
p<-ggplot(aggdata,aes(sale_week,total_price)); p+geom_boxplot(aes(fill=sale_week))

2. 5만원 미만으로 필터링한 구매금액
import.df=data.frame(x)
x<-read.table(“c:/image/sales.csv”,sep=”,”,header=TRUE)
aggdata<-aggregate(total_price~no + sale_week,data=import.df,sum)
p<-ggplot(subset(aggdata, total_price< 50000), aes(sale_week, total_price)); p + geom_boxplot(aes(fill = sale_week))

2. 자바 소스

2-1. 주별 고객단위 구매금액

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’)”);

    //////////////////////
    //1. 주별 고객단위 구매금액
    rc.voidEval(“import.df=data.frame(x)”);
    rc.voidEval(“aggdata<-aggregate(total_price~no + sale_week,data=import.df,sum)”);
    rc.voidEval(“print(ggplot(aggdata,aes(sale_week,total_price))+geom_boxplot(aes(fill=sale_week)))”);
    break;

//////////////////////

    rc.voidEval(“dev.off()”);
   rc.close();
  }catch(Exception ex){System.out.println(ex.getMessage());}

2-2. 5만원 미만으로 필터링한 구매금액

try{

    //////////////////////
    //2. 5만원 미만으로 필터링한 구매금액
    rc.voidEval(“import.df=data.frame(x)”);
    rc.voidEval(“aggdata<-aggregate(total_price~no + sale_week,data=import.df,sum)”);
    rc.voidEval(“print(ggplot(subset(aggdata, total_price< 50000), aes(sale_week, total_price))+geom_boxplot(aes(fill = sale_week)))”);
    break;

//////////////////////

    rc.voidEval(“dev.off()”);
   rc.close();
  }catch(Exception ex){System.out.println(ex.getMessage());}

답글 남기기 응답 취소