막대그래프는 5분만에 그렸지만 에러버그리기까지 2시간 걸린 자신을 위해.. 막대그래프는 5분만에 그렸지만 에러버그리기까지 2시간 걸린 자신을 위해..
CG, CSG, SG의 함수율 값을 그래프로 나타내자..! 반복실험을4번하고,값은그룹당4개씩먼저replicon값을각각그래프로나타내봅시다 CG, CSG, SG의 함수율 값을 그래프로 나타내자..! 반복실험을4번하고,값은그룹당4개씩먼저replicon값을각각그래프로나타내봅시다
인기글
CG=c(95.53、93.36、95.34、95.33)CSG=c(73.40、73.47、69.45、73.62)SG=c(83.2,84.6,83.1,84.7)mat2=cbind(CG、CSG、SG)barplot(mat2,beside=T,main=”関数率の評価”,ylab=”Water Content(%)”,imyl=(0cylabyl軸)の平均値の最小値における。 CG=c(95.53、93.36、95.34、95.33)CSG=c(73.40、73.47、69.45、73.62)SG=c(83.2,84.6,83.1,84.7)mat2=cbind(CG、CSG、SG)barplot(mat2,beside=T,main=”関数率の評価”,ylab=”Water Content(%)”,imyl=(0cylabyl軸)の平均値の最小値における。
x<-rbind(c(95.53,73.4,83.2),c(93.36,73.47,84.6),c(95.34,69.45,83.1),c(95.33,73.62,84.7))colnames(x)<-c(“CG”,”CSG”,”SG”)rownames(x)<-c(“rep1″,”rep2″,”rep3″,”rep4″)xm<-apply(x,2,mean)xs<-apply(x,2,sd)b<-barplot(xm,xlab=”gel”,ylab=”Water Content(%)”,ylim=c(0,100))arrows(b,xm-xs,b,xm+xs,code=3,lwd=1,angle=90,length=0. 1)끝 처음엔 ggplot으로 그려보려고 했는데 외국인 유튜브 영상을 보고 포기, 이게 제일 쉬운 것 같아 *R 사용시* 그냥 노트패드에 코드를 미리 적어놓고 복사하는 게 마음이 편하다. 에러가 나면 대문자나 소문자등 글자 하나하나가 일치하는지 확인하자 c가 아닌 C를 사용하면 자꾸 에러가 난다 x<-rbind(c(95.53,73.4,83.2),c(93.36,73.47,84.6),c(95.34,69.45,83.1),c(95.33,73.62,84.7))colnames(x)<-c(“CG”,”CSG”,”SG”)rownames(x)<-c(“rep1″,”rep2″,”rep3″,”rep4″)xm<-apply(x,2,mean)xs<-apply(x,2,sd)b<-barplot(xm,xlab=”gel”,ylab=”Water Content(%)”,ylim=c(0,100))arrows(b,xm-xs,b,xm+xs,code=3,lwd=1,angle=90,length=0. 1)끝 처음엔 ggplot으로 그려보려고 했는데 외국인 유튜브 영상을 보고 포기, 이게 제일 쉬운 것 같아 *R 사용시* 그냥 노트패드에 코드를 미리 적어놓고 복사하는 게 마음이 편하다. 에러가 나면 대문자나 소문자등 글자 하나하나가 일치하는지 확인하자 c가 아닌 C를 사용하면 자꾸 에러가 난다
