投稿

R+ggplot2のヒストグラム(geom_histogram)でバーの上に度数をつける

標題のことをしようと(標題をそのまま放り込むノリで)日本語で検索しても、うまく見つからず、最終的に解決したのでまとめてみました。 標準グラフだったら見つかった のですけれど。目先を変えて英語で探したら、 Stack Overflow にいろいろありました。 ここ とか ここ とか ここ とか ここ とか。ggplot2でグラフを描く必要がある方なら最初から英語で探せるのかもしれませんけれど、備忘録代わりに自分に要り用のコードでまとめ直しました。検索でたどり着いた人のショートカットになるでしょうし。スマートでなかったり、もっといい方法があるかもしれませんが自分には必要なものができ、また他ソフトの出力と一致しました。 例として、データフレームdatに入っている変数number(人数)でヒストグラムを描きます。20人ごとに、0〜19人、20〜39人で区間を刻んでいきます。区間の開閉にrightをつけていますがこれは古い記法でclosedを使うよう警告が出ます。2行目までで図だけは描けるわけですが、そのあとはgeom_textで付加するのかとちょっと苦闘(勘違い)しました。散布図の点にテキストラベルを付加するわけではないですね。 ggplot(dat,aes(x=number)) +     geom_histogram(binwidth=20,boundary=0,right=FALSE) +     stat_bin(binwidth=20,boundary=0,right=FALSE,aes(label=..count..), geom="text",vjust=-0.5) 結果的にはstat_binで。そもそもgeom_histogramは、stat_binのラッパーなんだとか。なら2行目も含めてstat_binで描けるのかもしれませんが。数値ラベル部分は3行目のレイヤーで付加しているのですが、図と同じようにするための区間をもう一度指定します(ここも無指定でしていたら数字がずれて悩んだ)。..count..が度数を格納している隠れ変数で、これをラベルにして表に出す。vjustでちょうどよさそうな場所を縦位置を指定しました。 まあ、図表示して更に数字だと情報的には冗長なのかもしれないですが、視覚的につかみ...

TED でメディア・コミュニケーションの理解を深める:拡張キット(暫定版)

まずはここを見てください(東京経済大学・コミ部ログ)。 http://comtku.blogspot.jp/2014/07/ted.html?spref=tw これはTEDを利用してメディア論・コミュニケーション論を検討するために私が作ったプレイリスト(+解説)です。TEDなので(また私の趣味・志向もあって)どうしてもネット系に偏ってしまいます。イーライ・パリザー講演などには、対比的にマスコミ・ジャーナリズムの意味を考えるような内容もあるのですが。内容は以下の5ジャンルにまとめていました。 (1) コミュニケーションの変化がもたらす力とは? (2) デジタルでつながることが作り出す問題点とは? (3) オンライン時代の人間関係のあり方とは? (4) 「つながり」の持つ意味 (5) オンライン化された社会で起こる変化 上記リンクでは見通しをよくするために、ある程度紹介プレゼンテーションを限定しました。具体的には5年前より古いもの、日本語字幕のないものなどは落としています。この投稿の目的は、落とした講演を補完することです。そのためにも以下のように新しく3ジャンルを立てています。 (6) ネットサービスの特徴とその背景 (7) オンライン経済の特質 (8) ネットと政治のあり方 せっかくですので、各ジャンルの補足コメントなども記します。繰り返しますが、 このリスト の拡張キットです。 さらなる追加のアイディアなどあれば、お知らせいただけると助かります。 (1+) コミュニケーションの変化がもたらす力とは? (ちょっと数が膨らみすぎているきらいがありますが)ここにはアイディアの創発メカニズムについての(都市論、脳科学、人類史などから発想をえた)興味深い講演もいくつか混ぜています。コミュニケーション技術やコンピューティングの発展が何をもたらすのか、について考える上でヒントになると思われたことがその理由です。 Ray Kurzweil: Get ready for hybrid thinking (2014) http://www.ted.com/talks/ray_kurzweil_get_ready_for_hybrid_thinking マット・リドリー「アイディアがセックスするとき 」(2010) http://www.ted...

一橋大学大学院社会学研究科「社会情報論」(2013-2014) 文献

個人webに載せていたものをこちらに移しました。編集が楽なので。ついでに単なるDBからの吐き出しで不完全だったリストを多少整形、誤記を直しDOIにリンクを張りつつあります(作業中)。 2013年度はインターネットと社会-心理過程といった感じでしたが、2014年度はいわばソーシャルメディアと(ネットワーク・情報の)多様性といったおもむきで、だいたいここ数年の論文を検討しました。2013年度は私の初期提示リストから半分選んでもらって、さらに参加者の関心で各自面白そうな論文も提案してもらいました。2014年度は全部、私の初期提示リストからの選択です。 2014年度 Beam, M. A., & Kosicki,G. M. (2014). Personalized news portals: Filtering systems and increased news exposures. Journalism & Mass Communication Quarterly, 91(1), 59-77. doi:10.1177/1077699013514411 Choi, S. (2014). Flow, diversity, form, and influence of political talk in social‐media‐based public forums. Human Communication Research, 40(2), 209-237.   doi:10.1111/hcre.12023 Colleoni, E., Rozza, A., & Arvidsson, A.(2014). Echo chamber or public sphere? Predicting political orientation and measuring political homophily in twitter using big data. Journal of Communication, 64(2), 317-332. doi:10.1111/jcom.12084  Gil de Zúñiga, H., Copeland, L., & Bimber, B. (2014). Political co...

開設しました

Twitterでは短い、でも季節もので常設のwebページを作るまででもない、そんなコンテンツを上げていく場になると思います。