  |
はてなキーワード: 相関関係とは
発祥: http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/
Scheme という Lisp 語族の言語を用いて ℃-ute の相関関係をプログラムし、様々な角度から関係性を分析する手法を紹介していきます（ソースコードは最後に張ります）。
まずは、メンバー間の関係を「リスト」というデータ型で表現します。例えば「栞菜->愛理」という関係は
(kanna . airi)
という形で表すことができます。これに、「大好き」という情報を付加し、ついでにその関係の性質を数値化したものを加えると
((kanna . airi) (desc "大好き") (score . 1))
のようになり、関係図における一つの矢印の情報をデータ化できたことになります（暫定的に、好意は 1、良好・中立は 0、険悪は -1 の３段階で表すことにします）。
メンバー間の全ての関係性をこのデータ単位で定義し、データベース化しておくことで、色んな条件に基づいた検索やスコア計算などが可能となります。
ここで相関関係図における矢印を「リンク」と呼ぶことにして、あるメンバーから他のメンバーへどのようにリンクし、またリンクされているかを調べることができます。
(sort-nodes (number-list (from-links)))
結果:
((kanna . 6) (saki . 5) (maimi . 4) (erika . 3) (mai . 3) (chisato . 3) (airi . 2))
栞菜ちゃんがメンバー全員にリンクを張っていることが分かり、℃-ute ラブっぷりが伺えます。なっきーにも同様の事が言えます。例の「女の子が好き」発言を数値的に裏付ける結果と言えるかもしれません。
ただ、データ不足でリンク件数がまだ少ないのと、リンクの性質（好意／反感など）までは分からない点を考慮する必要があるでしょう。
同様に、リンクの終点の件数を調べてみます。
(sort-nodes (number-list (to-links)))
((chisato . 5) (erika . 5) (kanna . 4) (maimi . 4) (airi . 4) (mai . 3) (saki . 1))
えりかちゃんと千聖ちゃんが高ポイントです。メンバーからの人気や注目度の高さを示すデータですが、千聖ちゃんの場合敵対的なリンクが２件含まれている点に注意してください。
なっきーの被リンク数が極端に少ないですが、単純にデータ不足のためだと思われます。はぶら(ryとか言わないようにお願いします。
リンクに付随するスコアを計算することで、愛情の度合いを測ることができるのではないか、という考えに基づく研究です。
まず、全ての関係性を対象として、スコアがマイナスの関係を抽出してみます。
(filter-nodes (lambda (n) (< (score-relation n) 0)))
結果:
(((kanna . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1)) ((saki . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1)))
件数だけを得ると
(length (filter-nodes (lambda (n) (< (score-relation n) 0))))
2
僅か２件です。
良好・中立的な関係は
(length (filter-nodes (lambda (n) (= (score-relation n) 0))))
8
愛に満ちた関係は
(length (filter-nodes (lambda (n) (> (score-relation n) 0))))
16
非常に多いです。舞美ちゃんの「℃-ute同士でラブラブなんですよ」発言（例のラジオ）を数値的に裏付ける結果と言えるんじゃないでしょうか。
次に、メンバーごとのスコアを算出してみます。Lisp 的には以下のようにフィルタリングと畳み込み (fold) で計算することができます。例えば
(foldr (lambda (n acc)
(+ (get-score n) acc))
0
(filter-nodes (cut to? <> 'kanna)))
3
上式を一般化して一挙にメンバー全員に適用してみると
(sort-nodes (map (lambda (x) (cons x (score-loved x))) (all-members)))
結果:
((airi . 4) (kanna . 3) (mai . 2) (erika . 2) (maimi . 2) (saki . 1) (chisato . 0))
愛理ちゃんが好意を寄せられやすい傾向が伺えます。
今度は逆方向のスコアを計算してみると
(sort-nodes (map (lambda (x) (cons x (score-loving x))) (all-members)))
((kanna . 3) (maimi . 3) (chisato . 2) (airi . 2) (saki . 2) (mai . 1) (erika . 1))
まいまいとえりかちゃんが特に堅い・一途だという傾向を読み取ることができます。
今度は組み合わせ（カップリング）の評価です。
２点間相互のリンク・スコアを加算したものを「相性」と考えられるものとします。最大値 (互いに好意を寄せている場合の数値) は現在のスコアリング方式では 2 です。例えば
(score-between 'kanna 'airi)
の値は
2
となります。1 であれば一方通行と考えます。
関係性が未定義の場合もあるので 0 のものを除外して算出すると
(sort-nodes (filter (lambda (n) (not (= (cdr n) 0))) (map (lambda (n) (cons n (apply score-between n))) (all-combinations))))
(((chisato mai) . 2) ((chisato airi) . 2) ((airi kanna) . 2) ((saki kanna) . 2) ((kanna maimi) . 2) ((erika maimi) . 2) ((saki airi) . 1) ((saki erika) . 1) ((kanna mai) . 1) ((maimi airi) . 1) ((saki chisato) . -1) ((kanna chisato) . -1))
となります。若干ピンとこない部分もあるかも知れませんが、計算上は矛盾無くデータの内容を表しています。
(map (lambda (p) (find-relation (cons (caar p) (cadar p)) identity)) (filter (lambda (n) (= (cdr n) 1)) (map (lambda (n) (cons n (apply score-between n))) (all-combinations))))
(((kanna . mai) (desc "喰ってやるよ") (score . 1)) ((saki . airi) (desc "好き") (score . 1)) ((maimi . airi) (desc "良き妹") (score . 1)) ((saki . erika) (desc "彼氏にしたい") (score . 1)))
のようになります。
以上の調査を経て気になった問題点を列挙してみます。
特に最初の点に関して、「百合的」なるものの質的評価がなかなか難しいと感じました。例えば「大好き」も「良き妹」も同じ 1 と評価してしまっているのが妥当かどうか、といったことです。
また、スレにて与えられた情報を評価・分析する方法としては有効だとしても、逆方向のフィードバックの手段がなかなか見つからないというのが三つ目の問題です（技術力不足とも言います）。（注：画像化の方法が分かりました。追記参照）
最後に、プログラムのソースを示します。実行には PLT Scheme が必要です。文字コードは UTF-8 で保存した上で、(load "c-ute.ss") としてください。文字化けする場合はターミナルが UTF-8 を表示できるよう設定する必要があります。がんばってください。
c-ute.ss:
(require (lib "etc.ss") (lib "list.ss") (lib "26.ss" "srfi") (lib "delete.ss" "srfi" "1")) ;;; Utilities (define true? (compose not not)) (define (ignore _) #f) (define fif (case-lambda ((predicate consequent) (fif predicate consequent ignore)) ((predicate consequent alternative) (lambda (x) (if (predicate x) (consequent x) (alternative x)))))) (define (concat! xs) (apply append! xs)) (define (mapconcat f lst sep) (let lp ((str (f (car lst))) (lst (cdr lst))) (if (null? lst) str (lp (string-append str sep (f (car lst))) (cdr lst))))) (define (slice-string str len) (let lp ((res '()) (str str)) (if (<= (string-length str) len) (reverse! (cons str res)) (lp (cons (substring str 0 len) res) (substring str len))))) (define (break-string str len) (mapconcat identity (slice-string str len) "\\n")) ;; NOTE: input and output ports have to be either file-stream or #f ;; (i.e., cannot be a string port) (define (run exe opt in out) (let-values (((p p-i p-o p-e) (subprocess out in #f exe opt))) (subprocess-wait p) (close-input-port p-e))) ;;; Database ;; http://ja.wikipedia.org/wiki/%E2%84%83-ute (define names '((erika . "えりか") (maimi . "舞美") (saki . "早貴") (airi . "愛理") (chisato . "千聖") (mai . "舞") (kanna . "栞菜"))) (define (symbol->name sym) ((fif true? cdr) (assq sym names))) (define nodes '()) (define edges '()) (define (relate from to desc score) (let ((n (cons from to))) (or (find-relation n (lambda (r) (let ((d (assq 'desc r)) (s (assq 'score r))) (set-cdr! d (cons desc (cdr d))) (set-cdr! s (+ score (cdr s)))))) (begin (set! nodes (cons n nodes)) (set! edges (cons (cons n `((desc ,desc) (score . ,score))) edges)))))) (define (find-relation n k) ((fif true? k) (assoc n edges))) (define (related? x y) (find-relation (cons x y) (lambda (_) #t))) (define (from? n x) (eq? (car n) x)) (define (to? n x) (eq? (cdr n) x)) (define flip-relation (case-lambda ((n) (and (related? (cdr n) (car n)) (cons (cdr n) (car n)))) ((n k) ((fif true? k) (flip-relation n))))) (define (get-score n) (cdr (assq 'score n))) (define (get-description n) (cdr (assq 'desc n))) (define (describe-relation n) (find-relation n get-description)) (define (score-relation n) (or (find-relation n get-score) 0)) (define (print-node . ns) (for-each (cute find-relation <> (lambda (r) (display (format "| ~a => ~a (~a)~%" (caar r) (cdar r) (mapconcat (lambda (s) (string-append "\"" s "\"")) (cdr (assq 'desc r)) ", "))))) ns)) (define (iter-nodes k) (let lp ((nodes nodes)) (unless (null? nodes) (k (car nodes)) (lp (cdr nodes))))) (define (filter-nodes p) (let ((ns '())) (iter-nodes (fif p (cut find-relation <> (lambda (n) (set! ns (cons n ns)))))) ns)) (define (from-links) (map car nodes)) (define (to-links) (map cdr nodes)) (define (all-members) (delete-duplicates! (from-links))) (define (all-pairs) nodes) (define (ordered-pairs) (concat! (map (lambda (x) (map car (sort (filter-nodes (cute to? <> (car x))) (lambda (x y) (> (get-score x) (get-score y)))))) (sort-nodes (map (lambda (x) (cons x (score-loved x))) (all-members)))))) (define (all-combinations) (let lp ((cs '()) (ns nodes)) (if (null? ns) cs (let ((n (car ns))) (lp (if (member (list (cdr n) (car n)) cs) cs (cons (list (car n) (cdr n)) cs)) (cdr ns)))))) ;; number-list :: [a] -> [(a . Int)] (define (number-list ls) (let lp ((ns '()) (ls ls)) (if (null? ls) ns (let ((x (car ls))) (lp ((fif not (lambda (_) (cons (cons x 1) ns)) (lambda (n) (set-cdr! n (add1 (cdr n))) ns)) (assq x ns)) (cdr ls)))))) ;; sort-nodes :: [(a . Int)] -> [(a . Int)] (define (sort-nodes ns) (sort ns (lambda (x y) (> (cdr x) (cdr y))))) (define (diff-nodes ms ns) (let lp ((ds '()) (ns ns)) (if (null? ns) (sort-nodes ds) (lp (let* ((n (car ns)) (m (assq (car n) ms))) (cons (cons (car n) (- (cdr m) (cdr n))) ds)) (cdr ns))))) (define (get-total-score x p) (foldr (lambda (n acc) (+ (get-score n) acc)) 0 (filter-nodes (cut p <> x)))) (define (score-loved x) (get-total-score x to?)) (define (score-loving x) (get-total-score x from?)) (define (score-between x y) (+ (score-relation (cons x y)) (score-relation (cons y x)))) (define (-> x) (display (format "~%Links from [~a]~%" x)) (iter-nodes (fif (cut from? <> x) print-node))) (define (<- x) (display (format "~%Links towards [~a]~%" x)) (iter-nodes (fif (cut to? <> x) print-node))) (define (<-> x) (display (format "~%Reciprocal links for [~a]~%" x)) (iter-nodes (fif (cut to? <> x) (lambda (n) (flip-relation n (lambda (m) (print-node m n))))))) (define (<=> x) (display (format "~%Reciprocal matches for [~a]~%" x)) (iter-nodes (fif (cut to? <> x) (lambda (n) (flip-relation n (lambda (m) (if (ormap (lambda (x) (ormap (lambda (y) (equal? x y)) (describe-relation m))) (describe-relation n)) (print-node m n)))))))) (define (<?> x) (let ((to (assq x (number-list (from-links)))) (from (assq x (number-list (to-links))))) (display (string-append (format "~%Link statistics for [~a]~%" x) (format "| ~a => ~a (love ~a)~%" x (cdr to) (score-loving x)) (format "| ~a => ~a (love ~a)~%" (cdr from) x (score-loved x)))))) (define (info x) (for-each (cut <> x) (list <- <-> <=> -> <?>))) ;;; GraphViz (http://www.graphviz.org/) support (define graphviz "C:/Program Files/ATT/Graphviz/bin/dot.exe") (define (nodes->dot ns) (string-append "digraph cute {\n" ;;"\tordering=out;\n" ;;"\trankdir=LR;\n" "\toverlap=true;\n" "\tnode[fontname=\"msgothic.ttc\"];\n" "\tedge[fontname=\"msgothic.ttc\",fontsize=9];\n" (let lp ((str "") (ns ns)) (if (null? ns) str (let* ((n (car ns)) (s (score-relation n))) (lp (string-append str (format "\t\"~a\" -> \"~a\"" (symbol->name (car n)) (symbol->name (cdr n))) (format "[label=\"~a\",color=\"~a\"," (break-string (car (describe-relation n)) 7) (cond ((> s 0) "red") ((= s 0) "green") (else "blue"))) (format "style=\"bold~a\"];\n" (if (and (not (= s 0)) (< s 1) (> s -1)) ",dashed" ""))) (cdr ns))))) "}")) (define (write-dotfile dot file) (and (file-exists? file) (delete-file file)) (with-output-to-file file (lambda () (display dot))) file) (define (dot->png dot png) (call-with-input-file (write-dotfile dot "c-ute.dot") (lambda (in) (and (file-exists? png) (delete-file png)) (call-with-output-file png (lambda (out) (run graphviz "-Tpng" in out))))) 'done) ;;; Setup database ;; Based on: ;; http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/116-142 (begin (relate 'maimi 'erika "大好き" 1) (relate 'maimi 'kanna "良き妹" 1) (relate 'maimi 'airi "良き妹" 1) (relate 'maimi 'mai "姉妹" 0) (relate 'erika 'maimi "一番可愛いよ" 1) (relate 'erika 'kanna "仲間" 0) (relate 'erika 'chisato "おソロパジャマ" 0) (relate 'kanna 'erika "仲間" 0) (relate 'kanna 'maimi "好き" 1) (relate 'kanna 'saki "喰ってやるよ" 1) (relate 'kanna 'mai "喰ってやるよ" 1) (relate 'kanna 'airi "大好き" 1) (relate 'kanna 'chisato "愛理に手出すんじゃねぇよ" -1) (relate 'saki 'maimi "荷物整理" 0) (relate 'saki 'erika "彼氏にしたい" 1) (relate 'saki 'kanna "興味がある" 0.5) (relate 'saki 'chisato "愛理に手出すんじゃねぇよ" -1) (relate 'saki 'airi "好き" 1) (relate 'airi 'kanna "受け入れる" 1) (relate 'airi 'chisato "最近親密" 1) (relate 'mai 'erika "保護者" 0) (relate 'mai 'maimi "姉妹" 0) (relate 'mai 'chisato "恋人" 1) (relate 'chisato 'erika "おソロパジャマ" 0) (relate 'chisato 'mai "恋人" 1) (relate 'chisato 'airi "最近親密" 1)) ;; query relations / draw graphs (if (file-exists? graphviz) (dot->png (nodes->dot (ordered-pairs)) "c-ute.png") (for-each info (all-members)))
Graphviz というソフトによって関係図を可視化できる、ということを教えていただきました（既に上プログラムを実行すると自動的に関係図画像を作成するようにしてあります）。ここでは技術的な観点から幾つか注意点を挙げておきます。
まず、Scheme プログラムから Graphviz を動かす方法について。コマンドラインからの起動のように、プログラムへのオプション文字列で入出力ファイルを指定する方法ではどうも上手く行きませんでした。調査の結果、入出力ファイルのポートを Scheme 側で用意しておく必要があるようです。処理系によって異なりますが、PLT Scheme の場合 subprocess という関数を次のように呼び出します。
(subprocess output-port input-port #f "/path/to/dot.exe" "-Tpng")
ここで output-port は png 等画像ファイルへの出力ポート。input-port は dot ファイル（グラフの定義ファイル）の入力ポートです。エラーポートは必要無いでしょう (#f)。
dot という名前の実行ファイルが、関係図のような有向グラフを描画するプログラムです。最後にオプション文字列として出力形式を指定します（png, jpeg, gif, etc.）。
次に dot ファイルを Scheme で書く方法ですが、以下の基本的な有向グラフの書式
digraph g {
A -> B;
B -> C;
C -> A;
}
を理解すれば、後は実直に Scheme のデータを当てはめて format 関数等で変換するだけです。
(string-append "digraph g {" (format "~a -> ~a;" (car node) (cdr node)) "}")
問題は、ノードを配置する順番によって出来上がる画像が変わってくる、ということです。
より見た目に分かりやすくするための工夫としては、相互にリンクするノード同士が dot ファイル上でも近接して出力されるようにすると良いでしょう。関連の強いものが画像の上でも近くに表示されるようになります。
また上述（特に例３）のスコアの概念を応用し、スコアの低いものが後に出力されるようにすることで、重力感覚に一致するような関係図を得ることができるでしょう。
まず、親の学歴と子の学歴の相関は、特に低学歴層で顕著。DQNは再生産されるというのは、誰もおおっぴらに言わないだけで、統計調査で裏づけが取れ、論理的に構造も推定されている、学術的には既出の事実。地球は丸いのと同じくらい常識、とは言わないが、宇宙は膨張しているという事実程度には知られている。
低学歴の親の方が勉強に力を入れるはず、という理屈をいくらコネようが、それは意味が無い。社会調査では統計的な事実と論証は2つ揃って初めてワンセットであり、片方じゃ意味が無い。統計的に有意な差があるという事は、それは母数の不足や偶然ではなく、確実に何らかの差がある、という事。だから、それに反するような仮説はどんなに論理として筋が通っていても否定される。
（というか、こうした曖昧性を排除するために、昔から社会学者は統計的手法を発展させてきた。統計を無視する社会学者は論理的ではないし、従って研究者ですらない）
一次??二次ソースには大抵書いてあるのだけれど、まず親に関して、高学歴であればあるほど所得が大きくなる傾向がある。だから、その子どもの出来が良くとも、親の学歴が影響している（遺伝、教育意識）のか、所得（教育機会、生活環境）が影響しているのかの切り分けが非常に難しい。相関関係は分かってるけど因果関係が複雑、って奴だね。
（欧米だと、養子を調査し、「遺伝的要素が影響している可能性は統計的には否定できていないが、生みの親より育ての親・生活環境の影響の方がはるかに大きい事は確か」という半端な実証データが出ている）
ただ、元のエントリに書いてあるように、他の条件が同じで収入格差だけが変化するのであればこの傾向は大なり小なり拡大するはず。なので、「今後学歴格差は拡大するだろう」という傾向予測が正しい可能性は高い。
結婚率と収入の相関関係に、私も疑念を抱いてます めぐままの育事日記
http://d.hatena.ne.jp/megmama/20070806#p2
いまどき結婚なんて趣味と同じで、するもしないもさして大きなことでもないと思う。
筆者の思考背景に「結婚している＞結婚していない」という価値観があるのだろうか。私にとっては両者はフラットというか等価値であるから、結婚しないことを精神的に未熟であると言われても、フウンとしか言いようが無い。気持ちはわからなくもないんだけどさ。人は己の立場をつい正当化したくなるものだとはよく言ったものだ。あと、筆者の義弟はお金のない兄の結婚に嫌悪感を持っているようだが、それは将来的に金貸してとか言われるのが予感できたりしてそういうのがイヤなんじゃないかとも思う。自分も兄弟が無職で結婚するとかいったら反対しそうだし。
【格差の実態】
○ 財政再建や構造改革を進めるにつれ格差が拡大する構造にあるが、障がい者や高齢者など社会的弱者にいろいろな形で重層的な格差がのしかかっている。（大学教授）
○ 格差が固定化されつつある。社会学者が10 年に一度、社会階層調査というものをやっているが、高度成長時代は親の学歴と子供の学歴、親の職業と子供の職業に相関関係はあまりなかった。最近はそれが非常に強くなっている。身分社会とは言わないが、身分社会化しつつある。（大学教授）
○ 中央と地方の格差については、ある意味では格差を超えて、地域の消滅ということが進んでいるのではないか。2月20日の南日本新聞に、2,641 の集落が消滅のおそれ、400以上が10年以内に消滅という形で、いわゆる過疎と言われる地域の集落が、消滅という極めてショッキングなことに今なっている。（大学教授）
○ 全国と本県との所得格差について、高度経済成長期以降、平成１３年ごろまでは一貫して格差は縮小してきた。しかし、平成１４年度から、格差がまた開きだした。これは全国との格差なので、いわゆる首都圏とか中部圏などとの格差はもっともっと広がっている。（地域行政担当）
○ 県内の格差については、やはり就労、雇用の場が多いか少ないかといったところによって、県内でも二極化が進んでいると言っていいのではないか。有効求人倍率については、１８年１１月時点で全国１.０６、当県は０.７９。ちなみに正社員雇用に対する有効求人倍率は、全国では０.６ぐらいだが、当県は０.３ぐらいだと見ている。やはり正社員の有効求人倍率はまだまだ低いというのが実態。（地方行政担当者）
○ 生活保護世帯の過去２０年間の動向を見ると、１０年前の平成９年までは、低下傾向を続けてきたが、平成１０年ごろから一転して増加傾向で推移し、県内で生活保護を受けている人の数は大体２０年ぐらい前の数字に戻っている状況。（地方行政担当者）
○ パートタイマーのほとんどが今までは既婚者と想定されていたために、家計の収入は夫がほぼ稼いでくるということで、パートタイマーの方の賃金は小遣い稼ぎ程度でいいという考えがあった。しかし現在は妻の収入に頼らざるを得ないというような状況に変わってきている。また、離婚とか未婚の母などの理由で母子家庭が増えてきている。この母子家庭の貧困率が高く、２００１年の統計では５３％、つまり母子家庭の約半分が貧困に苦しんでいるのが現状である。（大学関係者）
○ さらに追い打ちをかけるのが、低すぎる日本の最低賃金。ＯＥＣＤ諸国中９カ国の統計をとったところ、１９９７年には日本は下から３番目という低い水準にあることがわかった。しかもさらに、その最低賃金さえも満たしていない労働者の割合が１０％にもなる。この最賃が生活保護を受けている方の支給額よりも低いという、非常にひどい現状があることが問題だと思う。（大学関係者）
○ フリーターの数が現在２００万人を超えているということで、１９８２年に比べると４倍。そのフリーターの方々も正社員を希望しているわけだが、当時の経済情勢とか雇用情勢の影響もあってかなわなくて、やむを得ずフリーターになっている場合が多いと聞く。このフリーターの平均年収が１４０万ということで、生活できる最低限ギリギリの収入だ。そうした生活がずっと続くと、家庭を持ち子供を持つという一般的なライフサイクルもかなわないという状況に陥る。（大学関係者）
○ ニートはもっと深刻な状況。この１０年間に約２０万人増え、現在６０万人を超えている。特に深刻なのは２０００年代に入って３０歳前後の壮年のニートが増大しているということ。いったんニートの状況に陥るとなかなか抜け出せないという問題がこういう現象になっていると思う。ニートの人たちは所得がありませんので、多くの場合、親の経済的支援に頼っている。そのために親が病気になったり亡くなった場合は、彼らは一気に貧困層に転落することになる。早く自立して生活できるだけの最低限の賃金と働く場所の確保が必要。（大学関係者）
○ セーフティーネットであるが、日本の社会保障制度はここ１０年から１５年の間に縮小の一途をたどり、貧困者の数を増やしている。知人から聞いた話だが、千葉県の常磐平団地、１万人居住の大団地に単身者の人たちが住めるようになっているが、ここで昨年、２１人の孤独死が見つかったということだ。中には３カ月以上もそのままでミイラ化されていたという。亡くなった方の３分の２は５０歳未満で、リストラされて失業し、病気になって離婚、孤独死に至ったという非常に怖い話を聞いた。（大学関係者）
○ 障がい者の立場から格差を考えた場合には??健常者と障がい者の格差、??地域間格差、??障害程度区分認定による受給格差、??成長発達の格差、??医療による命の格差、以上の５つの格差があると思う。（障がい者）
○ 取引のあるほとんどの零細・中小の企業の人達は、景気がいいとは実感していない。中小企業の経営者は、非常に苦しんでいる。バブル崩壊後、このような企業のほとんどの経営者は、自分の給料は未払い、あるいは給料を１０万ぐらいまで下げている。なぜ１０万かというと、健康保険と雇用保険と厚生年金の半分負担分、それから市・県民税が納まらないからだ。（社労士）
○ 急速に変化し、激動の時代を迎えている中で、人も変わってきている。派遣会社の営業マンは、自分たちの仕事を謝罪業と言う。なぜなら、派遣スタッフを企業に紹介、面接を行い、雇用してもらっても、派遣スタッフが「１日行って、もう次の日に黙って行か
ない」、「半日行ったら、午後いない」、「朝、就業時刻に来ない」など企業から連絡があり、朝から晩まで謝らなければならないからだ。今、派遣会社の営業マンはまず「起きたか」、「ちゃんと会社に就業時刻に行きなさい」と派遣スタッフの自宅に電話をかけることから始めるという。企業の新入社員教育で、若い人たちに「どういう人生を送りたいか」とか、「どういう生き方をしたいか」、「どんな仕事をしていきたいか」と聞いても、「別に」と言う。高い技術、高い知識を持っている方は、派遣スタッフでも高い賃金を得ている。朝なかなか起きられないスタッフと高い技術を持って高い賃金を得ている人、きちんとしたプランを持ってチャレンジしていく人と「別に」と言う人、これも二極化している。２００万、３００万円台の給料に対して、そんなに違和感を持たない若い人もたくさんいる。企業に入って拘束されたり、上司の指示に従ったりすることが「うざい」という人も増えている。一体、これから社会はどうなるのだろうなと最近よく感じる。（社労士）
○ 今の若い人たちはコミュニケーション能力、表現力が不足している。コンピューターで一人作業はできるが、共同で作業するのは苦手で意思の疎通ができないという企業側の相談もよく受ける。世の中が目まぐるしく変わっていくと同時に、人の生き方、それから人の考え方、人の対応というものも変わり、教育の問題、社会での家庭環境の問題、社会性の問題も全部絡んできて変わってきている。（社労士）
○ 最近、大学にモンゴルの学生が増えてきている。モンゴルは世界の格差社会の下の方なので、授業料が払えない人がいる。かつては授業料が払えなくても卒業できたが、大学も法人化になり、授業料を払わなかったら即除籍処分、つまりいなかったものと同じ扱いにされる。非常にかわいそう。格差社会の最も典型的な例だ。（大学教授）
○ 学生に実施したアンケートで、「『格差社会』に対して、『平等社会』というものを創り出したいとすれば、あなたはどうやって創造しますか」という問いに対し、「無理、不可能、わからない」と答えた人が、３３９人中９７人いた。また、「『格差社会』という言葉を知っていますか」という問いに対しては、「まあまあ知っている」という答えが７３％であった。「『格差』が大きいのはどんな領域ですか」という問いに対しては、国別（豊かな国、貧しい国の格差）という答が２９％と一番多かった。その理由としては、学生の意識の中には、まだ親のすねかじりなので、父親がどんな苦労をしているか、どんな格差社会のことを議論しているか、そういうことに耳を傾けないが、大学で自分がつき合っている留学生の話とか、グローバルなことについては意欲満々に関心を持つからだ。国際学部に入ってくる学生のほとんど全員が、世界の飢餓、危機、それから戦争、貧しい国、かわいそうな子供たち、教育のない国というふうに、自分の足元を見ることよりも、グローバルな視点に目がいくので、この回答に飛びついていると思う。（大学教授）
○ 格差というのは貧しい人と富んでいる人が二極化していること。これがあるかないかという議論もあるが、OECD の報告からも日本では高所得者と低所得者が二極分化し、相対的に貧困になっていることがわかる。（弁護士）
○ みんながお互い助け合い、みんなで利益を分配していくという社会保障の原理が崩壊し、医療に関してみても金があるものがいい治療を受けてなぜ悪いというようなことが、堂々とまかり通るような社会が今の実態。（医療関係者）
○ 国の予算の問題が、医療の問題にすりかえられ療養病床の削減や高齢者医療の負担増がおしすすめられている。（医療関係者）
○ 所得が低い人に対して厚い手当てをして賃金を上げるべきなのに、今度出てくるホワイトカラーイグゼンプションとは要は残業代を払わないという制度で、本末転倒だと言わざるを得ない。（弁護士）
○ 政治というものがきちんとしていないから、世の中が二極化し格差が生じる。それによってもろもろの社会的な矛盾が起こり、いろいろな問題が起こっている。（弁護士）
○ 日本では、パート等の非正規雇用者になるか、正規雇用者になるかによって、賃金、その他の労働条件や社会保障に格段の差がある。この格差があることがいろいろな社会的問題点を生じている。（弁護士）
○ 非正規雇用の問題は３つある。短時間労働による低賃金、働く期間に定めがあること、そして労働関係の中に商取引関係を含んでいるという問題だ。（弁護士）
○ 正社員には派遣より高い賃金に見合った成果が要求され、長時間労働にならざるを得ない。格差が広がるのと同時に長時間労働化も進んでいく。（弁護士）
○ タレント業は厳しい世界だ。短時間雇用とか長時間雇用とか一切なく、来いと言われればすぐ行き、長時間になっても「また何かありましたらお願いします」といつも笑顔でなければならない。常に背水の陣だ。（タレント）
○ 正社員のホテルマンの時は年収200万円でサービス残業は当たり前だった。しかし、結婚式の司会は1回につき5万円。私は食事をする時間もなく働いて月12万円ほどだった。格差はどんな社会にもあるが、仕事の仕方や正社員か非正社員かで大きな格差がつくのはどうかと思う。（タレント）
○ 高年齢者雇用安定法が改正され、雇い主には65歳まで雇用を確保する義務が生じた。しかし、定年の引き上げだけではなく、再雇用や雇用延長でもよく、また、原則は希望者全員だが当面は一定の基準を設けてもいいため、雇用が不安定になる状況がある。（大学教授）
○ 派遣社員の受け入れ窓口は人事ではなく、購買部門だという現状もある。派遣労働者を人件費ではなく、物件費として取り扱う企業もある。（大学教授）
○ 中央と地方の格差は全然縮まっていかないというのが実感。（行政関係者）
○ 中央ではいざなぎ越え、史上最高益という言葉が並ぶが、地方にいるといったいどこの国の話だという感じでまったく実感がわかないのが現実。（行政関係者）
○ 地方の人はまじめに一生懸命働くが、自分たちが働いてつくった価値を自分たちのところに取り戻すことができず、中央に貢いでいるのが現実。（行政関係者）
○ 地方の中小企業の経営者が労働者に利益を配分していないから賃金が安いのではなく、そもそも利益が地方にこないから賃金があがらないという構造になっている。（行政関係者）
○ 地方で働いても高い給料をもらえないからもらえる中央に出て行こうということで、若い層を中心に首都圏への移動が進んでいる。その結果、地方は人口減少が進んでいる。（行政関係者）
○ 地方では医師不足も深刻化している。中央と地方の医療格差も問題。（行政関係者）
○ 東京・大阪で見たホームレスのブルーシートが、地方でも見られるようになっているのが実態。（経営者団体関係者）
○ 格差という定義があいまい。現実に格差はどこにあるのかという議論が不足している。（マスコミ関係者）
○ 国民一人ひとりはかつても格差はあったと感じているが、今ほどひどい時代はないのではないかと感じている。（マスコミ関係者）
○ 地方の中小企業の経営者は、ある意味では社会的責任を感じて健全性があるが、今の大企業は株主だけに目を向けて、社会的な責任・倫理観が欠如している。企業が社会の安全網でなくなってきている。（マスコミ関係者）
○ 県内の雇用状況は非常によくない。有効求人倍率が0.44 から0.46 ぐらいを行ったり来たり。とりわけ若年者、20代の失業率が、全国平均の約２倍で仕事をいかにして確保していくかが問題になっている。ミスマッチということもある。高知ハローワークの事務職の40人の求人に対して女性の求職は２千人いるという状況もあり、解消を図っていく必要ある。中高年の再就職、雇用対策も深刻な状況。（市長）
○ 規制緩和で郊外に大型店ができた影響で、市内の中心商店街も空き店舗率が３年ぶりに上昇し８％台に突入。来街者数も10年前に比べて驚くほどの激減となっている。さらに、エリア内での格差が出ていることの弊害のほうが、今非常に問題になってきており、中心商店街の一人勝ちでいいのかというような議論になっている。（商店主）
○ 非常に若者の雇用率が悪化は、後継者問題を生んでいる。働けるけど働かないという若者もいるのではないか。（商店主）
○ 就職活動をして感じることは、やはり、新卒のうちに就職を決めておかないと大変だということを今実感している。（20 代求職者）
○ ジョブカフェで、若者の就職支援として職業適正検査、キャリアアップのための相談、能力アップのセミナーなど色々やっているが、せっかく入社しても半分以上が３年以内にやめられるという現状で、高知は全国平均より高い状況にある。（経営者協会）
○ 雇用に関して今は売り手市場だと言われるが、県内にあっては全くそのような実感はない。（20代求職者）
○ 県内就職が厳しいから、各種の情報を自分で入手して県外へ出られるというケースが増えている。（経営者協会）
○ 若者が都会へ出ていけば何か仕事があるようだということで、当県はこれから先、少子化の問題ではなくて、社会的人口流出が急激に起こりそうな状況に既に入りつつある。（医療経営者）
○ 県内の専門学校の卒業生は1500人に対して県外から４万1000人の求人が来ており、人口流出は間違いなく始まっている。10年後を考えたときに中堅職員が全くいなくなるのではないか非常に危機感を持っている。（市長）
○ 公共事業は税金の無駄使いだと揶揄されている中で、田舎で建設会社を継続していくことがいいのか、凄い戸惑いを感じる。建設作業員は季節雇用が多く、身分は不安定。仕事があれば通年雇用としたいが、今の仕事量ではそれが出来ず、経営者として力のなさを感じる。仕事さえあれば、真面目に働く人は沢山いるのに仕事がないというのが現実。（経営者）
○ パートタイマーの解雇が大変多い。今現場は正社員以外のパートタイマー含めて、何とか仕事が回っているというような状態なのに、パートタイマーは会社の財産というよりはどちらかというと物件費のような扱いで、削減の対象とされるなど大変不安定。同一価値労働・同一賃金と言われるが、パートという名称だけで正社員とほぼ同じ仕事をしている人もたくさんいる。また、午前と午後のパートを掛け持ちしても10万円位にしかならないというような方がたくさんいる。（労働委員会委員）
○ 東京本社の中の数十名かも知れないが、地方の工場で働く従業員の顔も見ずに社長は工場を閉鎖して首を切ろうという話があった。市場原理があると言いつつも本当に経営者としての品格、道義的な責任はないのか。１円でも多く儲かればいい、効率良く稼いだ社長が偉いというような国になっていくのか物凄く危険を感じる。（労働委員会委員）
お前も頑張れよ。
AとB、BとCに相関があっても、AとCに相関があるとは必ずしも言えない。
以上のことから分かるように，変数どうしの共変動 を相関関係と呼ぶべきか，因果関係と言って良いかは区別しておく必要がある。というよりも，因果関係を主張するときには慎重になるべきである。
因果関係が成立する条件としては以下の4つが挙げられている。
「簡単だけれどもとっても重要な統計学の話／相関関係と因果関係の違いについて」
http://staff.miyakyo-u.ac.jp/~m-taira/Lecture/simple-but-important.html
「途中のストーリーを把握する必要は全く無い、少なくとも自分にとって必要性を感じない」友人Aははっきりそう言いきったのでした。
不足分は同人誌・ネットの２次創作漫画で充分過ぎるくらい補えるのだそうで。ネットのログを追っかけていれば嫌でもストーリーは解説付きでネタバレ含めて目に入ってくるし、キャラの性格付け・相関関係等もそこでもうお腹一杯になるくらいに補充して、後は同人誌のパロネタを味わい尽くせればそれでもう満足だと言うのです。むしろオリジナルを変に(?)知ってしまっては「想像してたのと違う何か違和感」「妄想を膨らませる余地を削られてしまう」「しょせんこんなものか」と失望する事もままあるらしいので却って邪魔だとまで言うのです。
私は友人Aに対して「ちょっとそれはどうかと思う」としか答えられませんでした。結局今でも「何が」「どうなのか」はっきりしないままモヤモヤとした気分だけが残る今日この頃です。
現時点で既に予算ガリガリ削られて青息吐息の文学部をなんでそこまで貶めとるのかわからん。文系の割分を削った程度で賄えるような規模かしらん？ 理系の研究費＆雇用。
という実務チックな疑問はさておいても、
テクノロジーの歴史を記録する「歴史学」ってのは立派な文系学問じゃないのかしらね。
そんで、歴史を精緻に記録していくには、「資料収集・保管・プロジェクト結成etc」とそれなりにしっかりとした予算が必要な訳だけどね。そういう文理のもたれあい、というか人間の「知」の相関関係に、ちょいと鈍感なんじゃないの？エントリ書いた人は。
http://anond.hatelabo.jp/20070422160322
でももっと確信を持って正面から馬鹿にしたほうがイイよ。文系の学問、ことに文学部、そして文学界の構成員というのは、文系の研究機関や大学や文壇や論壇に養ってもらうか、さもなければ生活保護か、という人間達の生存のためだけの活動である場合が多いという真実を白日の下に晒すことにより、理系の研究の予算は増えるはず。雇用も増えるはず。そしてこの世界を豊かに発展させるはず。
……だそうですので。
それは大学のランクと学習環境とに相関関係が見られると踏んだから。
ここで言う環境とはもちろん研究施設の規模も含まれるが、なにより周りにいる人物が皆優秀であることが一番大きな要因である。
世間一般的に優秀な大学に幸運にも入学できて１年が経とうとするのだが、先輩方の話を聞くとやはり環境は特段にいいものだということが分かる。
それは実際に自分でも実感するところであり、例えば飲み会の席で学問について語る、技術について語る、これほど愉快なものはほかにはないと確信している。
くだらない流行に必死についていくよりほかないこれまたくだらない大学に入ったところでいったい人生の何になるのだろうか！
それならば大学に入らずせっせと働いたほうが実になるし、世間のためにもなる。今一度、特に受験を控える人にはこだわりというか、執念を持ってよい大学に入ってほしいと思う。
高校生のくせしてなんだかもうやったらめったらコアなダンスミュージックフリークな某氏とたまに話してると彼は今電波ソング（あるいはAKIBA-POP）に注目してるらしい。たしかに彼の推すMOSAIC.WAVなんかを聴いてみるとポップで時にダンサブルでさえあり面白い。俺はもともとネット暦の長いものだから電波ソングをちょくちょく聴いたこともあったのだけれど、思い返してみるとそれらもみんな電子音がふんだんに取り入れられダンスミュージック的な要素を多く含んでいたように思える。……なんでだろ？
ゲーム音楽がもともとテクノの土壌をはぐくんでいたというのもあるんだろうけれどやっぱりテクノにそういうスタイルを受け入れる器があったんじゃないかと思う。ヒカシューとか聴いててさー電波じゃん、電波ソングじゃん、と。パンク・ニューウェーヴのシーンのなかではキワモノ系のパフォーマンスを受け入れる器があった。というか、キワモノ系パフォーマンスの巣窟みたいなもんじゃないですか。キワモノとまではいかなくても、YMOとか洗練されててクールなアーティストの方が少数だった、というまあイメージなんですけど。でそっから人生とか出てくるわけでしょ。そのまま電気に至ってバカ詞＋ダンストラックとゆーのがある種スタンダードと化してカラテクノとかナードコアが出てきているというのが個人的な見解。そっからオタクとテクノの相関関係が明確になってきてそして電波ソングへ……
まあ、どうにかして電波ソングを音楽史の中に結びつけるという試行はとりあえずここでお開きにするとして、結局ダンス系のトラックのほうが「それっぽい」曲を作りやすかったのかなあ、とも思ってる。もともとトラック自体はどうでもいいわけじゃない？ 電波ソングって。とりあえずノリがよくて、ポップだったらOK。その用件を比較的満たしやすいスタイルがたまたまテクノ・ユーロビート・トランスなどのダンスミュージックだった、と。
なんてここまで書いていまさらPerfumeとかスパンクハッピーとか思い出して、アイドル＋ピコピコ／テクノポップというラインからの進化系なのかもしらないとも思い始めた。
……んまあとりあえずメモってことで。
P.S.この記事書く為に片っ端から電波ソング聴いてたらなんか死にたくなってきた
知性というのは何だろう。外見を見ただけで、その人に対して、知性を感じる人と感じない人がいる。それは人種や年齢には関係ない。知性を感じる人の多くは、目が違うように感じる。その知性とは何だろう。よくわからない。
本を読んでいるかどうか、とは相関関係があると思う。では本を読んで身につくものとは何だろうか。
知識の量、ではない。ものをとらえる視点、なんだろうか。どんな視点？
自分の持っているものを相対化して捉えられる、ということ？
新しいものを受け入れられるということ？
頭はいいけれど、偏狭で自己中心的な妄想に凝り固まっている人、というのもたまに見かけるな。そういう人は、頭は良さそうだが知的ではない目をしている。頭がよいとは何だろう。知的とはなんだろう。