[R] 同じディレクトリ内でファイルを複製する

はじめに

ライティングの授業で（またそれかよ），次のようなことを考えました。

テンプレートのファイルを作って，学生の人数分だけコピーし，さらにそれぞれのファイルに学生の名前をつけたい！

まず思いつくのは，雛形ファイルを作り，Ctrl+CとCtrl+Vを駆使して学生の人数分のファイルを用意し，1つずつファイルをリネームするといういわゆる土方作業ですが，そんなことやってられませんよね。というわけで，Rで簡単にファイル複製とリネームをやってしまおうということです。別に特別なことはしておらず，自分用のメモです。もっと簡単な方法があれば教えてください。

ワーキングディレクトリを変更

まず，ワーキングディレクトリを，テンプレファイルが置いてある場所に変更しましょう。

setwd("C:/Users/Yu/Desktop/test")
getwd()


## [1] "C:/Users/Yu/Desktop/test"


必要な情報を取得

ファイルをコピーする際にフルパスを使うので，その情報をあらかじめ変数に入れておきます。そして，list.files()関数で，ワーキングディレクトリ内にあるファイルの情報を取得します（別に１つしかないので手入力でもOKです）。そして，originalという変数に，テンプレファイルのフルパスを入れておきます。

dirnow<-getwd()
file<-list.files()
original<-file.path(dirnow,file)


ファイル名の準備

ファイルにつける名前の準備です。ここでは例としてアルファベットを使っていますが，学生の名前を使う場合は学生の名前をコピペする等してname変数に入れてください。その後，テンプレファイルの前に名前をつけてfilenameという変数に入れています。sep=”_”は区切り文字をアンダーバーで指定しているということなので，ここは任意の文字に変えられます。

name<-LETTERS[1:26]
filename<-paste(name,"test.docx",sep="_")
print(filename)


##  [1] "A_test.docx" "B_test.docx" "C_test.docx" "D_test.docx" "E_test.docx"
##  [6] "F_test.docx" "G_test.docx" "H_test.docx" "I_test.docx" "J_test.docx"
## [11] "K_test.docx" "L_test.docx" "M_test.docx" "N_test.docx" "O_test.docx"
## [16] "P_test.docx" "Q_test.docx" "R_test.docx" "S_test.docx" "T_test.docx"
## [21] "U_test.docx" "V_test.docx" "W_test.docx" "X_test.docx" "Y_test.docx"
## [26] "Z_test.docx"


ファイルのコピーとリネーム

それでは，ここで，ファイルのコピーとファイルの名前変更をfor関数で一気に行います。file.copy()関数は，fromでコピー元，toでコピー先を指定します。この時，fromではもとファイルのフルパスであるoriginalを使います。そして，toのところで，「ワーキングディレクトリ＋名前変更後のファイル名」を指定してあげると，コピーされたファイル名に名前がつくことになります。paste()関数は，文字列結合の関数です。ファイルの一覧の中にblog.htmlとblog.Rmdというファイルが入っていますが，この2つはこのブログのために作ったファイルですので関係ないです。

for (i in 1:length(filename)){
file.copy(from=original,to=paste(dirnow,filename[i],sep="/"))
}
list.files()


##  [1] "A_test.docx"     "B_test.docx"     "blog.html"      
##  [4] "blog.Rmd"        "C_test.docx"     "D_test.docx"    
##  [7] "E_test.docx"     "F_test.docx"     "G_test.docx"    
## [10] "H_test.docx"     "I_test.docx"     "J_test.docx"    
## [13] "K_test.docx"     "L_test.docx"     "M_test.docx"    
## [16] "N_test.docx"     "O_test.docx"     "P_test.docx"    
## [19] "Q_test.docx"     "R_test.docx"     "S_test.docx"    
## [22] "T_test.docx"     "test.docx"       "test.Rproj"     
## [25] "U_test.docx"     "V_test.docx"     "W_test.docx"    
## [28] "X_test.docx"     "Y_test.docx"     "Z_test.docx"    



こんな感じでファイル複製とリネームができます。Google Classroomを使っていると、教材ファイルをコピーして配布という機能があり、それを使うと自動的に学生の名前のついたファイルができるのですが，それなしでやろうとすると，こうなるかなという感じです。

これを使って何をするかという記事はまた改めてポストしようと思います。

なにをゆう たむらゆう。

おしまい。

広告

Slackを用いた授業外ライティング活動の便利ワザ[Google Spreadsheet編②]

はじめに

下記の前回の記事の続きです。

Slackを用いた授業外ライティング活動の便利ワザ [Google Spreadsheet編①]

前回の記事では，Google Apps Script (GAS)を利用して，Slackに書き込まれた内容をGoogle Spreadsheetに記録し，その記録をもとに語数を数えるという話でした。この記事では，それをもう少し便利にするために，「ある特定の期間で区切って語数をカウントする」というお話です。例えば，1日ごと，1週間ごとみたいな。月ごとの場合は，前回の記事で紹介した方法は月ごとに新しいspreadsheetのファイルができるので楽なんですが，「同じファイル内のシートの中で一定の期間の間ごとに区切りたい」となると，少しだけ工夫がいります。といっても，spreadsheet内で関数を書くだけなのでそんなに大変なことではありません。一度雛形ができればあとはコピペして少し書き換えるだけですみます。

前回のおさらい

少しだけ前回の記事に書いた内容に触れておきます。GASを使ってspreadsheetに取り込まれた状態は，下記画像のようになっています。

A列が日付，B列が名前，C列が書き込まれたテキスト，D列がもとのJSON形式の情報です。このシートが，チャンネルの数だけ一つのファイルにある状態です。前回は，GASで更新されるこのシートの情報を以下のような手順に沿って使いました。

1. importrange関数を使って別のファイルにエクスポート
2. そのシートに語数をカウントするE列を挿入
3. sumproduct関数で名前列を参照してE列の合計を求める

すると，下記画像のようなまとめシートができます。

今回は，そこに「日付の情報も参照する」という情報も付け加えていくことになります。

同じ月内で1週間ごとに語数を数える

では，実際に私がやっている実践に即して，1週間ごとに語数を数えるという作業をやる方法です。先程説明したように，前提は一ヶ月で一つのファイルができ，そのファイルの中にチャンネルの数だけシートがあるという状態です。同じ月内であれば一つのシートの情報で，以下のような作業をspreadsheetにやってもらいます（注1）。

1. まとめシートのA列にあるセルの名前に当てはまるものだけをフィルタリング
2. 参照元シートのB列にある日付の情報を参照し，指定した1週間のものだけをフィルタリング
3. 1と2で絞り込まれたデータのE列の語数を合計して計算する

注意点は，参照するデータのシートでは名前がB列，日付がA列なのに，まとめシートでは名前はA列になっているという点です。どの列にどのデータがあり，どこの列を参照するのかを考えないと混乱するかもしれません。さて，前回はsumproduct関数使ったんですが，今回使うsumifs関数でも同じことが可能だと思うので，全部sumifs関数でやってもいいかもしれません。

先にあとで説明する作業が完了した状態のシートの画像を見てください。1つ前の画像の状態から，下記の画像の状態にすることが今回の目標です（注2）。

私がこのSlackライティング活動を採用しているのは金曜日の授業で，金曜日から次の週の木曜日までを1週間としています。日付で区切っていて時間で区切っているわけではないので，今回は日付で絞り込みにしています（午後5時までとかそういう切り方だと時間も指定する必要があります）。

では，上の画像のB2の列にはどのような式が入力されているのか見てみましょう。

画像中の式で最後に”-5″しているのは，最初は必ず”@XXX has joined the channel. “という5語の文が記録されているので，それを排除するためです。

sumifs関数の基本的な引数はsumifs(合計範囲, 条件範囲1, 条件1, 条件範囲2, 条件2, …)のようになっています。合計範囲とは，合計を計算したい範囲のことですので，今回の場合はE列の語数の列を選択します。”Friday2_201809″というのが，金曜2限クラスの9月分のデータがエクスポートされたシートになります。このまとめシートはimportrangeで自動的にデータがエクスポートされるように設定しているspreadsheetファイルの中に作っているので，”Friday2_201809!$E$1:$E$1000″で，「9月分のデータのE列（語数列）」を合計範囲として指定していることになります。コピーしたときに範囲が変わることを防ぐために，絶対参照にしています。

2つ目の引数は，同じ”Friday2_201809″のA列を1つ目の条件範囲にしています。A列は日付の入っている列ですから，日付列を条件範囲としていることになります。そして，3つめの引数で日付の条件指定を行います。最初の1週間は，もともとデータ記録の一番最初（2018年9月21日）が1週間の1日目でしたので，7日目（終わりの日）だけを指定しています。これには等号・不等号の使い方でいろいろなやり方が考えられますので，この例は一例です。

“<“&”2018-09-28”

等号・不等号は必ずそれのみをクォーテーションマークでくくり，クォーテーションマークでくくった日付と＆でつなぐようにします。上の式が意味しているのは，「2018年9月28日より前（つまり27日以前）」です。これで，9月28日0時00分以降の書き込みが排除されます。

4つ目の引数は条件範囲2です。”Friday2_201809″のB列を参照しています。B列は名前の入った列ですので，名前の絞り込みをしようというわけです。最後の引数は$A2です。「条件範囲2(元データの名前列）の中で，まとめシートのA2セルの名前に当てはまるものだけをフィルタリングしてね」ということです。指定する順番自体は前後していますが，上にも挙げた以下の3つの作業が1つの関数で実現されたことになります。

1. まとめシートのA列にあるセルの名前に当てはまるものだけをフィルタリング
2. 元ファイルのB列にある日付の情報を参照し，指定した1週間のものだけをフィルタリング
3. 1と2で絞り込まれたデータのE列の語数を合計して計算する

これであとは，列を横に足して，別の日付指定をすれば，あとはその条件に当てはまるものだけが自動的に記録されていくことになります。合計範囲指定は固定ですが、条件範囲と条件の指定は名前が先で日付が後でも構いません。

１週間のはじめとおわりを指定する場合

さて，上のやり方は，1週間の終わりだけの指定でしたが，それが使えるのは最初の1度だけで，次からは1週間のはじめの日も指定する必要があります。「○月○日から○月○日まで」としたいわけです。これをやるには，sumifs関数の条件範囲と条件を1つずつ追加すればいいだけです。画像上では順番が前後しますが，下の画像のD列（10/5-10/11）の1週間を指定した場合を見てみましょう。

1つ目の引数は同じですが，2番目と3番目の引数で始まりの日付の指定，4番目と5番目の引数で終わりの日付の範囲の指定を行っています。

“>=”&”2018-10-05”

という指定は，「2018年10月5日以降」という指定になります。1週間の始まりですね。

“>”&”2018-10-04”

としても同じです。続いて，終わりの日付は，同じように日付列を条件範囲とし，

“<“&”2018-10-12”

を条件にしています。つまり，「2018年10月12日より前」ですので，2018年10月11日の23時59分までのデータが条件に当てはまることになります。

“<=”&”2018-10-11”

でも同じです（むしろこっちのほうがわかりやすいかも）。これで，始まりの日付から終わりの日付までの間の合計語数が計算されます。ここを任意の幅に設定すれば，1週間ではなくとも3日でも4日でも10日でも同じようにできます。

月をまたいだ1週間の語数

同じ月内でのやり方は上の2つのやり方の組み合わせで対応できます。では，月をまたいでしまうときはどうすればよいでしょう。上述したように，月ごとにシートが異なるわけなので，別々のシートに記録された情報を統合する必要が出てきます。ただ，難しいことはなく単純に足し算すればよいだけです。

この例では，Friday2_201809というシートに9月分，Friday2_201810というシートに，importrange関数でデータを同期させています。9月分のデータで，9月の終わりの数日間（この例では9月28日～9月30日），10月のデータで10月1日からの数日間（この例では10月1日～10月4日）の語数を計算し，合算するという作業です。

つまり，それぞれの月でsumifs関数を使った式を作り，2つのsumifs関数式を＋記号でつないであげれば，月をまたいだ場合の語数が計算できます。不等号のみと，不等号＋等号の意味の違いは，上で説明したとおりです。

おわりに

ということで，前回の記事で紹介したGASでデータを引っ張る作業，importrange関数でデータを別ファイルにエクスポートする作業と，今回の記事で紹介したsumifs関数で日付指定する3つのパターンを使えば，一定期間の間の語数記録は簡単にできてしまいます。

エクセルが得意な方はすでにお気づきかもしれませんが，実は，1行目に指定する日付を終わりの日付にし，そのセルを日付の範囲指定に利用することもできます。つまり，上の画像で言えば，B1セルに”2018-09-27″，C1セルに”2018-10-04″，D1セルに”2018-10-11″のようにするということです。ただ，見たときに1週間の範囲がわかるほうがいいかなという理由で，そういうやり方はしていません。

ということで，下処理問題は解決されていませんが，だいたいの語数を記録して，学生がいつでも見れるようにするということについては，前回と今回の記事の内容でだいたいカバーできるのではないかなと思います。今の所第三段は予定していませんが，今後もしも「こういう事が必要だなぁ」という事が出てきたら更新するかもしれません。

なにをゆう　たむらゆう。

おしまい。

注1. おそらくExcelのピボットテーブルなら，同じ列に当てはまる複数の条件でのフィルタリング可能だと思うので，Excelならピボットテーブルだけでいけると思います。

注2. 画像で一目瞭然ですが，毎週書き続けられている学生と，すでに脱落してしまっている学生が分かれてしまっているのは問題で，これについては何かしらの介入が必要だと思っています。

Slackを用いた授業外ライティング活動の便利ワザ [Google Spreadsheet編①]

はじめに

便利ワザと言えるのかわかりませんが，とりあえず自分はこんな感じでやっていますというお話です。以下の話の発展です。

授業外でライティングする機会を確保するためのSlack

前提として，どのようにSlackを利用しているのかというお話です。google spreadsheetに書き出したデータの扱いについてにご興味がおありの方はこのセクションは飛ばしていただいてかまいません。私がslackを使おうと思ったのは以下のような考えからです。

授業外で，英語ライティングする機会を与えたい。できるだけ自由に書き込みができ，教員もそれを監視・管理しやすい。

やろうやろうと思っていたのですが，なかなかSlackの使い方もよくわかっていませんでした。共同研究の話等でもSlackを使い始めるようになり（サイボウズのサービス終了のため），自分もSlackに慣れてきたのでこの秋学期から導入することにしました。ここでも何回か記事を書いている外国語学部1回生向けのライティングの授業でのことです。

授業外でのライティングは，前記はLMSにある掲示板機能を使い，そこに私が毎週話題をポストしてそれについて各自意見を書き，お互いにコメントし合うというものでした。以下のリンクでそのことにも触れています。

https://tam07pb915.wordpress.com/2018/04/26/writing-class/

後期は，slackをclosed SNSのようにして使い，自由に英語でやりとりをするということを掲示板でのフォーラムライティングの代わりにすることにしました。前期のフォーラムライティングでは，「1人必ず○人にコメント」などとしたりして交流が生まれるようにしてみましたが，コメントが「テンプレ」化してしまったりしていたので，より自由にライティングのコミュニケーションができていったらいいなと思っています。

使い方のルールとしては以下のようにしています。

• 一般的なルール
• • 自分のスマートフォンに必ずslackアプリをインストールすること
• • 書き込む情報については，既存のSNSに関するルールと同様，誹謗中傷や公序良俗に反する書き込み以外であれば，何について書き込んでも構わない（写真の投稿も可能）
• • 日本語での書き込みは一切禁止
• • 使い方等についての質問がある場合は，#generalに英語で書き込むこと
• • 他のクラスの人にも話題を共有したい場合には#randomに書き込むこと
• • 誰かの書き込みに返信（いわゆるリプ）をしたい場合は，”Start a thread”を使うこと
• • “Start a thread”機能を使うときは，”Also send to #channel-name”にチェックを入れること（こうすることで，メインのタイムラインでも返信が見れます）
• • 誰かに直接話しかけたいときは，＠をつけること
• • 成績に算入するのは，自分のクラスのチャンネルに書き込んだもののみ（#generalや#randomや他のクラスのチャンネルに書き込んだものは語数に数えない）

評価方法は，毎週300語を学期の最終授業日まで続け，平均達成度（％）×5点を最終的な評定に加えるというものです。共通シラバスのため，授業外の課題に割ける評価の割合がもともと15点くらいしかないのでこのようにしています。そのために300語って結構えげつないなと思われる方もいるかもしれませんが，私もそう思っています。今学期の様子をとりあえず見てみて，ハードルが高すぎるために「コスパが悪い」と思われて取り組みが悪くなるということがあれば今後語数の基準を下げるかもしれません。

Slackデータのエクスポート

さて，上述のような形でslackを運用しているわけですが，私の扱い方だと「毎週300語」という設定にしているので，学生の立場からすれば「自分が今何語書き込んでいるのか」がいつでもわかるようになっていてほしいというのは当然でしょう。そのために教員がわざわざデータをチェックしてそれぞれの学生の書き込んだ語数を分析してまとめて報告するというのは無理でしょう。というかやってられません。そこで，エクスポート->語数の記録->まとめ，という一連の作業を自動化して，いつでも学生が見れるようにする必要があります。そこで，上に上げたスライドで浦野先生が紹介しているGoogle Apps Scriptを使うというわけです。浦野先生も紹介していますが，SlackのログをGoogle Spreadsheetに保存するという作業自体は以下の記事を参考にすればすぐにできます。

Slack のログを自動で Google Spreadsheet に保存する

問題は，その先で，語数の記録とそのまとめという部分になります。私自身がGoogle Apps Scriptをいじれないので，とりあえずは上記のリンクを参考にGoogle Spreadsheetにログを保存し，そのあとにGoogle Spreadsheetで頑張るということになります。Rでもログを取ってきてまとめて可視化みたいなことはできますが，自動化の部分が少し難ありです。Rのコードもそのうちここに投稿しようと思います。

Google SpreadsheetでSlackのログをいじる

Google Apps Script（GAS）は，自分で決めたトリガーで定期的に更新できるので，その頻度を好みに設定しておくだけで，定期的にデータを最新のものにするという作業はできます。最初は，ログのspreadsheetファイルにある各チャンネルのシートに列を追加して各行の書き込みの語数を記録し，それを別ファイルにピポットテーブルで吐き出すということを考えました。ちなみに，ログのデータは下の画像のような感じでチャンネルごとにシート1枚で記録されます。

A列が日付，B列が名前，C列が書き込まれた内容，D列はもとのJSON形式のデータです（注1）。最初は，このシートのE列に語数カウントの関数を入れていたわけです（excelで語数のカウント方法についてはググればすぐに見つかります）。ただ，それだとシートが更新されるとうまくいきませんでした。このチャンネルのシートをそのまま別シートで参照し，その参照したコピーのデータを使って…ということもやりましたがこれもうまくいかず。ということで，GASが作るスプレッドシートとは別のスプレッドシートファイルを作り，そこからもともとのスプレッドシートの中の特定のシートの情報を参照するという方法を取ることにしました。で，これexcelにもある関数のなのかは知らないんですが，Googleスプレッドシートには，importrangeという関数があり，これを使うことで別ファイルから参照ができます。以下のサイトなどが参考になりました。

【超便利】スプレッドシートで別シートから参照したり集計したりする方法まとめ

引数の基本は，importrange(“参照元ファイルURL”, “参照元シート名!特定セルor範囲）で，このimportrange関数は特定のセルのみを参照する場合と，範囲を指定する場合があるのですが，私は上の画像でいうA〜D列まですべてもってきたいので，範囲を指定することになります。とりあえず，1000行までを1シートに出すという設定だったような気がするので，A1:D1000を指定します。friday2というのは，金曜2限のチャンネルで，後ろのぼかしはslack上のチャンネルIDです。

このimportrange関数をA1セルに入力すると，シートにAからD列までのデータが取得され，参照元のシートがGASによって更新されれば，こちらのシートも更新されます。E列は手動で以下の画像のような関数を入れると，C列のセルの語数がE列のセルに記録されます。あとは，このE列の語数をB列の名前ごとに合計してくれれば，目的達成です。私は金曜の1限と2限に同じライティング科目の別クラスを持っているので，このログシートが2枚あり，そのまとめのシートも2枚あります。

まとめのシートで合計語数の表示

上画像のシート上でやってもいいんですが，見栄えもあるので別シートにまとめだけを作ります。これは，sumproduct関数をつかいます。sumproduct関数は，sumproduct(参照列=名前, 合計を数える列）のような形で使います。下記画像は，”Friday1_import”というシートに，importrange関数で参照元ファイルのデータをインポートしている場合の例です。A列に名前の一覧（注2），B2にこのsumproduct関数をいれます。あとはB2を下にコピーすれば，人数分の合計語数が表示されるというわけです。”Friday1_import”のシートには自動的にデータが追加されていくので，とりあえず1000行を超えないデータであればこれでなんとかなります。

棒グラフでも出したいということなら，範囲選択して棒グラフ挿入でOKです。あとは，このスプレッドシートのファイルを「閲覧可」の権限で共有してSlackに貼り付ければ，学生は自分の好きなタイミングで語数を確認できることになります。私の場合は「毎週300語」という課題なので，週ごとにデータを扱える必要があります。これはもう少し別の手続きが必要になるので，また次回ということに。今日はここまで。

なにをゆう　たむらゆう。

おしまい。

注1: そもそも，ちゃんとした「下処理」をしないと，「@XXXXX has joined the channel」とかも記録されますし，絵文字1つが1語みたいになるので，ここでの語数は「アバウトな」語数ということになります。

注2: 私は試行錯誤しているときにピポットテーブルを使ったので名前の一覧はコピペでしたが，そうでない方はログデータの”@XXXX has joined the channel”の列だけソートして名前の一覧をゲットするなどの方法が必要です。

R MarkdownからそのままWordPressに

下記は，Rmarkdownの出力をそのままWordPressに流し込むためのテストです。Rmarkdownファイルを開いたときに入っているデフォルトのコードと文章です。RmarkdownからWordPressに流すために必要な作業については下記ウェブサイトが参考になりました。

R markdownの出力をWordpressへそのまま投稿する | On Your Mark . Tokyo

ただし，plotの画像が表示されなかったので，それを解決するために下記のウェブサイトも参考にしました。

How to publish with R Markdown in WordPress

 

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)

##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

[R] sjPlotパッケージのバージョンアップ

Rで回帰モデルの図示をするときに私が使うパッケージは主に2つあって，1つはeffectsパッケージ，もう一つはsjPlotパッケージです。前者については，以前NagoyRで発表したことがあります。

effectsパッケージを用いた一般化線形モデルの可視化

後者は，lm, glm, lmer, glmerなどの関数で作った回帰モデルの結果が入ったオブジェクトを渡すと，その結果をggplot2に渡して可視化してくれます（その他にもいろんな可視化が可能ですが，私が使うのは主に回帰モデルの可視化です）。昔（数年前）までは，sjp.lm，sjp.glm，sjp.lmer，sjp.glmerなど，もとの回帰モデルに合わせて図示する際の関数を選ぶ仕様になっていました。そして，交互作用図を描きたいときは，sjp.int関数を使うというような。それが，最新版のsjPlotパッケージでは，これらの関数がなくなりすべてplot_modelという関数に統一されているようです（下記のサイトによると2017年10月にこの変更があったようです）。使用例は以下のサイトが参考になります。

„One function to rule them all“ – visualization of regression models in #rstats w/ #sjPlot

交互作用図は，type引数でintにするか，またはtypeをpredにして，termsで交互作用を指定するようです。

plot_model(fit, type=”int”)

or

plot_model(fit, type =”pred”, terms =c (“test”, “group”))

みたいな感じです。これについては，下記のページが参考になります。

 

Plotting Interaction Effects of Regression Models

より詳細な引数の説明などは以下のページに書いてあります（RDocumentationのページ）。

plot_model function | R Documentation

D院生のときに書いたスクリプトではGLMMの結果の可視化にsjp.glmerとかsjp.intを使っていたので，それらが動かなくなっていました。調べたらこういう仕様の変更があったと。一つの関数で，引数の組み合わせで色々な図が描けるというのは便利でいいですね。ただ，テーブル形式（HTML）で回帰モデルの結果を出力するsjt.lm系の関数は，lm, glmなどと組み合わせて，sjt.lm, sjt.glm, sjt.glmer, sjt.lmerなどのままのようです。

それから，最近lme4のモデル式の書き方でstanを使ったベイズ推定ができるbrmsというパッケージを知った（遅い）のですが，plot_model()はbrmsパッケージのモデルにも対応しているようです。まだ試してはいないので，いつかまたブログに書こうかなと思います。

では。

なにをゆう　たむらゆう。

おしまい。

ねぎしょうがチーズだし巻き

久しぶりに料理ネタでブログを更新しよう思うくらいに美味しいものを作り出してしまいました。本当に美味しいのでおすすめです。題して，ねぎしょうがチーズだし巻きです。

さて，私は家庭用の卵焼きフライパンを使ってだし巻き卵をよく作ります。その時の分量はたいてい次のような感じです。

• 卵4個
• 白だし大さじ1
• 水大さじ3
• 砂糖小さじ1

卵4個は例えば弁当用に少し卵焼きをなんてときには多すぎますが，料理の一品としてだし巻き卵をカウントするようなときには卵4つが家庭用のフライパンで作るにはちょうどよく，これより少ないと逆に巻く回数との兼ね合いでなかなか難しいというのが個人的な印象です。業務用だと卵8個で1本ですので，その半分というイメージです。

今日は，これに加えて冷蔵庫にあったみじん切りの紅生姜，刻み青ネギ，チーズを使ってだし巻き卵を作りました。紅生姜はみじん切りの状態で大さじ1杯半くらいはあったかなと思います。青ネギはふたつまみくらい入れました。チーズは，業務スーパーで買ったチェダーチーズ1枚でしたが，とろけるチーズやピザ用チーズでもできると思います。チーズが増えると卵焼き自体が柔らかくなって巻くのが難しくなるので，卵焼きに自信がない人はあまり欲張ってチーズを入れようとしないほうがいいかなと思います。

作り方としては，上記の分量より調味料を気持ち少なめに入れて，みじん切りの紅生姜と刻み青ネギを卵と一緒に混ぜます。油を多めにフライパンに入れ，キッチンペーパーで拭き取ってから卵液を流し込みます。この最初のときに，流し込んだ卵液の上にチーズを横に均等になるように敷きます。あまり端まで敷きすぎると途中で溶けて横からチーズが漏れ出してきて，それが焦げ付いたりして巻きづらくなると思いますので，端っこギリギリまでチーズを敷かないほうが良いと思います。

ここからは通常の卵焼きの作り方と同様に卵液を流しては巻いていくだけです。卵液を流し込むとき，具材の紅生姜とネギが下に溜まってしまって最後に残らないようにするために，箸で具材も一緒に流していくようにしたほうがよさそうです。

あとはベーシックなだし巻き卵の作り方のポイントと同じことに気をつけながら作るだけです（これについては私のYouTubeの動画を探して見ていただければｗ）。

適当に思いつきで作りましたが，これはおかずとしても，そしてお酒のおつまみとしても最高な一品だと思います。

ちょっと焦げ目がついてしまいましたが、まあこういうだし巻きもありということで。

ここ最近使っていない紅生姜が冷蔵庫に眠っている方はぜひお試しください。

なにをゆう　たむらゆう

おしまい。

ピアフィードバックの話（ライティング）

今年度ライティングの授業を持っているという話を以前書きました（https://tam07pb915.wordpress.com/2018/04/26/writing-class/）。その授業では，基本的に4週を一単元として，異なるタイプのライティングをしていくという構成になっています。最初はnarrative，次はdescriptive，今はopinion writingをやっています。授業の基本的な構成は以下のようにしています。

 

1限目

• 書き方についての枠組みの提示
• ブレスト・プランニング
• rough draftの執筆

2限目

• 構成や言語面についての全体へのフィードバック
• first draftの執筆
• ピアフィードバック

3限目

• first draftを見ての全体へのフィードバック
• first draft（教員の赤入りのもの）へのピアフィードバック
• second draftの執筆

4限目

• second draftを見ての全体へのフィードバック
• second draft（教員の赤入りのもの）へのピアフィードバック
• フィードバックを受けたものを見てWritten Languaging

Final draftはLMSで電子的に提出させていますが，それ以前の授業内のライティングについてはすべてハンドライティングです。理由はパソコン室でやっていないというだけで，パソコン室使えるなら全部タイプさせてたと思います（よくわかってなかったので依頼書とか出しそびれた）。

上記の授業内容をご覧いただくとおわかりのように，ほとんどの授業のときにピアフィードバックを入れています。これが意味あるか無いかという話はとりあえず置いておきます。私がピアフィードバックを入れている目的は大きく分けて2つあって，1つ目は，他の人のを読むという行為を通じて自分が書くことへの刺激を得てほしいということです。クラス分けされているとはいえすらすらと分量を書けたり，語彙が豊かであったり，あるいは構造の複雑さも高かったりする学生がいる一方で，そうではない学生もいます。他の人のを読むことでライティングに苦手意識があるような学生には「良い部分は真似してほしい」という思いがあります。もちろん，単なる言語面に限らず「ロジック」とか，「文と文のつながり」という点にも意識は向けさせているので，そういうところにも注意しながら読んでもらえるようにしようとしています。

2つ目の目的は，いろんなケースについて，私の赤やコメントを見ることで，どこをどうすればよくなるのかのヒントを得てほしいというねらいです。私のフィードバックは基本indirectあるいはimplicitなので，誤りが含まれていたりおかしいと思うところに赤線や^をいれるだけで，特に正しいものを提示することはないです（たまにdirect feedbackしますが，説明はしません）。また，コメントは9割くらい日本語で（たまにめんどくさいときに英語で書きます），

こういうトピックセンテンスになっているのにボディがそれをサポートしてない

こっちのアイデアについては情報がたくさんあるのにもう一方については具体例も殆ど出てこない

こことここは本当に原因と結果の関係になっている？

なんかこの結論て最初に言ってたことと違う話になってない？

みたいな，構成に関わるものがほとんどです。そういう赤やコメントを見ながら読むことで，良いものとあまり良くないものの例を積み上げていってもらい，それを自分自身が書くときに生かしてほしいということです（注1）。もちろん，かなりできる学生は私が見逃していたような綴りの間違いや形態素の脱落なんかに気づいたりすることもあるので，ピアフィードバックをすることで形式に注意を向ける機会は得られているのかなと思います（ただしこれが自分が書くときの正確さの向上につながっているかは不明）。

ピアフィードバックをするときには，基本的にはドラフト用紙にコメント欄を設けて記名式でコメントとアドバイス（後者は書き手がreviseするときに必ず参考になるようもの）を出すようにということでやっています。

さて，ここまでが前置きなのですが，そのピアフィードバックをどうやるかという話です。最初の頃は，基本的には個人個人でもくもくとコメントを書くような時間を作っていました。20人弱×2クラスあるので，それを全部まぜこぜにしてランダムに配り，20分～30分という時間の中で最低○人のドラフトを読んでコメントをするという指示を出します。自分のペースでコメントをし終わったら前に戻して別の人のドラフトを持っていき，それにコメントして戻してはまた次の人のを取っていくというスタイルです。こういうふうにすると，自分のコメントに責任を持つことが必要になってくる一方で，なかなか「具体的なアドバイスができない」というケースが発生してしまうということが問題でした。また，個人個人の活動なのであまり盛り上がらないということもあります。実はみんなが静かに読んでコメントしている最中にもそこには「沈黙のインタラクション」があるわけなのですが，それは表面化しませんし，クラス全体の雰囲気もだらっとしてしまったり眠くなってしまったりするということもなくはなかったです。もちろん，1年生にしてはかなりレベルの高い学生なので，個人個人でやらせてもそれなりに読めてコメントも的確に出せるのですが。そんなときに，ある友人から，「ペアでピアフィードバックやらせるとめちゃくちゃLRE（Language Related Episode）出てくるよ」というアドバイスをもらいました。そこで，最近は少し形を変えてペアでやらせるようにしました。ただ，ペアでやらせると言ってもやり方はいろいろあると思います。私が今の所引き出しとして持っているのは次の2つのやり方です。

1.  教室内でペアを作り，お互いのドラフトを交換して読み，口頭でコメントをし合う
2.  教室内でペアを作り，2人で1枚のドラフトを読んで一緒にコメントを書く

1の方法をもう少し詳しく説明します。この方法は，他のペア活動をするときと同様にペアリングをし，5分間などの時間を設定した上でその制限時間内にパートナーのドラフトを読んで，口頭でアドバイスを送るというものです。この方法のメリットは，著者に直接コメントができるので，著者にしかわからない微妙なニュアンスや，ワードチョイスなどについて直接質問できたり，意味がわからなかった部分について「これってどういうこと？」などと聞ける点です。質問される側は，わからなかったと言われたところは書き直しが必要かもしれないと考えるでしょうし（この前提は甘い？），難しい単語はパラフレーズしたり説明を加えたりという工夫をしようとするケースもあります。また，自分に自信がなくても，「これってさ，ofじゃなくてinじゃないっけ？」という形で聞くことで，「あれ，どっちやったかな。ちょっと調べてみよか」みたいな感じで共同学習がスタートしたりもしているようでした。

2の方法は，前述のように，1枚持っていって読んでコメントするというのを繰り返すパターンを2人でやるものです。これのメリットは，1クラスしかなくても実施が可能な点がpracticalな点としてはあると思います。20人のクラスでもペアにすれば10ペアなので，1ペアにつき1枚ドラフトが渡っても常に10枚はストックが前にある状態なので，読み終わって手持ち無沙汰になるということがなくなります。フィードバックを出すという点については，ペアの相手と一緒にコメントを考えることで，「自分には見えていなかったところに相手が気づいている」というケースが割と出てくるようで，「他の人の書いた原稿」と「他の人のコメント」の両方から発見があるようです。ひとりで黙々とコメント書くパターンでも，自分の前にコメントした人のコメントは読めるようにはなっていますが，二人でコメントを考えるという作業のほうが自分の視点と他人の視点が対照されやすいのかなという印象です。ただし，この方法の問題点の1つは，ペアリングを工夫しないとふたりともなかなか意見が出てこずに沈黙になってしまうということです。私が観察している限りの印象では，熟達度が低い同士で問題が起こるというよりはパートナーとの相性というか，性格の問題が大きいように思います。クラスサイズが小さいですし，他の授業でも一緒というケースも多いので，割とクラスみんなそれなりに仲良しで誰とでも話せるような雰囲気はありますが，そうはいっても全員がそうというわけではないので，たまにこちらがうまく介入してあげないとなかなかアドバイスを出せないということになってしまうようです。1の方法ではあまりこの問題点は顕著ではないように感じるので，reciprocalな関係性がペアの中にあるということがカギなのかもしれません。

ということで，今回はピアフィードバックの3つの方法について記事を書きました。どれがより良いというよりは，クラスの雰囲気，授業の形態や授業のねらい，学生の様子など，いろいろな要因を考慮しながら使い分けていくのがよいのかなと思いますが，ペアでやる2つの方式は割とうまく機能しているかなという手応えがあるので，これからはそちらを中心にやっていこうかなと思います。むしろ最初はペアでやって，ある程度なれてきたらindividual workに移行するのがいいかもしれません。

久しぶりの更新でした。

注1. 授業内で書いたものを直後にフィードバックさせる場合にはこの部分はないです

なにをゆう　たむらゆう。

おしまい。