未分類 – ページ 3 – 森田研究室

コマンドプロンプトで任意のファイルだけ取り出す

2018-01-10 moritanoeigo

マークシートを読み込んでためこんだcsvファイルから，任意のファイルだけ取り出す。

コピー元のディレクトリないで，以下のコマンドでOK

for /r %i in (*fri5.csv) do copy %i C:\Users\(USERの名前)\(コピー先)

参考（というかほぼそのまま）サブディレクトリ内の特定ファイルだけをコピーするコマンド

未分類

リッカートスケールで得たアンケート・データの視覚化：likert package （その１）

2017-10-04 moritanoeigo

Google formでアンケートデータを取ることが増えているので，その視覚化のための備忘録。使うパッケージはlikert。
データとしては，以下のイメージ。質問項目は，Q1からQ5まであって，例えば，１が「全く良くない」で，５が「とても良い」のような５件法だとする。

Q1	Q2	…	Q5
1	4	…	5
5	3	…	3
…	…	…	….

library(likert)
library(plyr)

dat=read.csv("likert_test.csv",na.strings=c("", "NULL"))　#データの読み込み。実際のデータでは，空白，つまり無回答ということもあるので，空白をNAと判定させる。
dat2 <- data.frame(lapply(dat, factor, levels=1:5)) #datの中身をfactor（文字列）に変換。その際に，五件法なので範囲を1から５までとする。つまり，ある設問への反応として１が含まれていない場合などでも，１が０回とするための処置。その上で，データ・フレームにする。
dat2 <- na.omit(dat2)　#念のため，NAデータを削除

dat3 <- likert(dat2) #各設問への反応をまとめる
likert.bar.plot(dat3, #対象データファイル
　　　　　　　　ordered=FALSE, #反応の順番。1から５の順。
　　　　　　　　group.order=c("Q1","Q2","Q3","Q4","Q5"), #今回の場合，指定しないと反応１が少ない順に並べられる。ここでの指定では，Q1からQ5への並べる 
　　　　　　　　plot.percent.high=FALSE,#指定しないと，高い反応（4と5）の割合(%)を表示
　　　　　　　　plot.percent.low=FALSE, #指定しないと，低い反応（1と２）の割合(%)を表示
　　　　　　　　plot.percent.neutral=FALSE, #指定しないと，中間の反応(3)の割合(%)を表示
　　　　　　　　plot.percent=TRUE #指定すると，各反応の割合を表示
)
+theme_bw() #プロットの背景色などのスタイルを指定。今回は白黒。
+theme(legend.position = "bottom", #凡例をプロットの下に表示。
legend.direction = "horizontal" #水平に配置。
)

論文アップデート(17.3.5)

2017-03-05 moritanoeigo

榎田一路・森田光宏・阪上辰也・鬼田崇作 (2017) デジタル機器を利用した広島大学学生の英語学習実態に関する調査　『広島外国語研究』 20, 201-213
鬼田崇作・榎田一路・上西幸治・草薙邦広・阪上辰也・田北冬子・達川奎三・森田光宏・山本五郎・吉川りさ (2017) 広島大学英語Can-Doリストの開発『広島外国語研究』 20, 185-200
Uenishi, K., Sakaue, T., Lauer, J., Davies, W., Fraser, S., Howell, P., Selwood, J., Song, K., Morita, M., & Kida, S. (2017) Integrating the TOEIC speaking test with small group classes. Hiroshima Studies in Language and Language Education (広島外国語研究) 20, 1-15