これから研究を始める高校生と指導教員のために　第2版
探究活動と課題研究の進め方･論文の書き方･口頭とポスター発表の仕方
(これ研)

副読文書
VI-3. アンケート結果の示し方
選択肢から1つを選んで回答(複数選択が不可)
異なる設問の間での回答の関係性を見る場合

setwd("/Users/sakai/Documents/書籍等原稿/これ研2版/課題研究解析")

# あなたの作業ディレクトリの位置を""で囲んで書きます。

# この命令文を実行しておきます。

# 作業ディレクトリの指定

library(tidyverse)

# RStudioを起動しこの命令文を実行しておきます。Rstudio起動後、一度だけ実行すればよいです。Rstudioを終了して再び起動したときは再実行する必要があります。

library(scales)

# この命令文を実行しておきます。Rstudio起動後、一度だけ実行すればよいです。Rstudioを終了して再び起動したときは再実行する必要があります。

d <- read.csv("Donburi.csv")

# csvファイル｢Donburi.csv｣を読み込んでデータフレームdに格納します。ファイル名を""で囲みます。ファイル名の拡張子｢.csv｣も忘れずに書きます。

# データフレームの名称(この例ではd)はお好みのものでよいです。

# Excelで作った解析用ファイルのRへの読み込み

d$Donburi <- factor(d$Donburi, levels = c("Ate", "Did not eat"))
d$Revisit <- factor(d$Revisit, levels = c("Strongly agree", "Agree", "Neutral", "Disagree", "Strongly disagree"))

# 回答の並び順を指定します。データフレームd中のデータ列Donburiに、松茸と秋刀魚の丼を食べたかどうかの回答の名称が、データ列Revisitに、町をまた訪れたいかどうかの回答の名称が入っています。並べたい順番に回答の名称を書きます。文字データなので、名称を""で囲みます。

# d$Donburi, d$Revisitの中身を上書きするためにd$Donburi, d$Revisitに再格納します。

# この命令を実行しないとアルファベット順に並びます。1つ目は、アルファベット順に並んでいるので実は指定不要です。指定の仕方の説明のために書いておきました。

# データの並び順の指定

# 命令文が続く場合には+で繋げ、最後の命令文の後には+を付けません。

# 町をまた訪れたいかどうか(Revisit)を例に説明します。松茸と秋刀魚の丼を食べたかどうかの作図は、RevisitをDonburiに入れ替えて行ってください。

# 必須命令文

ggplot(d, aes(x = "", fill = Revisit)) +

# データフレームdを指定します。

# 1つの図を描く場合はx軸を指定しません。x = ""とします。xは小文字です。""の中は空です。

# fill = Revisitと指定します。この指定により、データ列Revisitをy軸として扱います。データ列Revisitには、Strongly agree, Agree, Neutral, Disagree, Strongly disagreeという回答が入っています。各回答の数を集計し、回答ごとに色分けをして作図します。

# 末尾の+を忘れないで下さい。

# 帯グラフにおける、作図に用いるデータフレームとデータの指定、および帯グラフの指定；データ列に入っている各項目の数を集計して1つの図を描く場合

geom_bar() +

# 描く図として、まずは帯グラフを指定します。

# 末尾の+を忘れないで下さい。

# 帯グラフにおける、作図に用いるデータフレームとデータの指定、および帯グラフの指定；データ列に入っている各項目の数を集計して1つの図を描く場合

coord_polar(theta = "y", direction = - 1) +

# 円グラフに変換します。

# theta = "y"と指定し、y軸として指定したFreqを描くようにします。yを""で囲みます。

# direction = - 1は、聴き取りやすさへの回答(Very good等)を時計回りに配置するという指定です。データの並び順で指定した順番で時計回りに配置します。これを省略すると反時計回りに配置されます。

# 末尾の+を忘れないで下さい。ただし、以降の命令文を省略する場合は+を付けず、｢coord_polar(theta = "y", direction = - 1)｣とします。

# 帯グラフの円グラフへの変換

# 省略してもよい命令文

# 以降の命令文を省略するとデフォルトで自動で描きます。

labs(x = "", y = "Intention to revisit") +

# 図の名称をIntention to revisitにします。x軸の名称は描かず、y軸の名称をIntention to revisitと指定します。名称を""で囲みます。x, yは小文字です。

# x軸･y軸の名称の指定

theme_void() +

# 図の背景色を白にします。余計な軸等も描かせないため、theme_void()を指定します。

# 図のデザインの指定

theme(axis.title.x = element_text(size = 18))

# 図の名称(Intention to revisit)の文字の大きさを18に指定します。axis.title.xであってaxis.title.ｙではないので注意してください。

# x軸･y軸の文字の大きさと書き方の指定

# 出来上がった図(画面3-1)をPowerPoint等に読み込んで加工するために、丼を食べたかどうか(Donburi)･町をまた訪れたいか(Revisit)それぞれにおける各回答の割合を計算します。そして(画面3-2)のような図に加工します。PowerPoint等への図の読み込み方は、図の保存･コピーの仕方を参照して下さい。

prop.table(table(d$Donburi))
prop.table(table(d$Revisit))

# データフレームdのデータ列Donburi, Revisitに入っている各回答の割合を計算します。

# 各データの割合の計算

d$Donburi <- factor(d$Donburi, levels = c("Did not eat", "Ate"))
d$Revisit <- factor(d$Revisit, levels = c("Strongly disagree", "Disagree", "Neutral", "Agree", "Strongly agree"))

# 回答の並び順を指定します。データフレームd中のデータ列Donburiに、松茸と秋刀魚の丼を食べたかどうかの回答の名称が、データ列Revisitに、町をまた訪れたいかどうかの回答の名称が入っています。並べたい順番に回答の名称を書きます。回答は文字情報なので、回答の名称を""で囲みます。

# d$Donburi, d$Revisitの中身を上書きするためにd$Donburi, d$Revisitに再格納します。

# この命令を実行しないとアルファベット順に並びます。

# データの並び順の指定

# 命令文が続く場合には+で繋げ、最後の命令文の後には+を付けません。

# 必須命令文

ggplot(d, aes(x = Donburi, fill = Revisit)) +

# データフレームdを指定します。

# x = Donburiとして、松茸と秋刀魚の丼を食べたかどうか(AteかDid not eatか)が入っているデータ列Donburiをx軸に指定します。xは小文字です。Ate, Did not eatのデータをx軸に並べて描きます。

# fill = Revisitと指定します。この指定により、データ列Revisitをy軸として扱います。データ列Revisitには、Strongly agree, Agree, Neutral, Disagree, Strongly disagreeという回答が入っています。各回答の数を集計し、回答ごとに色分けをして作図します。

# 末尾の+を忘れないで下さい。

# 帯グラフにおける、作図に用いるデータフレームとデータの指定、および帯グラフの指定；データ列に入っている各項目の数を集計して複数の図を描く場合

geom_bar(position = "fill") +

# 描く図として帯グラフを指定します。position = "fill"と指定することで、百分率による作図にします。fillを""で囲みます。この命令文を省略してgeom_bar()すると、各回答の絶対数で作図します。

# 末尾の+を忘れないで下さい。

# 帯グラフにおける、作図に用いるデータフレームとデータの指定、および帯グラフの指定；データ列に入っている各項目の数を集計して複数の図を描く場合

scale_y_continuous(labels = percent) +

# y軸の目盛りをパーセント表記にします。scalesをRに読み込んでおかないとこの命令文を実行できません。この命令文を実行しないと0から1の率で表記します。

# 末尾の+を忘れないで下さい。ただし、以降の命令文を省略する場合は+を付けず、｢scale_y_continuous(labels = percent)｣とします。

# 回答割合の目盛りの表記の指定

# 省略してもよい命令文

# 以降の命令文を省略するとデフォルトで自動で描きます。

coord_flip() +

# 横棒の帯グラフにします。この命令文を実行しないと縦棒の帯グラフになります。

# 横棒か縦棒かの指定

guides(fill = guide_legend(reverse = TRUE)) +

# 図本体右横の凡例の並びを、データの並び順で指定したものと逆順にします。上から、Strongly agree, Agree, Neutral, Disagree, Strongly disagreeの順に並びます。この指定をしないと、Strongly disagree, Disagree, Neutral, Agree, Strongly agreeの順番(データの並び順で指定した順番)に並びます。図本体での並びと合うように、逆順にするかしないかを決めて下さい。

# 凡例の並び順の指定

labs(x = "", y = "Percent") +

# 縦軸(横棒にしているので実はx軸)の名称は書かず、横軸(実はy軸)の名称をParcentにします。名称を""で囲みます。x, yは小文字です。

# x軸･y軸の名称の指定

theme_classic() +

# 図の背景色を白にします。

# 図のデザインの指定

theme(
axis.title.x = element_text(size = 18),
axis.text.x = element_text(size = 12),
axis.text.y = element_text(size = 18)
)

# 文字の大きさを指定します。横軸(横棒にしても、なぜかこちらは横軸がx軸のままです)の名称(axis.title.x)の文字の大きさを18に、目盛り(axis.text.x)の文字の大きさを12に指定します。縦軸(これもy軸のまま)の目盛り(axis.title.y)には、松茸と秋刀魚の丼を食べたかどうか(AteかDid not eat)が入っています。その文字の大きさを18に指定します。縦軸(y軸)の名称(axis.text.y)は書かないので、その文字の大きさも指定しません。

# x軸･y軸の文字の大きさと書き方の指定

# 出来上がった図(画面4-1)をPowerPoint等に読み込んで加工するために、丼を食べた人(Ate)食べなかった人(Did not eat)それぞれにおける各回答の割合を計算します。そして(画面4-2)のような図に加工します。PowerPoint等への図の読み込み方は、図の保存･コピーの仕方を参照して下さい。

x1 <- filter(d, Donburi == "Ate")
x2 <- filter(d, Donburi == "Did not eat")

# データフレームdの中から、丼を食べた人(Ate)の回答を取り出しデータフレームx1に格納します。食べなかった人(Did not eat)の回答を取り出しデータフレームx2に格納します。=を2つ繋げ==とすることに注意して下さい。回答は文字情報なので、取り出す回答名を""で囲みます。

prop.table(table(x1$Revisit))
prop.table(table(x2$Revisit))

# データフレームx1, x2のデータ列Revisitに入っている各回答の割合を計算します。

# 各データの割合の計算