カンマ入り数字のあるcsvの読み込み

csvからデータを読み込むときにカンマが入った数字（29,000）みたいなものが因子型（factor）のベクトルとして読み込まれることがある。

そういうときには、read.csvのオプションにstringsAsFactors=FALSEというオプションをつけると良い。こうするととりあえず文字列（character）のベクトルとして読み込まれる。

dat <- read.csv("ファイル名.csv",header=TRUE,fileEncoding="CP932",
                stringsAsFactors=FALSE)

で、文字列からカンマを取り除かないと数値型に変換できないわけなので、sub関数によって「,」を「」に置き換えた後に数値変換をすると数字型のベクトルを得る。

dat$列名 <- sub(",","",dat$列名)
dat$列名 <- as.numeric(dat[,列名])

データフレーム全体にこれを適用したいのだけれど、sub関数はデータフレームに適用してもうまくいかないので、しかたなしにsub関数を繰り返し処理でやることにする。ループ変数のベクトルを繰り返しの列番号の集合にすれば、処理したい列を選ぶこともできる。

# 全ての列に適用
for(i in 1:9){
  dat[,i] <- sub(",","",dat[,i])
  dat[,i] <- as.numeric(dat[,i])
}

# 2,4,6列目を数値にする
for(i in c(2,4,6)){
  dat[,i] <- sub(",","",dat[,i])
  dat[,i] <- as.numeric(dat[,i])
}

もっとスマートな方法がありそうな気がするが、とりあえずこれでなんとかなるのでよしとする。

ggplot2の練習その１

Rで美しいグラフを描きたい欲が急に湧いたため次の本を買った。

Rグラフィックスクックブック ―ggplot2によるグラフ作成のレシピ集

ggplot2の存在は今までも知っていたが、どうも使い方に慣れずかつ必要性もそんなになかったのでデフォルト関数でやってきたけれどオシャレグラフが私を呼んだので練習を始めた。

データは何でもよかったので、特別支援学校の在学生数あたりを手始めに。文科省のページでエクセルが公開されている。

文部科学統計要覧（平成29年版）：文部科学省

和暦が嫌いなのでちゃちゃっと西暦に直して必要な部分を読み込ます。ライブラリを呼び出し、とりあえずプロットしてみる。qplot()関数で描ける。

library(ggplot2)

qplot(dat$年, dat$在学者数)

日本語が文字化けしているがオシャレ感漂うプロットができた。xとyをデータフレームのラベルで指定して,dataの引数にデータフレームを指定する方法でもいける。

qplot(年, 在学者数, data=dat)

文字化け問題はテーマを設定すれば良いらしい。theme_grayのフォントをbase_familyでヒラギノに指定してやれば解決するようだ。

#日本語文字化け対策
theme_set(theme_gray(base_family="HiraKakuProN-W3"))

折れ線にしたければ引数のgeomでlineを指定する。

#折れ線
qplot(年, 在学者数, data=dat, geom="line")

#折れ線と点
qplot(年, 在学者数, data=dat, geom=c("point","line"))

軸の区切りをもう少し細かくしたい場合は次のようにするとできる。

#x軸の区切りを細かく
p <- qplot(年, 在学者数, data=dat, geom=c("point","line"))
p + scale_x_continuous(breaks=seq(1960,2015, by=10))

基本はパーツ単位で設定していくようだ。とりあえずここまで。

PDFの表をエクセルに取り込む

手元に大量というほどでもないのだけれど、手作業でやるにはちょっと時間がかかるデータがあって、今後何かで必要なこともあるだろうと機械にやらせる方法を調べ、そして苦戦した備忘録。

macOXでエクセルはExcel for Mac 2011でやっています。

まず、PDFをエクセルで取り扱い可能なファイルにするためにあれやこれやと調べると次の記事が出てくる。

qiita.com

記事に従ってtabulaを操作。ここまでは順調。表をcsv形式にしたものを手に入れる。

このcsvにしたものをエクセルに食べさせるのだけれども、文字化け問題が発生。調べると次の記事がヒット。テキストエディットからエンコーディングを変えてcsvで保存すると文字化け問題は解決する。

blog.skeg.jp

気を取り直してエクセルにインポート。今度はセル内改行がうまく読み込めない。csvになる段階で,セル内改行があるデータは" "で区切られているのだけれど, 読み込みの時点で先に改行してから読み込んでいるのか、セル内改行も全部改行される。調べると次のページがヒットし何となく原因は分かりそうなのだがうまい解決に至らない。

d.hatena.ne.jp

色々試した結果、csvをgoogleのスプレッドシートに食べさせてからエクセルで出力をするととりあえず、セル内改行を正確に反映したエクセルファイルを得ることができた。当面はこれでなんとかなりそう。

罰なき社会と学校社会と

学校社会に外から関わるようになり、「学校的」な考えのようなものに違和感を覚えることが以前より増した。昨今では、張り手や竹刀で叩くといった分かりやすい体罰はあまり見ないが、学校は罰的なものに満ち溢れている。「そんなことばかりしていると連絡帳に書くよ」みたいな嫌悪的な事象を持って行動を統制しようとする場面はよく目にする。その一方で、みんなができていることについてが強化の随伴性が仕組まれることは驚くほど少ない。授業が始まったら教科書を出すこととか、話が始まったら先生の方に注意を向けることとか。これらのことって（私には）結構凄いことだと思うのだけれども、そんなことはできて当たり前と思う人が多いようだ。

そんな中、スキナーが来日したときの講演を基にした「罰なき社会」読んだ。

ci.nii.ac.jp

この講演では今の社会に数多くある罰的なものの存在や、なぜそうした罰的だとされるものが蔓延するのかの原因について書かれている。そして、そうした問題を解決するための手段としての行動修正法（応用行動分析）の存在を挙げている。

その中で、教室場面の現状と行動修正法の活用について次のように書いてある。

生徒たちは、教師にいま叱らなければとか小言を言わなければと思わせることはいつもですが、いま褒めなければとか認めてやらねば とか思わせることはほんどありません。望ましくない行動は罰のきっかけとなるのです。生徒たちが望ましい行動をしている かぎりは、教 師は全 く「無干渉」です。しかし、この「無干渉主義」は命取りになりかねないほど危険です。 教師は生徒たちが良くない行動をしているときでなく、良い行動をしているときにこそ注意を向けるべきなのです。教師が正の強化を用いる機会を逃さないようになったとき、教室において劇的な変化が生じます。（p.90）

スキナーの来日は1979年のことだから40年近く前のことになるのだけれど、ここで言われている「無干渉主義」に当てはまる学級は今でも多いと思う。

「罰なき社会の探求」を「幸福の探求」であると言うスキナーは次のように書いている。

罰からの逃避ないしは回避によってなにかをするときには、我々はしなければならないことをするといいます。そして、そういったときには幸福であることはまずありません。その結果が正の強化をうけたことによってなにかをするときには、我々はしたいことをするといいます。そして、幸福を感じます。幸福とは、正の強化子を手にしていることではなく、正の強化子が結果としてもたらされたがゆえに行動することなのです。（p.96, 太字は原著者）

学校は子どもの幸福を探求する場所になっているのだろうか。

学校外部から特別支援に関わる人の立ち位置は

石隈先生の『学校心理学』という本の中に次のような図がある（p.111）。

これは学校臨床心理学というものを提唱している近藤先生が、援助サービスを援助者の位置（被援助者が属する社会との関係性）と援助の方法（直接性）の２つの軸で整理したものである。

本の中ではスクールカウンセラーを念頭において心理臨床活動を分類する目的で使われていたけれども、これはスクールカウンセラーに限らず学校の外部の人がが学校現場と関わる活動をする際の整理としてもある程度あてはまるのかもしれない。このブログで対象としている特別支援教育とか。

東京都は児童生徒が通う通級を止めて、先生が学校に訪問するスタイルの「特別支援教室」というものに移行している真っ最中である。この図にそってその流れを整理すると、外・社会体系で直接的に援助を行なうⅠの領域から内・社会体系で直接的に援助を行なうⅣの領域への移行と捉えることができる。

私が現在関わっている学校の先生への特別支援教育についての助言などは、学校を訪問して行なう間接的な援助なためⅢの領域に属するだろう。特別支援学校のセンター的役割として行われている巡回相談などもこの領域だと言える。

インクルーシブ教育推進の流れとかチーム学校とかの流れと関係あるのかは分からないのだけれど、必要な援助を体系内部の現場で行なう方向性というのが一つの流れなのかもしれないと、この図を見ながら思った。図で言うと下側の領域で行われていることが上側に移行すること。そうなると、学校現場には教員以外の様々な立場の人が入ってくる訳だけれども、それをコーディネートする役割というのが俄然重要になってくる訳だ。特別支援教育だと、特別支援教育コーディネーターがその役割にあたることとなる。しかし、その役割を果たすための十分な資源（校務分掌の配慮・専門性を高める研修等）が整っているかというと、私の知るいくつかの現場を見る限りでは楽観的にはなれない。

個々の子どもに対する有効な支援を蓄積するのも大事なんだけれど、うまく回るための仕組みについての知見をもっと蓄積していく必要があると感じている。

学校心理学―教師・スクールカウンセラー・保護者のチームによる心理教育的援助サービス

島宗 理『パフォーマンス・マネジメントー問題解決のための行動分析学ー』

パフォーマンス・マネジメント―問題解決のための行動分析学

前から読もうと思っていながら読む機会を先送りにしてきたのだけれども、今回ABAの学び直しの一貫で読んだ。

感想としては、凄い良い本でもっと速く読むべき本だったと思う。

良いと思う点は、ポップでキャッチーな事例がたくさん出て来るのだけれども理論的な裏付けがしっかりしているところ。このポップさは目次を見れば一目瞭然、日常的な問題解決にいかに行動分析学が役に立つのかを示している。

• 部下のマネジメント
• 安全のマネジメント
• 体重のマネジメント
• 恋愛のマネジメント
• スポーツのマネジメント
• 道徳のマネジメント
• 病院のマネジメント
• 品質のマネジメント
• 知識のマネジメント
• 学校のマネジメント

発達障害界隈で仕事をしているとどうしてもABAを教育・療育のための道具として見てしまいがちだが（そしてそれはある意味では正しいのだが）、ABAの適用範囲は広く、私達の日常生活をより良いものに変える理論と技術の体系だということが、この本からは分かる。

日々の生活上の問題を科学的な観点から改善したい人はぜひ読んでみると参考になる点が多々あるでしょう。

ベイリー・バーチ『行動分析的"思考法"入門ー生活に変化をもたらす科学のススメー』

行動分析的“思考法"入門―生活に変化をもたらす科学のススメ

某所でABA的なお話をする機会を頂いたのでそれの参考になるかと思い読んだ。

本書で扱われるのは「行動分析家のように考える」ことを指す行動分析的思考である。ABAの専門家である2人の著者が、行動分析家によく寄せられる50の質問に答える形で、行動分析家はどのように考えているのかを解説していくスタイル。学術的な書物という訳ではないが文献等はしっかりとしており信頼できる書物である。訳も良く非常に読みやすい。

本の形式上、ABAの知識を体系的に扱っている訳ではないので、ABAにこれから入門するという人は、何か別の入門書を読んでから読むと良いのかもしれない。「この本の使い方」というページ（p.xviii）にも書いてある通り、行動変容法や応用行動分析の講義の「副読本」という位置づけがピッタリである。学んだ知識を違った角度から見つめ直す機会になるので勉強になる。

読む中で、自分の臨床経験ではASD児者へと言葉を教えることにあまり関心は無かったので学んで来なかったが、一応ASDを専門に学んでいる身としては、『わが子よ、声を聞かせて』とか、ロヴァースの一連の研究を読んでおいた方が良いのかもしれないと思った（その内容に賛同するかは別としてABAとASDへの療育の関係性を理解するということで）。

それと、監訳者のあとがきの一部を紹介しておこう。心理学を学ぶものとしては考えさせられることが多い。（関連する話としては『心理学評論』の2016年の特集号）

昨今、実験心理学は危機にあると言われています（実は始まってからずっとなにかしらの危機にあるように思えるのですが）。不適切な研究実践や統計解析、屋上屋を重ねるような仮説構成概念の濫用などのせいで、再現不可能な研究成果が多く存在することが明らかになってしまったのです。ということで、心理学は様々な反省を迫られることになりました。それに対して、行動分析学はどうでしょうか。行動分析学は、仮説構成概念を使用せず、環境と行動の相互作用をそのまま捉えようとします。あえて平たく言ってしまえば、「理解しやすくするためのウソ」を極力使いません。（p.200）

「理解しやすくするためのウソ」を全く使わないということは無理だろうけど、ウソをついているという自覚を持ってその限界を意識するようにはありたいと思う。

【ABAへの体系的な入門書】

行動変容法入門