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

副読文書
V-2. データの値がそもそもばらつく対象の解析
2種類のデータの関係性の示し方
(｢これ研｣本文の第3部3.3.1, 3.3.2項；p. 93)

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

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

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

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

library(tidyverse)

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

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

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

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

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

d$Locality <- factor(d$Locality, levels=c("Tohoku", "Kanto", "Kansai", "Kyushu"))

# 地域の並び順を指定します。データフレームd中のデータ列Localityに地域名が入っています。並べたい順番に地域名を書きます。地域名は文字情報なので、地域名を""で囲みます。

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

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

# データの並び順の指定

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

# 必須命令文
ggplot(d, aes(x = Length.mm, y = Egg.number)) +

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

# x = Length.mmとして、体長(Length.mm)が入っているデータ列Length.mmをx軸(横軸)に指定します。xは小文字です。

# y = Egg.numberとして、産卵数(Egg.number)が入っているデータ列Egg.numberをy軸(縦軸)に指定します。yは小文字です。

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

# 散布図における、作図に用いるデータフレームとデータの指定

geom_point(size = 1.5) +

# 描く図として散布図を指定します。

# size = で点の大きさを指定します。1.5にしています。

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

# 散布図･点グラフの指定

facet_wrap(~ Locality, ncol = 1) +

# データ列Localityに入っている地域(Tohokuなど)ごとに散布図を描きます。それらの図を並べて示します。Localityの前の~を忘れずに書いて下さい。

# 図の並べ方をncol(またはnrow)で指定します。ncol=1にすると縦1列に並びます。

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

# 複数の図の並べ方の指定

# 省略してもよい命令文

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

geom_smooth(method = lm, se = FALSE) +

# 回帰式を描きます。描きたくない場合や、x軸(横軸)とy軸(縦軸)のデータ間に関係性が無さそうな場合はこの命令文を省略します。

# se = FALSEは、信頼区間というものを描かせないという指定です。高校のレベルを超えているので描かせません。信頼区間の意味を理解しているのなら描かせてもよいです。その場合は、se = FALSEを取り除き、｢geom_smooth(method = lm)｣とします。

# 回帰式の描き込み

labs(x = "Body length (mm)", y = "Egg number") +

# x軸(横軸)の名称をBody length (mm)に、y軸(縦軸)の名称をEgg numberにします。名称を""で囲みます。x, yは小文字です。

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

scale_x_continuous(limits = c(10, 50)) +

# x軸(横軸)を描く範囲を10から50に指定します。

# x軸･y軸の値の最小値･最大値の指定

scale_y_continuous(limits = c(0, 40)) +

# y軸(縦軸)を描く範囲を0から40に指定します。

# x軸･y軸の値の最小値･最大値の指定

theme_classic() +

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

# 図のデザインの指定

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

# x軸(横軸)･y軸(縦軸)の名称(axis.title.x, axis.title.y)の文字の大きさを18に、x軸･y軸の目盛り(axis.text.x, axis.text.y)の文字の大きさを9に指定します。

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

　画面2-2のように軸の説明を日本語にする場合は、以下の2つの命令文を書き替えます。他の命令文はそのままでよいです。

labs(x = "体長(mm)", y = "産卵数") +

# x軸(横軸)の名称を体長(mm)に、y軸(縦軸)の名称を産卵数にします。名称を""で囲みます。x, yは小文字です。

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

theme_classic(base_family = "HiraKakuPro-W3") +

# 日本語のフォントとしてHiraKakuPro-W3を指定します。フォントの名称を""で囲みます。

#　HiraKakuPro-W3の他にも、HiraKakuPro-W6, Meiryo, MS Gothic, Osakaなど色々なフォントがあります。お好みのフォントを設定して下さい。

# 図のデザインの指定

# Tohokuといった文字を日本語にしたい場合は、この図をPowerPoint等に読み込んで修正するのが手っ取り早いです。英語を白く塗りつぶしたり切り取ったりして、日本語を書き込みましょう。PowerPoint等への図の読み込み方は、図の保存･コピーの仕方を参照して下さい。

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

# 必須命令文

ggplot(d, aes(x = Length.mm, y = Egg.number, color = Locality)) +

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

# x = Length.mmとして、体長(Length.mm)が入っているデータ列Length.mmをx軸(横軸)に指定します。xは小文字です。

# y = Egg.numberとして、産卵数(Egg.number)が入っているデータ列Egg.numberをy軸(縦軸)に指定します。yは小文字です。

# color = Localityとして、Localityに入っている地域名(Tohokuなど)ごとに色分けをします。

# shape = Localityとして、点(記号)の形を地域ごとに変えることもできます。すぐ下のリンクを参照して下さい。

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

# 散布図における、作図に用いるデータフレームとデータの指定

geom_point() +

# 描く図として散布図を指定します。

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

# 散布図･点グラフの指定

# 省略してもよい命令文

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

geom_smooth(method = lm, se = FALSE) +

# 回帰式を描きます。描きたくない場合や、x軸(横軸)とy軸(縦軸)のデータ間に関係性が無さそうな場合はこの命令文を省略します。

# se = FALSEは、信頼区間というものを描かせないという指定です。高校のレベルを超えているので描かせません。信頼区間の意味を理解しているのなら描かせてもよいです。その場合は、se = FALSEを取り除き、｢geom_smooth(method = lm)｣とします。

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

# 回帰式の描き込み

labs(x = "Body length (mm)", y = "Egg number") +

# x軸(横軸)の名称をBody length (mm)に、y軸(縦軸)の名称をEgg numberにします。名称を""で囲みます。x, yは小文字です。

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

scale_x_continuous(limits = c(10, 50)) +

# x軸(横軸)を描く範囲を10から50に指定します。

# x軸･y軸の値の最小値･最大値の指定

scale_y_continuous(limits = c(0, 40)) +

# y軸(縦軸)を描く範囲を0から40に指定します。

# x軸･y軸の値の最小値･最大値の指定

theme_classic() +

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

# 図のデザインの指定

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

# x軸(横軸)･y軸(縦軸)の名称(axis.title.x, axis.title.y)の文字の大きさを18に、x軸･y軸の目盛り(axis.text.x, axis.text.y)の文字の大きさを9に指定します。

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

　画面3-2のように軸の説明を日本語にする場合は、以下の2つの命令文を書き替えます。他の命令文はそのままでよいです。

labs(x = "体長(mm)", y = "産卵数") +

# x軸(横軸)の名称を体長(mm)に、y軸(縦軸)の名称を産卵数にします。名称を""で囲みます。x, yは小文字です。

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

theme_classic(base_family = "HiraKakuPro-W3") +

# 日本語のフォントとしてHiraKakuPro-W3を指定します。フォントの名称を""で囲みます。

#　HiraKakuPro-W3の他にも、HiraKakuPro-W6, Meiryo, MS Gothic, Osakaなど色々なフォントがあります。お好みのフォントを設定して下さい。

# 図のデザインの指定

# Locality, Tohokuといった文字を日本語にしたい場合は、この図をPowerPoint等に読み込んで修正するのが手っ取り早いです。英語を白く塗りつぶしたり切り取ったりして、日本語を書き込みましょう。PowerPoint等への図の読み込み方は、図の保存･コピーの仕方を参照して下さい。

d2 <- filter(d, Locality == "Tohoku")

# Tohokuのデータを取り出す場合です。

# データフレームdから、データ列Localityに入っている地域名がTohokuのものを取り出しデータフレームd2に格納します。=を2つ繋げ==とすることに注意して下さい。地域名は文字情報なので、地域名を""で囲みます。

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

# 複数の地域のデータを取り出すこともできます(すぐ下のリンクを参照)。

# データフレーム中の特定のデータの取り出し

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

# 必須命令文

ggplot(d2, aes(x = Length.mm, y = Egg.number)) +

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

# x = Length.mmとして、体長(Length.mm)が入っているデータ列Length.mmをx軸(横軸)に指定します。xは小文字です。

# y = Egg.numberとして、産卵数(Egg.number)が入っているデータ列Egg.numberをy軸(縦軸)に指定します。yは小文字です。

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

# 散布図における、作図に用いるデータフレームとデータの指定

geom_point() +

# 描く図として散布図を指定します。

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

# 散布図･点グラフの指定

# 省略してもよい命令文

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

geom_smooth(method = lm, se = FALSE) +

# 回帰式を描きます。描きたくない場合や、x軸(横軸)とy軸(縦軸)のデータ間に関係性が無さそうな場合はこの命令文を省略します。

# se = FALSEは、信頼区間というものを描かせないという指定です。高校のレベルを超えているので描かせません。信頼区間の意味を理解しているのなら描かせてもよいです。その場合は、se = FALSEを取り除き、｢geom_smooth(method = lm)｣とします。

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

# 回帰式の描き込み

labs(x = "Body length (mm)", y = "Egg number") +

# x軸(横軸)の名称をBody length (mm)に、y軸(縦軸)の名称をEgg numberにします。名称を""で囲みます。x, yは小文字です。

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

scale_x_continuous(limits = c(10, 50)) +

# x軸(横軸)を描く範囲を10から50に指定します。

# x軸･y軸の値の最小値･最大値の指定

scale_y_continuous(limits = c(0, 40)) +

# y軸(縦軸)を描く範囲を0から40に指定します。

# x軸･y軸の値の最小値･最大値の指定

theme_classic() +

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

# 図のデザインの指定

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

# x軸(横軸)･y軸(縦軸)の名称(axis.title.x, axis.title.y)の文字の大きさを18に、x軸･y軸の目盛り(axis.text.x, axis.text.y)の文字の大きさを9に指定します。

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

# 複数の地域を取り出した場合は、全地域の散布図を並べて描くや全地域の散布図を一枚の図に描くと同じ方法で作図します。

　画面4-2のように軸の説明を日本語にする場合は、以下の2つの命令文を書き替えます。他の命令文はそのままでよいです。

labs(x = "体長(mm)", y = "産卵数") +

# x軸(横軸)の名称を体長(mm)に、y軸(縦軸)の名称を産卵数にします。名称を""で囲みます。x, yは小文字です。

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

theme_classic(base_family = "HiraKakuPro-W3") +

# 日本語のフォントとしてHiraKakuPro-W3を指定します。フォントの名称を""で囲みます。

#　HiraKakuPro-W3の他にも、HiraKakuPro-W6, Meiryo, MS Gothic, Osakaなど色々なフォントがあります。お好みのフォントを設定して下さい。

# 図のデザインの指定

# 地域を区別せずに、全地域のデータをまとめて相関係数を計算する場合の計算方法です。

cor(d$Length.mm, d$Weight.mg)

# データフレームdに入っている、データ列Length.mmとデータ列Weight.mgの相関係数を計算します。

# 相関係数が0.9266001で、非常に強い正の相関関係があります。

# 相関係数の計算

# 地域を区別して、各地域における相関係数を計算する場合の計算方法です。東北を対象とする例です。他の地域も同じ方法で計算します。

d2 <- filter(d, Locality == "Tohoku")

# データフレームdから、データ列Localityに入っている地域名がTohokuのものを取り出しデータフレームd2に格納します。=を2つ繋げ==とすることに注意して下さい。地域名は文字情報なので、地域名を""で囲みます。

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

# データフレーム中の特定のデータの取り出し

cor(d2$Length.mm, d2$Weight.mg)

# データフレームd2に入っている、データ列Length.mmとデータ列Weight.mgの相関係数を計算します。

# 相関係数が0.9403134で、非常に強い正の相関関係があります。

# 相関係数の計算