MOODLE利用アンケートをRでグラフにver.3修正版

MOODLEの小テストの結果をRを利用してグラフにします。以前に書いたものを書き2点について修正しました。

1.大学のPCにはggplot2がインストールされている。2.MOODLEの評定をcsvでダウンロードするとutf-8への変更は必要ない。

準備

1.MOODLE(言語設定英語)でダウンロード:「小テスト」を用いたアンケートのデータをcsv形式でダウンロードし、適切なディレクトリに保存する。タイトルはdata0とする。

2.R を起動し、データを読み込む。

data0<- read.csv(“data0.csv”)

グラフの作成

下記をRに貼り付け、実行する。

library(ggplot2) #ggplot2を呼び出す。

old = theme_set(theme_gray(base_family=”HiraKakuProN-W3″)) #日本語フォントを入れる。

pie <- ggplot(data0, aes(x = factor(1), fill = factor(Response.1))) +

geom_bar(width = 1)

pie + coord_polar(theta = “y”)

pie <- ggplot(data0, aes(x = factor(1), fill = factor(Response.2))) +

geom_bar(width = 1)

pie + coord_polar(theta = “y”)

Response.3n<-sub(“どちらともいえない”,”3どちらともいえない”,sub(“そう思わない”,”1そう思わない”,sub(“そう思う”,”5そう思う”,sub(“どちらかというとそう思う”,”2どちらかというとそう思う”,sub(“どちらかというとそう思わない”,”4どちらかというとそう思わない”,data0$Response.3)))))

pie <- ggplot(data0, aes(x = factor(1), fill = factor(Response.3n))) +

geom_bar(width = 1)

pie + coord_polar(theta = “y”)

Response.4n<-sub(“どちらともいえない”,”3どちらともいえない”,sub(“そう思わない”,”1そう思わない”,sub(“そう思う”,”5そう思う”,sub(“どちらかというとそう思う”,”2どちらかというとそう思う”,sub(“どちらかというとそう思わない”,”4どちらかというとそう思わない”,data0$Response.4)))))

pie <- ggplot(data0, aes(x = factor(1), fill = factor(Response.4n))) +

geom_bar(width = 1)

pie + coord_polar(theta = “y”)

Response.5n<-sub(“どちらともいえない”,”3どちらともいえない”,sub(“そう思わない”,”1そう思わない”,sub(“そう思う”,”5そう思う”,sub(“どちらかというとそう思う”,”2どちらかというとそう思う”,sub(“どちらかというとそう思わない”,”4どちらかというとそう思わない”,data0$Response.5)))))

pie <- ggplot(data0, aes(x = factor(1), fill = factor(Response.5n))) +

geom_bar(width = 1)

pie + coord_polar(theta = “y”)

Response.6n<-sub(“どちらともいえない”,”3どちらともいえない”,sub(“そう思わない”,”1そう思わない”,sub(“そう思う”,”5そう思う”,sub(“どちらかというとそう思う”,”2どちらかというとそう思う”,sub(“どちらかというとそう思わない”,”4どちらかというとそう思わない”,data0$Response.6)))))

pie <- ggplot(data0, aes(x = factor(1), fill = factor(Response.6n))) +

geom_bar(width = 1)

pie + coord_polar(theta = “y”)

Response.7n<-sub(“どちらともいえない”,”3どちらともいえない”,sub(“そう思わない”,”1そう思わない”,sub(“そう思う”,”5そう思う”,sub(“どちらかというとそう思う”,”2どちらかというとそう思う”,sub(“どちらかというとそう思わない”,”4どちらかというとそう思わない”,data0$Response.7)))))

pie <- ggplot(data0, aes(x = factor(1), fill = factor(Response.7n))) +

geom_bar(width = 1)

pie + coord_polar(theta = “y”)

Response.8n<-sub(“どちらともいえない”,”3どちらともいえない”,sub(“そう思わない”,”1そう思わない”,sub(“そう思う”,”5そう思う”,sub(“どちらかというとそう思う”,”2どちらかというとそう思う”,sub(“どちらかというとそう思わない”,”4どちらかというとそう思わない”,data0$Response.8)))))

pie <- ggplot(data0, aes(x = factor(1), fill = factor(Response.8n))) +

geom_bar(width = 1)

pie + coord_polar(theta = “y”)

結果

スクリーンショット 2016-05-13 12.05.01

 

 

 

 

 

 

スクリーンショット 2016-05-13 12.05.13

 

 

 

 

 

 

スクリーンショット 2016-05-13 12.05.26


柴田 啓文

紹介 柴田 啓文

経済学部教員です。このサイトの管理者の一人です。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です