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

副読文書
VI-1. アンケート結果の示し方
選択肢から1つを選んで回答(複数選択が不可)
他のアンケート結果との比較ではなく、
そのアンケート結果における回答の分布を見ることが目的

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

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

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

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

library(tidyverse)

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

library(scales)

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

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

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

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

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

d$Visit <- factor(d$Visit, levels = c("Strongly agree", "Agree", "Neutral", "Disagree", "Strongly disagree"))

# 回答の並び順を指定します。データフレームd中のデータ列Visitに、○○町に観光に行きたいかどうかの回答の名称が入っています。並べたい順番に回答の名称を書きます。回答は文字情報なので、回答の名称を""で囲みます。

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

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

# データの並び順の指定

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

# 必須命令文

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

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

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

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

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

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

geom_bar() +

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

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

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

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

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

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

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

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

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

# 省略してもよい命令文

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

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

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

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

theme_void() +

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

# 図のデザインの指定

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

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

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

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

prop.table(table(d$Visit))

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

# 各データの割合の計算

d$Visit <- factor(d$Visit, levels = c("Strongly disagree", "Disagree", "Neutral", "Agree", "Strongly agree"))

# 回答の並び順を指定します。データフレームd中のデータ列Visitに、○○町に観光に行きたいかどうかの回答の名称が入っています。並べたい順番に回答の名称を書きます。回答は文字情報なので、回答の名称を""で囲みます。

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

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

# データの並び順の指定

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

# 必須命令文

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

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

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

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

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

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

geom_bar(position = "fill") +

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

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

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

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)
)

# 文字の大きさを指定します。横軸(横棒にしても、なぜかこちらは横軸がx軸のままです)の名称(axis.title.x)の文字の大きさを18に、目盛り(axis.text.x)の文字の大きさを12に指定します。縦軸(これもy軸のまま)の名称と目盛りは書かないので、それらの文字の大きさも指定しません。

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

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

prop.table(table(d$Visit))

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

# 各データの割合の計算