TALISデータを学級規模で分析してみる

以下の内容は国立教育政策研究所とは一切関係ありません。

http://stats.oecd.org/Index.aspx?datasetcode=talis_2013 からデータをダウンロードし，個人的に分析を試行しています。

## データ読み込み

  BTGJPNT2 <- read.csv("BTGJPNT2.csv")
  BCGJPNT2 <- read.csv("BCGJPNT2.csv")

  tlscssch <- BCGJPNT2[c("IDSCHOOL", "TC2G10")]
  tlscstch <- BTGJPNT2[c("IDSCHOOL", "IDTEACH", "TT2G05B", "TT2G38", "TT2G34A", 
      "TT2G34B", "TT2G34C", "TT2G34D", "TT2G34E", "TT2G34F", "TT2G34G", "TT2G34H", 
      "TT2G34I", "TT2G34J", "TT2G34K", "TT2G34L", "TT2G41A", "TT2G41B", "TT2G41C", 
      "TT2G41D", "TT2G42A", "TT2G42B", "TT2G42C", "TT2G42D", "TT2G42E", "TT2G42F", 
      "TT2G42G", "TT2G42H", "TT2G43A", "TT2G43B", "TT2G43C", "TT2G43D", "TT2G43E", 
      "TT2G43F")]
  tlstc <- merge(tlscssch, tlscstch)

## 使う変数と変数名

### 学校の情報

国公立or私立
- TC2G10

教師や学級についての情報

教員としての通算勤務年数
TT2G05B
調査対象学級の規模
TT2G38
調査実施日の前週の火曜日の午前11時以降、あなたが最初に教えた中学校の学級

学級の様子

授業を始める際、生徒が静かになるまでかなり長い時間待たなければならない
TT2G41A
この学級の生徒は良好な学習の雰囲気を創り出そうとしている
TT2G41B
生徒が授業を妨害するため、多くの時間が失われてしまう
TT2G41C
教室内はとても騒々しい
TT2G41D

授業の様子

前回の授業内容のまとめを示す
TT2G42A
生徒が少人数のグループで、問題や課題に対する共同の解決策を考え出す
TT2G42B
学習が困難な生徒、進度が速い生徒には、それぞれ異なる課題を与える
TT2G42C
新しい知識が役立つことを示すため、日常生活や仕事での問題を引き合いに出す
TT2G42D
全生徒が単元の内容を理解していることが確認されるまで、類似の課題を生徒に演習させる
TT2G42E
生徒のワークブックや宿題をチェックする
TT2G42F
生徒は完成までに少なくとも一週間を必要とする課題を行う
TT2G42G
生徒は課題や学級での活動にICT（情報通信技術）を用いる
TT2G42H

学習評価の方法

自ら評価方法を開発して実施する
TT2G43A
標準テストを実施する
TT2G43B
個々の生徒にクラスメイトの前で質問に答えさせる
TT2G43C
生徒の学習成果に対して点数や評定による成績評価だけでなく、文書によるフィードバックを行う
TT2G43D
生徒に学習の進捗状況を自己評価させる
TT2G43E
生徒が特定の課題に取り組む様子を観察し、必要なフィードバックを即座に行う
TT2G43F

指導の自己効力感

生徒に勉強ができると自信を持たせる
TT2G34A
生徒が学習の価値を見いだせるよう手助けする
TT2G34B
生徒のために発問を工夫する
TT2G34C
学級内の秩序を乱す行動を抑える
TT2G34D
勉強にあまり関心を示さない生徒に動機付けをする
TT2G34E
自分が生徒にどのような態度・行動を期待しているか明確に示す
TT2G34F
生徒の批判的思考を促す
TT2G34G
生徒を教室のきまりに従わせる
TT2G34H
秩序を乱す又は騒々しい生徒を落ち付かせる
TT2G34I
多様な評価方法を活用する
TT2G34J
生徒がわからない時には、別の説明の仕方を工夫する
TT2G34K
様々な指導方法を用いて授業を行う
TT2G34L

## データの整形 ### 国公立学校のみのデータにする

  tlstc_pub <- subset(tlstc, TC2G10 == 1)

欠損値の置き換え

TT2G05B(NA=99)
TT2G38(NA=996, 997, 999)
TT2G34A～TT2G43F(NA=9)

tlstc_pub[tlstc_pub$TT2G05B == 99, "TT2G05B"] <- NA
tlstc_pub[tlstc_pub$TT2G38 > 900, "TT2G38"] <- NA
tlstc_pub[tlstc_pub$TT2G34A > 4, "TT2G34A"] <- NA
tlstc_pub[tlstc_pub$TT2G34B > 4, "TT2G34B"] <- NA
tlstc_pub[tlstc_pub$TT2G34C > 4, "TT2G34C"] <- NA
tlstc_pub[tlstc_pub$TT2G34D > 4, "TT2G34D"] <- NA
tlstc_pub[tlstc_pub$TT2G34E > 4, "TT2G34E"] <- NA
tlstc_pub[tlstc_pub$TT2G34F > 4, "TT2G34F"] <- NA
tlstc_pub[tlstc_pub$TT2G34G > 4, "TT2G34G"] <- NA
tlstc_pub[tlstc_pub$TT2G34H > 4, "TT2G34H"] <- NA
tlstc_pub[tlstc_pub$TT2G34I > 4, "TT2G34I"] <- NA
tlstc_pub[tlstc_pub$TT2G34J > 4, "TT2G34J"] <- NA
tlstc_pub[tlstc_pub$TT2G34K > 4, "TT2G34K"] <- NA
tlstc_pub[tlstc_pub$TT2G34L > 4, "TT2G34L"] <- NA
tlstc_pub[tlstc_pub$TT2G41A > 4, "TT2G41A"] <- NA
tlstc_pub[tlstc_pub$TT2G41B > 4, "TT2G41B"] <- NA
tlstc_pub[tlstc_pub$TT2G41C > 4, "TT2G41C"] <- NA
tlstc_pub[tlstc_pub$TT2G41D > 4, "TT2G41D"] <- NA
tlstc_pub[tlstc_pub$TT2G42A > 4, "TT2G42A"] <- NA
tlstc_pub[tlstc_pub$TT2G42B > 4, "TT2G42B"] <- NA
tlstc_pub[tlstc_pub$TT2G42C > 4, "TT2G42C"] <- NA
tlstc_pub[tlstc_pub$TT2G42D > 4, "TT2G42D"] <- NA
tlstc_pub[tlstc_pub$TT2G42E > 4, "TT2G42E"] <- NA
tlstc_pub[tlstc_pub$TT2G42F > 4, "TT2G42F"] <- NA
tlstc_pub[tlstc_pub$TT2G42G > 4, "TT2G42G"] <- NA
tlstc_pub[tlstc_pub$TT2G42H > 4, "TT2G42H"] <- NA
tlstc_pub[tlstc_pub$TT2G43A > 4, "TT2G43A"] <- NA
tlstc_pub[tlstc_pub$TT2G43B > 4, "TT2G43B"] <- NA
tlstc_pub[tlstc_pub$TT2G43C > 4, "TT2G43C"] <- NA
tlstc_pub[tlstc_pub$TT2G43D > 4, "TT2G43D"] <- NA
tlstc_pub[tlstc_pub$TT2G43E > 4, "TT2G43E"] <- NA
tlstc_pub[tlstc_pub$TT2G43F > 4, "TT2G43F"] <- NA

欠損値が置き換わったかを確認

summary(tlstc_pub)

##     IDSCHOOL        TC2G10     IDTEACH          TT2G05B         TT2G38   
##  Min.   :3004   Min.   :1   Min.   :300401   Min.   : 0.0   Min.   : 0   
##  1st Qu.:3065   1st Qu.:1   1st Qu.:306512   1st Qu.: 7.0   1st Qu.:30   
##  Median :3110   Median :1   Median :311017   Median :19.0   Median :34   
##  Mean   :3107   Mean   :1   Mean   :310693   Mean   :17.8   Mean   :32   
##  3rd Qu.:3150   3rd Qu.:1   3rd Qu.:315012   3rd Qu.:27.0   3rd Qu.:37   
##  Max.   :3194   Max.   :1   Max.   :319412   Max.   :51.0   Max.   :91   
##                                              NA's   :68     NA's   :421  
##     TT2G34A        TT2G34B        TT2G34C        TT2G34D    
##  Min.   :1.00   Min.   :1.00   Min.   :1.00   Min.   :1.00  
##  1st Qu.:2.00   1st Qu.:2.00   1st Qu.:2.00   1st Qu.:2.00  
##  Median :2.00   Median :2.00   Median :2.00   Median :3.00  
##  Mean   :2.15   Mean   :2.24   Mean   :2.46   Mean   :2.61  
##  3rd Qu.:2.00   3rd Qu.:3.00   3rd Qu.:3.00   3rd Qu.:3.00  
##  Max.   :4.00   Max.   :4.00   Max.   :4.00   Max.   :4.00  
##  NA's   :27     NA's   :29     NA's   :29     NA's   :34    
##     TT2G34E        TT2G34F        TT2G34G        TT2G34H    
##  Min.   :1.00   Min.   :1.00   Min.   :1.00   Min.   :1.00  
##  1st Qu.:2.00   1st Qu.:2.00   1st Qu.:2.00   1st Qu.:2.00  
##  Median :2.00   Median :3.00   Median :2.00   Median :2.00  
##  Mean   :2.16   Mean   :2.61   Mean   :1.99   Mean   :2.56  
##  3rd Qu.:2.00   3rd Qu.:3.00   3rd Qu.:2.00   3rd Qu.:3.00  
##  Max.   :4.00   Max.   :4.00   Max.   :4.00   Max.   :4.00  
##  NA's   :27     NA's   :27     NA's   :60     NA's   :32    
##     TT2G34I        TT2G34J        TT2G34K        TT2G34L        TT2G41A   
##  Min.   :1.00   Min.   :1.00   Min.   :1.00   Min.   :1.00   Min.   :1.0  
##  1st Qu.:2.00   1st Qu.:2.00   1st Qu.:2.00   1st Qu.:2.00   1st Qu.:1.0  
##  Median :2.00   Median :2.00   Median :3.00   Median :2.00   Median :2.0  
##  Mean   :2.56   Mean   :2.22   Mean   :2.61   Mean   :2.48   Mean   :1.8  
##  3rd Qu.:3.00   3rd Qu.:3.00   3rd Qu.:3.00   3rd Qu.:3.00   3rd Qu.:2.0  
##  Max.   :4.00   Max.   :4.00   Max.   :4.00   Max.   :4.00   Max.   :4.0  
##  NA's   :32     NA's   :31     NA's   :31     NA's   :28     NA's   :401  
##     TT2G41B       TT2G41C       TT2G41D       TT2G42A       TT2G42B   
##  Min.   :1     Min.   :1.0   Min.   :1.0   Min.   :1.0   Min.   :1.0  
##  1st Qu.:3     1st Qu.:1.0   1st Qu.:1.0   1st Qu.:2.0   1st Qu.:2.0  
##  Median :3     Median :1.0   Median :2.0   Median :3.0   Median :2.0  
##  Mean   :3     Mean   :1.6   Mean   :1.7   Mean   :2.9   Mean   :2.2  
##  3rd Qu.:3     3rd Qu.:2.0   3rd Qu.:2.0   3rd Qu.:4.0   3rd Qu.:3.0  
##  Max.   :4     Max.   :4.0   Max.   :4.0   Max.   :4.0   Max.   :4.0  
##  NA's   :401   NA's   :402   NA's   :405   NA's   :401   NA's   :403  
##     TT2G42C       TT2G42D       TT2G42E       TT2G42F       TT2G42G   
##  Min.   :1     Min.   :1.0   Min.   :1.0   Min.   :1.0   Min.   :1.0  
##  1st Qu.:1     1st Qu.:2.0   1st Qu.:2.0   1st Qu.:2.0   1st Qu.:1.0  
##  Median :2     Median :3.0   Median :2.0   Median :3.0   Median :1.0  
##  Mean   :2     Mean   :2.6   Mean   :2.2   Mean   :2.8   Mean   :1.7  
##  3rd Qu.:2     3rd Qu.:3.0   3rd Qu.:3.0   3rd Qu.:3.0   3rd Qu.:2.0  
##  Max.   :4     Max.   :4.0   Max.   :4.0   Max.   :4.0   Max.   :4.0  
##  NA's   :412   NA's   :413   NA's   :411   NA's   :406   NA's   :407  
##     TT2G42H       TT2G43A       TT2G43B       TT2G43C       TT2G43D   
##  Min.   :1.0   Min.   :1.0   Min.   :1.0   Min.   :1.0   Min.   :1    
##  1st Qu.:1.0   1st Qu.:1.0   1st Qu.:2.0   1st Qu.:2.0   1st Qu.:1    
##  Median :1.0   Median :2.0   Median :2.0   Median :3.0   Median :2    
##  Mean   :1.5   Mean   :2.1   Mean   :2.2   Mean   :2.6   Mean   :2    
##  3rd Qu.:2.0   3rd Qu.:3.0   3rd Qu.:3.0   3rd Qu.:3.0   3rd Qu.:2    
##  Max.   :4.0   Max.   :4.0   Max.   :4.0   Max.   :4.0   Max.   :4    
##  NA's   :408   NA's   :419   NA's   :417   NA's   :413   NA's   :410  
##     TT2G43E       TT2G43F   
##  Min.   :1.0   Min.   :1.0  
##  1st Qu.:1.0   1st Qu.:2.0  
##  Median :2.0   Median :2.0  
##  Mean   :2.2   Mean   :2.4  
##  3rd Qu.:3.0   3rd Qu.:3.0  
##  Max.   :4.0   Max.   :4.0  
##  NA's   :410   NA's   :410

学級規模を揃えてみる

学級規模の分布

「調査実施日の前週の火曜日の午前11時以降、あなたが最初に教えた中学校の学級」のヒストグラム

hist(tlstc_pub$TT2G38)

plot of chunk hist tlstc_pub$TT2G38

学級規模の上限40人より極端に大きい学級規模の数値は，おそらく学年全体を指導したといった場合ではないかと考えられるため，45人までの回答を分析対象にする。

tlscs <- subset(tlstc_pub, TT2G38 < 46)

もう一度確認

hist(tlscs$TT2G38)

plot of chunk hist tlscs$TT2G38

summary(tlscs$TT2G38)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     0.0    30.0    34.0    31.7    37.0    45.0

table(tlscs$TT2G38)

## 
##   0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17 
##   1  27  29  23   8  18   7   9   8   4  13   5   3   7   8   4   8   9 
##  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35 
##  21   7  22  21   8  22  37  38  48  64  61  95 129 109 160 223 196 248 
##  36  37  38  39  40  41  42  43  45 
## 289 174 173 116 221  20   7   4   1

## とりあえず相関 ### 学級の様子

  fTT2G41A <- factor(tlscs$TT2G41A, levels = 1:4)
  fTT2G41B <- factor(tlscs$TT2G41B, levels = 1:4)
  fTT2G41C <- factor(tlscs$TT2G41C, levels = 1:4)
  fTT2G41D <- factor(tlscs$TT2G41D, levels = 1:4)

  ptTT2G41A <- prop.table(table(fTT2G41A))
  ptTT2G41B <- prop.table(table(fTT2G41B))
  ptTT2G41C <- prop.table(table(fTT2G41C))
  ptTT2G41D <- prop.table(table(fTT2G41D))

  ptTT2G41 <- rbind(ptTT2G41A, ptTT2G41B, ptTT2G41C, ptTT2G41D)
  tTT2G41 <- t(ptTT2G41)
  barplot(tTT2G41, horiz = T)

plot of chunk barplot 41

授業を始める際、生徒が静かになるまでかなり長い時間待たなければならない

cor(tlscs$TT2G38, tlscs$TT2G41A, use = "complete.obs")

## [1] 0.09863

plot(tlscs$TT2G38, tlscs$TT2G41A)

plot of chunk cor TT2G41A

この学級の生徒は良好な学習の雰囲気を創り出そうとしている

cor(tlscs$TT2G38, tlscs$TT2G41B, use = "complete.obs")

## [1] -0.03138

plot(tlscs$TT2G38, tlscs$TT2G41B)

plot of chunk cor TT2G41B

生徒が授業を妨害するため、多くの時間が失われてしまう

cor(tlscs$TT2G38, tlscs$TT2G41C, use = "complete.obs")

## [1] 0.05364

plot(tlscs$TT2G38, tlscs$TT2G41C)

plot of chunk cor TT2G41C

教室内はとても騒々しい

cor(tlscs$TT2G38, tlscs$TT2G41D, use = "complete.obs")

## [1] 0.09656

plot(tlscs$TT2G38, tlscs$TT2G41D)

plot of chunk cor TT2G41D

### 授業の様子

  fTT2G42A <- factor(tlscs$TT2G42A, levels = 1:4)
  fTT2G42B <- factor(tlscs$TT2G42B, levels = 1:4)
  fTT2G42C <- factor(tlscs$TT2G42C, levels = 1:4)
  fTT2G42D <- factor(tlscs$TT2G42D, levels = 1:4)
  fTT2G42E <- factor(tlscs$TT2G42E, levels = 1:4)
  fTT2G42F <- factor(tlscs$TT2G42F, levels = 1:4)
  fTT2G42G <- factor(tlscs$TT2G42G, levels = 1:4)
  fTT2G42H <- factor(tlscs$TT2G42H, levels = 1:4)

  ptTT2G42A <- prop.table(table(fTT2G42A))
  ptTT2G42B <- prop.table(table(fTT2G42B))
  ptTT2G42C <- prop.table(table(fTT2G42C))
  ptTT2G42D <- prop.table(table(fTT2G42D))
  ptTT2G42E <- prop.table(table(fTT2G42E))
  ptTT2G42F <- prop.table(table(fTT2G42F))
  ptTT2G42G <- prop.table(table(fTT2G42G))
  ptTT2G42H <- prop.table(table(fTT2G42H))

  ptTT2G42 <- rbind(ptTT2G42A, ptTT2G42B, ptTT2G42C, ptTT2G42D, ptTT2G42E, ptTT2G42F, 
      ptTT2G42G, ptTT2G42H)
  tTT2G42 <- t(ptTT2G42)
  barplot(tTT2G42, horiz = T)

plot of chunk barplot 42

前回の授業内容のまとめを示す

cor(tlscs$TT2G38, tlscs$TT2G42A, use = "complete.obs")

## [1] 0.001522

plot(tlscs$TT2G38, tlscs$TT2G42A)

plot of chunk cor TT2G42A

生徒が少人数のグループで、問題や課題に対する共同の解決策を考え出す

cor(tlscs$TT2G38, tlscs$TT2G42B, use = "complete.obs")

## [1] -0.000947

plot(tlscs$TT2G38, tlscs$TT2G42B)

plot of chunk cor TT2G42B

学習が困難な生徒、進度が速い生徒には、それぞれ異なる課題を与える

cor(tlscs$TT2G38, tlscs$TT2G42C, use = "complete.obs")

## [1] -0.07198

plot(tlscs$TT2G38, tlscs$TT2G42C)

plot of chunk cor TT2G42C

新しい知識が役立つことを示すため、日常生活や仕事での問題を引き合いに出す

cor(tlscs$TT2G38, tlscs$TT2G42D, use = "complete.obs")

## [1] 0.04788

plot(tlscs$TT2G38, tlscs$TT2G42D)

plot of chunk cor TT2G42D

全生徒が単元の内容を理解していることが確認されるまで、類似の課題を生徒に演習させる

cor(tlscs$TT2G38, tlscs$TT2G42E, use = "complete.obs")

## [1] -0.06748

plot(tlscs$TT2G38, tlscs$TT2G42E)

plot of chunk cor TT2G42E

生徒のワークブックや宿題をチェックする

cor(tlscs$TT2G38, tlscs$TT2G42F, use = "complete.obs")

## [1] -0.05124

plot(tlscs$TT2G38, tlscs$TT2G42F)

plot of chunk cor TT2G42F

生徒は完成までに少なくとも一週間を必要とする課題を行う

cor(tlscs$TT2G38, tlscs$TT2G42G, use = "complete.obs")

## [1] 0.02061

plot(tlscs$TT2G38, tlscs$TT2G42G)

plot of chunk cor TT2G42G

生徒は課題や学級での活動にICT（情報通信技術）を用いる

cor(tlscs$TT2G38, tlscs$TT2G42H, use = "complete.obs")

## [1] -0.0663

plot(tlscs$TT2G38, tlscs$TT2G42H)

plot of chunk cor TT2G42H

### 学習評価の方法

  fTT2G43A <- factor(tlscs$TT2G43A, levels = 1:4)
  fTT2G43B <- factor(tlscs$TT2G43B, levels = 1:4)
  fTT2G43C <- factor(tlscs$TT2G43C, levels = 1:4)
  fTT2G43D <- factor(tlscs$TT2G43D, levels = 1:4)
  fTT2G43E <- factor(tlscs$TT2G43E, levels = 1:4)
  fTT2G43F <- factor(tlscs$TT2G43F, levels = 1:4)
  ptTT2G43A <- prop.table(table(fTT2G43A))
  ptTT2G43B <- prop.table(table(fTT2G43B))
  ptTT2G43C <- prop.table(table(fTT2G43C))
  ptTT2G43D <- prop.table(table(fTT2G43D))
  ptTT2G43E <- prop.table(table(fTT2G43E))
  ptTT2G43F <- prop.table(table(fTT2G43F))

  ptTT2G43 <- rbind(ptTT2G43A, ptTT2G43B, ptTT2G43C, ptTT2G43D, ptTT2G43E, ptTT2G43F)
  tTT2G43 <- t(ptTT2G43)
  barplot(tTT2G43, horiz = T)

plot of chunk barplot 43

自ら評価方法を開発して実施する

cor(tlscs$TT2G38, tlscs$TT2G43A, use = "complete.obs")

## [1] 0.0256

plot(tlscs$TT2G38, tlscs$TT2G43A)

plot of chunk cor TT2G43A

標準テストを実施する

cor(tlscs$TT2G38, tlscs$TT2G43B, use = "complete.obs")

## [1] -0.01287

plot(tlscs$TT2G38, tlscs$TT2G43B)

plot of chunk cor TT2G43B

個々の生徒にクラスメイトの前で質問に答えさせる

cor(tlscs$TT2G38, tlscs$TT2G43C, use = "complete.obs")

## [1] 0.04265

plot(tlscs$TT2G38, tlscs$TT2G43C)

plot of chunk cor TT2G43C

生徒の学習成果に対して点数や評定による成績評価だけでなく、文書によるフィードバックを行う

cor(tlscs$TT2G38, tlscs$TT2G43D, use = "complete.obs")

## [1] 0.004226

plot(tlscs$TT2G38, tlscs$TT2G43D)

plot of chunk cor TT2G43D

生徒に学習の進捗状況を自己評価させる

cor(tlscs$TT2G38, tlscs$TT2G43E, use = "complete.obs")

## [1] 0.03722

plot(tlscs$TT2G38, tlscs$TT2G43E)

plot of chunk cor TT2G43E

生徒が特定の課題に取り組む様子を観察し、必要なフィードバックを即座に行う

cor(tlscs$TT2G38, tlscs$TT2G43F, use = "complete.obs")

## [1] 0.00953

plot(tlscs$TT2G38, tlscs$TT2G43F)

plot of chunk cor TT2G43F

### 指導の自己効力感

  fTT2G34A <- factor(tlscs$TT2G34A, levels = 1:4)
  fTT2G34B <- factor(tlscs$TT2G34B, levels = 1:4)
  fTT2G34C <- factor(tlscs$TT2G34C, levels = 1:4)
  fTT2G34D <- factor(tlscs$TT2G34D, levels = 1:4)
  fTT2G34E <- factor(tlscs$TT2G34E, levels = 1:4)
  fTT2G34F <- factor(tlscs$TT2G34F, levels = 1:4)
  fTT2G34G <- factor(tlscs$TT2G34G, levels = 1:4)
  fTT2G34H <- factor(tlscs$TT2G34H, levels = 1:4)
  fTT2G34I <- factor(tlscs$TT2G34I, levels = 1:4)
  fTT2G34J <- factor(tlscs$TT2G34J, levels = 1:4)
  fTT2G34K <- factor(tlscs$TT2G34K, levels = 1:4)
  fTT2G34L <- factor(tlscs$TT2G34L, levels = 1:4)

  ptTT2G34A <- prop.table(table(fTT2G34A))
  ptTT2G34B <- prop.table(table(fTT2G34B))
  ptTT2G34C <- prop.table(table(fTT2G34C))
  ptTT2G34D <- prop.table(table(fTT2G34D))
  ptTT2G34E <- prop.table(table(fTT2G34E))
  ptTT2G34F <- prop.table(table(fTT2G34F))
  ptTT2G34G <- prop.table(table(fTT2G34G))
  ptTT2G34H <- prop.table(table(fTT2G34H))
  ptTT2G34I <- prop.table(table(fTT2G34I))
  ptTT2G34J <- prop.table(table(fTT2G34J))
  ptTT2G34K <- prop.table(table(fTT2G34K))
  ptTT2G34L <- prop.table(table(fTT2G34L))

  ptTT2G34 <- rbind(ptTT2G34A, ptTT2G34B, ptTT2G34C, ptTT2G34D, ptTT2G34E, ptTT2G34F, 
      ptTT2G34G, ptTT2G34H, ptTT2G34I, ptTT2G34J, ptTT2G34K, ptTT2G34L)
  tTT2G34 <- t(ptTT2G34)
  barplot(tTT2G34, horiz = T)

plot of chunk barplot 34

生徒に勉強ができると自信を持たせる

cor(tlscs$TT2G38, tlscs$TT2G34A, use = "complete.obs")

## [1] 0.01197

plot(tlscs$TT2G38, tlscs$TT2G34A)

plot of chunk cor TT2G34A

生徒が学習の価値を見いだせるよう手助けする

cor(tlscs$TT2G38, tlscs$TT2G34B, use = "complete.obs")

## [1] 0.03873

plot(tlscs$TT2G38, tlscs$TT2G34B)

plot of chunk cor TT2G34B

生徒のために発問を工夫する

cor(tlscs$TT2G38, tlscs$TT2G34C, use = "complete.obs")

## [1] 0.03148

plot(tlscs$TT2G38, tlscs$TT2G34C)

plot of chunk cor TT2G34C

学級内の秩序を乱す行動を抑える

cor(tlscs$TT2G38, tlscs$TT2G34D, use = "complete.obs")

## [1] 0.03043

plot(tlscs$TT2G38, tlscs$TT2G34D)

plot of chunk cor TT2G34D

勉強にあまり関心を示さない生徒に動機付けをする

cor(tlscs$TT2G38, tlscs$TT2G34E, use = "complete.obs")

## [1] -0.01212

plot(tlscs$TT2G38, tlscs$TT2G34E)

plot of chunk cor TT2G34E

自分が生徒にどのような態度・行動を期待しているか明確に示す

cor(tlscs$TT2G38, tlscs$TT2G34F, use = "complete.obs")

## [1] 0.05921

plot(tlscs$TT2G38, tlscs$TT2G34F)

plot of chunk cor TT2G34F

生徒の批判的思考を促す

cor(tlscs$TT2G38, tlscs$TT2G34G, use = "complete.obs")

## [1] 0.009169

plot(tlscs$TT2G38, tlscs$TT2G34G)

plot of chunk cor TT2G34G

生徒を教室のきまりに従わせる

cor(tlscs$TT2G38, tlscs$TT2G34H, use = "complete.obs")

## [1] 0.0159

plot(tlscs$TT2G38, tlscs$TT2G34H)

plot of chunk cor TT2G34H

秩序を乱す又は騒々しい生徒を落ち付かせる

cor(tlscs$TT2G38, tlscs$TT2G34I, use = "complete.obs")

## [1] 0.0375

plot(tlscs$TT2G38, tlscs$TT2G34I)

plot of chunk cor TT2G34I

多様な評価方法を活用する

cor(tlscs$TT2G38, tlscs$TT2G34J, use = "complete.obs")

## [1] 0.02813

plot(tlscs$TT2G38, tlscs$TT2G34J)

plot of chunk cor TT2G34J

生徒がわからない時には、別の説明の仕方を工夫する

cor(tlscs$TT2G38, tlscs$TT2G34K, use = "complete.obs")

## [1] 0.02683

plot(tlscs$TT2G38, tlscs$TT2G34K)

plot of chunk cor TT2G34K

様々な指導方法を用いて授業を行う

TT2G34L

cor(tlscs$TT2G38, tlscs$TT2G34L, use = "complete.obs")

## [1] 0.04801

plot(tlscs$TT2G38, tlscs$TT2G34L)

plot of chunk cor TT2G34L