社会調査情報処理実習A 2組

#1変数
number.group <- c(5,3,1,4)
names(number.group) <- c("1st","2nd","3rd","4th")

#棒グラフ
barplot(number.group)

#折れ線グラフ
matplot(number.group,type="o",pch=1)

#円グラフ
pie(number.group)

#帯グラフ
barplot(as.matrix(number.group/sum(number.group)),horiz=T,legend=names(number.group))

#2変数以上
number.groups <- matrix(c(5,3,1,4,4,4,1,3,4,4,3,1),byrow=T,ncol=4)
colnames(number.groups) <- c("1st","2nd","3rd","4th")
rownames(number.groups) <- c("A","B","C")
names(dimnames(number.groups)) <- c("group","gen")

#積み上げ棒グラフ
barplot(t(number.groups),legend=colnames(number.groups))

#集合棒グラフ(グループを先にまとめる)
barplot(t(number.groups),beside=T,legend=colnames(number.groups))

#集合棒グラフ(世代を先にまとめる)
barplot(number.groups,beside=T,legend=rownames(number.groups))

#折れ線グラフ
matplot(t(number.groups),type="o",pch=c(1,2,3),xaxt="n") #折れ線グラフ
axis(side=1,at=1:length(colnames(number.groups)),labels=colnames(number.groups))
legend("bottomleft",legend=rownames(number.groups),col=c(1,2,3),lty=c(1,2,3),pch=c(1,2,3)) 

#帯グラフ(グループ別構成比率)
barplot(prop.table(t(number.groups),margin=2),horiz=T,legend=colnames(number.groups))

#帯グラフ(世代別構成比率)
barplot(prop.table(number.groups,margin=2),horiz=T,legend=rownames(number.groups))

data <- read.csv("http://kyoto-edu.sakura.ne.jp/weblesson/statistics/data/height-age.csv", fileEncoding = "utf-8") 
#散布図
plot(身長~年齢,data) #年齢と身長の散布図