function() 만들기

지난번에 

반복되는 코드를 축약시키는 function에 대해서 나름 정리한다고 정리하고... 사용하던 찰라.. 

2017/11/09 - [실전 전투 R] - function() 을 찾다..

t.test 까지 포함한 function을 만들면 더 편하겠다라는 생각에 

다시 구글링을 시작하였다... 

지난 버전은 ddplyr로 평균과 표준편차를 구해서 error bar까지 그린 ggplot을 작성했는데 

간단하게 생각하고 그냥 t.test 결과만 붙일 생각을 했는데... 

안됩디다... 

그러다가 찾은 패키지 .. 

"ggpurb" 

세상 편하다... 결국 function의 코드도 대폭 줄일 수 있게 되었다. . 

f=function(x){
  s=select(df3, c("region",x))
  Spring=filter(s, region=="Spring")
  Summer=filter(s, region=="Summer")
  df4=rbind(Spring, Summer)
  ggbarplot(df4, x="region", y=x, add="mean_se", fill="region")+
    stat_compare_means(label="p.signif", ref.group="Spring", label.y=70)+
    theme_hc()+theme(legend.position = "none")+ylab(x)+xlab("")
}

이제.. 이 코드로 한결 쉬운 그림그리기가 될 것 같다.. 

역시.. .

귀찮음은 무엇인가를 배우게 하니... 자주 귀찮아야

할텐데..