理学療法士がまとめたノート

統計学備忘録 since2016

Rを使って統計学を勉強するブログです

データの要約

iris
x<-iris$Sepal.Length[1:50]
y<-iris$Sepal.Length[51:100]
xy<-data.frame(x,y)
summary(xy)
boxplot(x,y)
t<-c(1,2)
ave<-c(mean(x),mean(y)) #平均値
points(t,ave,pch=16)   #平均値()を挿入

x y
Min. :4.300 Min. :4.900
1st Qu.:4.800 1st Qu.:5.600
Median :5.000 Median :5.900
Mean :5.006 Mean :5.936
3rd Qu.:5.200 3rd Qu.:6.300
Max. :5.800 Max. :7.000

f:id:yoshida931:20170609173930p:plain

 


エクセルから2列データをコピーして実行
データの要約はテキストファイルに保存されます
よく使っています!

 

sumxy <- function(x,y,TEST01){

t<-read.table("clipboard")
x<-t$V1
y<-t$V2
xy<-data.frame(x,y)

cat1<-c("Min.","1st Qu","Median","Mean", "3rd Qu.","Max.")
 #各項目の名称作成
xs<-summary(x)                        
 #xのまとめ
ys<-summary(y)                        
 #yのまとめ
cat(cat1,"\n","x",xs,"\n","y",ys,"\n\n",file = "TEST01")  
 #cat テキストに出力

boxplot(x,y)
t<-c(1,2)
ave<-c(mean(x),mean(y))
points(t,ave,pch=16)
}  # TEST01=ファイル名

sumxy(x,y,TEST01)