総合課題
- 某総合大学在籍者対象のアンケート調査アンケート項目
-
質問項目 回答 欠損値 尺度水準 Q1 性自認は? 女性:1, 男性:0 9 名義 Q2 学部は? 理工学部:1, 人文学部:2, 法学部:3, 経済学部:4 9 名義 Q3 推薦入学ですか?一般入試ですか? 推薦入学:1 一般入試:0 9 名義 Q4 自宅ですか？下宿ですか？ 自宅:1, 下宿:0 9 名義 Q5 1ヶ月の支出は？ [ ]万円 99 比例 Q6 1ヶ月の収入は？ [ ]万円 99 比例 Q7 アルバイトをしていますか？ はい:1 いいえ:0 9 名義 Q8 サークル活動をしていますか？ はい:1 いいえ:0 9 名義 Q9 習い事をしていますか？ はい:1 いいえ:0 9 名義 Q10 選挙には行きましたか? はい:1 いいえ:0 9 名義 Q11 書籍を月何冊購入しますか？ 1. 3冊以上，2. 3冊未満 9 順序 Q12 通信代は月いくら位ですか？ 1. 6千円以上，2. 6千円未満 9 順序
- 「Q1.性自認」,「Q3.推薦入学か一般入試か」,「Q4.自宅か下宿か」により「Q5.1ヶ月の支出」,「Q6.1ヶ月の収入」に差があるかどうか、あるとしたらどのような差があるか
- 「Q2.学部」により「Q5.1ヶ月の支出」,「Q6.1ヶ月の収入」に差があるかどうか、あるとしたらどのような差があるか
- Q1～Q4とQ7～の関係
について平均の差の検定・分散分析・クロス集計表の独立性の検定を行い、各々の結果を踏まえてデータから読み取れることを簡潔にワープロ文書としてまとめよ。
- 分析に使用するツールは特に指定しない(Excel,SPSS,Rなど)
- 5%水準で有意な結果が見られる組み合わせを一つ以上見つけ、その結果について記述せよ
- 分析結果から読み取れることだけを記述する
- 踏み込んだ考察は不要
- 分析間での総合的な考察も不要
Rで分析する際の準備
#社会統計用基礎関数ツールの読み込み
source("http://kyoto-edu.sakura.ne.jp/weblesson/statistics/socialStatisticsBasic.R", encoding="UTF-8")
#データファイルの読み込み
data <- read.csv("http://kyoto-edu.sakura.ne.jp/weblesson/statistics/data/overall.csv")
#変数の置き換え(支出と収入以外は名義尺度)と欠損値処理
Q1 <- factor(data$Q1)
is.na(Q1) <- Q1 == 9
Q2 <- factor(data$Q2)
is.na(Q2) <- Q2 == 9
Q3 <- factor(data$Q3)
is.na(Q3) <- Q3 == 9
Q4 <- factor(data$Q4)
is.na(Q4) <- Q4 == 9
outgo <- data$Q5
is.na(outgo) <- outgo == 99
income <- data$Q6
is.na(income) <- income == 99
Q7 <- factor(data$Q7)
is.na(Q7) <- Q7 == 9
Q8 <- factor(data$Q8)
is.na(Q8) <- Q8 == 9
Q9 <- factor(data$Q9)
is.na(Q9) <- Q9 == 9
Q10 <- factor(data$Q10)
is.na(Q10) <- Q10 == 9
Q11 <- factor(data$Q11)
is.na(Q11) <- Q11 == 9
Q12 <- factor(data$Q12)
is.na(Q12) <- Q12 == 9
R 社会統計用基礎関数ツールを使うと楽。