【方法】 barplot()
#サンプルデータ作成
v.x1 <- c(1,2,3,4,5,6,7,8,9,10)
v.x2 <- c("a","a","b","b","b","c","c","c","c","c")
v.x3 <- c(1000,900,800,700,600,500,400,300,200,100)
df.x <- data.frame(id = v.x1, item = v.x2, price =v.x3)
#先頭6行のデータを表示
head(df.x)
> head(df.x) id item price 1 1 a 1000 2 2 a 900 3 3 b 800 4 4 b 700 5 5 b 600 6 6 c 500
#最小値、第1四分位点、中央値、平均値、第3四分位点、最大値(カテゴリカル変数は度数)
summary(df.x)
> summary(df.x) id item price Min. : 1.00 a:2 Min. : 100 1st Qu.: 3.25 b:3 1st Qu.: 325 Median : 5.50 c:5 Median : 550 Mean : 5.50 Mean : 550 3rd Qu.: 7.75 3rd Qu.: 775 Max. :10.00 Max. :1000
#xtabs:カテゴリーの度数をデータとして得る
data.item <- xtabs(~ item, data = df.x)
data.item
> data.item item a b c 2 3 5
#棒グラフ
barplot(data.item)
#並び替え 降順:decreasing = TRUE
data.item2 <- data.item[order(data.item, decreasing = TRUE)]
barplot(data.item2)
Rでの棒グラフ作図に関するより詳しい説明
http://stat.biopapyrus.net/graph/barplot.html
0 件のコメント :
コメントを投稿
注: コメントを投稿できるのは、このブログのメンバーだけです。