Theoretical Sociology

太郎丸博のブログです。研究ノートや雑感などを掲載しています。(このページは太郎丸が自主的に運営しています。京都大学の公式ページではありません。)
<< March 2020 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 >>
 
RECOMMEND
後期近代と価値意識の変容: 日本人の意識 1973-2008
後期近代と価値意識の変容: 日本人の意識 1973-2008 (JUGEMレビュー »)

NHKの日本人の意識調査のデータをつっこんで分析した本です。
RECOMMEND
Labor Markets, Gender and Social Stratification in East Asia: A Global Perspective (The Intimate and the Public in Asian and Global Perspectives)
Labor Markets, Gender and Social Stratification in East Asia: A Global Perspective (The Intimate and the Public in Asian and Global Perspectives) (JUGEMレビュー »)

直下の和書の英語版です。審査を通過するためにレフェリーのコメントに従って若干修正してあります。
RECOMMEND
東アジアの労働市場と社会階層 (変容する親密圏/公共圏)
東アジアの労働市場と社会階層 (変容する親密圏/公共圏) (JUGEMレビュー »)

GCOEの成果をまとめた本です。日本を中心に韓国、台湾(中国も少し)との比較研究をしてます。
RECOMMEND
若年非正規雇用の社会学‐階層・ジェンダー・グローバル化 (大阪大学新世紀レクチャー)
若年非正規雇用の社会学‐階層・ジェンダー・グローバル化 (大阪大学新世紀レクチャー) (JUGEMレビュー »)
太郎丸 博
拙著です。非正規雇用に関する本はたくさんありますが、「なぜ正規雇用と非正規雇用では賃金格差があるのか」など当たり前と思われがちな問題を突き詰めて考えてみました。
RECOMMEND
フリーターとニートの社会学
フリーターとニートの社会学 (JUGEMレビュー »)

拙編です。オーソドックスな計量社会学の手法で、若年非正規雇用や無職にアプローチした本です。白い装丁なので、輪郭がわからないですね...
RECOMMEND
人文・社会科学のためのカテゴリカル・データ解析入門
人文・社会科学のためのカテゴリカル・データ解析入門 (JUGEMレビュー »)
太郎丸 博
拙著です。軽く読み流すのは難しいですが、まじめに一歩一歩勉強するために作りました。
ARCHIVES
RECENT COMMENT
  • 阪大を去るにあたって: 社会学の危機と希望
    charlestonblue (10/08)
  • Cohen et. al 2011 「フェミニズムの方法論的インパクト: 社会学のやっかいな問題?」
    abe daijyu (10/05)
  • アマチュア社会学の可能性
    読者 (02/20)
  • 社会システム理論の野望、あるいは全体性へのオブセッション
    宮国 (12/19)
  • 片山他 2015「図書館は格差解消に役立っているのか?」
    オカベ (12/09)
  • ランダム効果の意味、マルチレベル・モデル、全数調査データ分析
    YZ (12/07)
  • 学歴社会から「学習資本」社会へ:日本の教育と社会における階級形成の再編
    赤尾勝己 (02/11)
  • グラフィカル・モデリングとは?
    anonymous (11/30)
  • Rスクリプト覚書き:vglm関数で平行性の仮定を置かずに順序ロジット
    ほっくー (08/05)
  • 台湾の経済: 典型NIESの光と影
    おーまきちまき (07/19)
RECENT TRACKBACK
 
Rスクリプト覚え書き: latticeパッケージのxyplotで細かくグループ分けしてプロット
lattice でいろいろオプションをつけて、細かくグループわけして、好みの書式に整えてプロットする方法がわかったので、メモしておく。もっとかんたんに書けるかもしれないが、これが現在の私の知識の限界ということで。
# car パッケージの賃金に関するデータを読み込む
library(car)
head(SLID)
summary(SLID)

library(lattice)

# グループ別に年齢と賃金の散布図を作る
xyplot(wages ~ age | sex + language, data=SLID,  # 性別と言語で6つのパネルにサンプルを分割
       groups=education>12,  # プロットの点を教育年数が12年以上かどうかで色分け
       auto.key=T) # key は凡例をさすようで、凡例を作るように指定

次は、散布図ではなく、平均値を計算して折れ線グラフにする。
# 60才未満のデータに関してグループ別に年齢と賃金の平均値をプロット
# まず平均値のデータを作る
attach(SLID[SLID$age<60, ])
(d0 <- tapply(wages, list(age, sex, language, education>12), mean, na.rm=T)) # グループ別に賃金の平均を計算
detach(SLID[SLID$age<60, ])

d1 <- as.data.frame.table(d0) # 賃金の平均のデータ (array) をデータ・フレームに変換
head(d1)
names(d1) <- c("age", "sex", "language", "education", "mean.wages") # 変数名をわかりやすく
levels(d1$education) <- c("Primary or Secondary Education", "Tertiary Education") # これもわかりやすく
xyplot(mean.wages ~ age | language + sex, data=d1,  type="b",
       groups=education,  
       auto.key=T)

さらに見やすくなるように細かく作りこんでみる。
# 凡例に線も書き加えて、年齢を5歳刻みで表示させる
xyplot(mean.wages ~ age | language + sex, data=d1,  type="b",
       groups=education,  
       xlab=list(cex=1.3), # ラベルを大きく
       ylab=list("mean of wage", cex=1.3) , # Y軸のラベル
       auto.key=list(lines=T, cex=1.2), # 凡例に線を加え、文字を少し大きくする。 詳細は ?simpleKey で調べられる
       scales=list(x=list(at=5 + 0:8*5, labels=paste(20 + 0:8*5)),  # 目盛りの位置とラベルを指定
                  cex=1.3), # 目盛りのラベルを大きく       
)

モノクロで印刷する場合はいろいろ設定が必要
# グレースケールで印刷する場合に、線の種類などを細かく変更
xyplot(mean.wages ~ age | language + sex, data=d1,  type="l",
       groups=education, 
       ylab="mean of wage",
       scales=list(x=list(at=5 + 0:8*5, labels=paste(20 + 0:8*5))),
       strip=strip.custom(which.given=1, bg=gray(.8)), # ストリップの背景を薄めのグレーに
       col="black", lty=1:2, # col で線の色を指定
       key=list(space="bottom", #凡例の位置指定。ほかに top, left, right 
                col="black", # 凡例の色
                columns = 2, # 凡例の列の数
                between = 0.8, # 凡例の記号と文字の間隔
                text=list(levels(d1$education)), # 凡例の文字
                lines=list(lty=1:2, type="l")) # 凡例の線種など 
)
スポンサーサイト
- | 10:44 | - | -
コメント
コメントする









 
トラックバック
この記事のトラックバックURL
トラックバック機能は終了しました。
 

Copyright (C) 2004 paperboy&co. All Rights Reserved.

Powered by "JUGEM"