ラベル 統計 の投稿を表示しています。 すべての投稿を表示
ラベル 統計 の投稿を表示しています。 すべての投稿を表示

2024年11月7日木曜日

世代効果

日経クロストレンドの「30年のデータで解析!生活者の変化潮流 第52回ポパイ・JJ世代が時代の節目?日本人の価値観変化をデータで検証」という記事が目に入った。自分にはあまり関係ない話かとチラチラみていると,どうやらポパイ・JJ世代のというのは私達の世代のことだった。

日経新聞の支払いを日経ID決済にしているので,1ヶ月のみの日経クロストレンド無料購読が可能になる。そこで全文を読んでみた。もっとも 3/4 くらいは無料部分で読めるのだが。

簡単に言うと,生活に関する長期時系列データに対して,ある集団に着目するコーホート分析をした結果,年齢効果,時代効果,世代効果を取り出すことができる。これから1952-1956年生まれの世代が価値観の境界にあるということがわかった,というものだ。

もう少し詳しく説明するために,ChatGPT-4oに全文ファイルを読み込ませて内容を要約させよう。
Q(koshix):
(第52回及び関連する第50回の2ファイルをアップロードした上で)
これらの内容をまとめて教えてください。

A(ChatGPT-4o):
以下に2つのレポート内容をまとめます。

1.「ポパイ・JJ世代が時代の節目? 日本人の価値観変化をデータで検証」
概要:このレポートは、日本人の価値観がどのように変遷してきたかを「生活定点」データを基にしたコウホート分析によって考察しています。博報堂生活総合研究所が1992年から定点観測を行ってきた長期時系列データを活用し、「年齢効果」「時代効果」「世代効果」の3つの要因を分離して、特定の世代が持つ特徴や時代の影響を解析しています。
主な発見
1952年から56年生まれの世代に、価値観の変わり目が見られるとされており、日本社会において「世代的な節目」を形成していると考えられます。
コウホート分析の結果により、消費や価値観の変化が進み、特に「消齢化」(年齢によるライフスタイルの固定化の希薄化)が進行していると指摘されています​(第52回)。

2.「人前でのキスに抵抗はない」は6% 調査で見えた若者の実像
概要:若者の価値観や行動が実際にどれほど変わったのか、30年間の「生活定点」データに基づき、コウホート分析を通じて若者の特徴が世代固有か、時代的な影響かを検証しています。
主な発見
若者に見られる行動や価値観のうち、約4割が「年齢効果」(年齢に基づく変化)で、世代固有のものは3割程度であると示唆されています。
特に「音楽や美容に対する関心」などは若者特有の特徴である一方、「人前でのキスに対する抵抗感」など、恋愛観に関しては世代を超えて一貫している要素もあるとされています​(第50回)。

これらのレポートから、長期間にわたるデータを基に日本人の価値観の変遷が年齢や時代、世代ごとにどのように影響されるかが詳細に分析されており、特定の世代における消費傾向や価値観の変化が明らかにされています。


Q(koshix):
1952年から56年生まれの世代に、価値観の変わり目=日本社会における「世代的な節目」だということですが,その前後でどんな価値観が変化しているのか複数の例をあげて説明してください。

A(ChatGPT-4o):
1952年から56年生まれの世代が日本社会における「価値観の節目」を形成している理由について、いくつかの具体例を挙げて説明します。この世代は「ポパイ・JJ世代」とも呼ばれ、従来の価値観から新たな価値観へとシフトする過程で、以下のような変化が見られました。

個人主義の台頭
戦前や戦中生まれの世代が保守的・伝統的な価値観を持っていたのに対し、1952年から56年生まれの世代では「個人の自由」が重要視されるようになりました。この世代は、家庭や組織への従属よりも、個人の自己実現を追求する傾向が強まり、特に家庭や職場での上下関係の在り方に対する意識が変わり始めました​。

食生活の変化
伝統的な魚料理が好まれていた世代から、次第に肉料理が一般化され、特に1970年代以降は肉が日常的な食材となっていきました。この変化は、価値観が個人の嗜好に寄り添う傾向へと移行したことを示しており、戦後の欧米文化の影響も加わった結果と考えられます​。

仕事と生活のバランス
1952年から56年生まれの世代以降、仕事中心の生き方から、家庭やプライベートを重視する価値観へのシフトが見られるようになりました。具体的には「予定があれば残業しない」「仕事よりも家庭が大事」といった意識が若い世代ほど顕著になり、組織よりも個人生活を重視する傾向が進んでいます​。

社会貢献意識の揺れ
「社会のために役立つことをしたい」という意識は、この世代で一旦上昇した後、後続世代では減少しつつも再び波打つような傾向を示しています。これは、個人の幸福追求と社会への貢献の間で揺れ動く日本人の価値観の変化を表しています​。

このように、1952年から56年生まれの世代は、個人の自由と多様な価値観が受け入れられる社会への移行期として重要な役割を果たし、従来の伝統的な価値観を一部保ちながらも、大きく社会が変容していく時代の礎となりました


図:各世代での世代効果の標準偏差(博報堂生活総研・日経XTRENDから引用)
(世代効果の谷間の部分(1952-1956年生まれ)が価値観の境界をなしている)


2024年8月13日火曜日

注目論文数

8月9日(金),科学技術・学術政策研究所(NISTEP)科学技術指標2024を公開した。早速ニュースで取上げられていたのは,注目度の高い論文数(上位10%)の国際順位である。昨年度と同様に過去最低の13位ということだった。研究開発費や研究者数などは,世界3-5位の水準なのだけれど,それに比べて目立つので毎年取上げられることになる。

今から,6年前の定年直前の9月に,奈良学園高校で出前授業をしたことがある。タイトルは20世紀の物理学−原子核の発見がもたらしたもの−なのだが,そこで,このデータを取上げて日本の科学の水準の危機を訴えたことがある。そのときは上位10%の論文数は世界第10位だった。

上位10%の論文というのは,自然科学の各分野の論文を被引用数の大きな順に並べたものの上位10%の論文について,各国の機関別寄与割合を集計した数である。実際には,各分野の引用慣行を補正するための,分野ごとの論文数の正規化が行われている。

各国の人口と研究者数や論文数には相関があるので,報道されている論文数を人口で割ったものを求めてみた。報道されているもとの論文数では,日本は第13位だけれど,人口比をとれば,第20位にまでランクダウンする。なお,上位1%でも12位から20位にダウンする傾向は同じだった。
 
 No国名人口(万人)10%論文数人口比(/万人)
122シンガポール5801,5202.621
217スイス8702,0712.380
37オーストラリア2,6705,1511.929
414オランダ1,7402,8781.654
521スウェーデン1,0701,5651.463
63英国6,8008,8501.301
78カナダ3,9104,6541.190
86イタリア5,8706,9431.183
925ベルギー1,1701,3371.143
102米国34,18034,9951.024
115ドイツ8,3307,1370.857
1211スペイン4,7503,9910.840
139韓国5,1704,3140.834
1423台湾2,3601,5110.640
1510フランス6,4904,0830.629
1615サウジアラビア3,7502,1400.571
171中国142,52064,1380.450
1812イラン8,9803,8820.432
1924ポーランド4,0201,4910.371
2013日本12,2603,7190.303
2118トルコ8,6302,0520.238
2219エジプト11,4501,8260.159
2316ブラジル21,7602,1310.098
2420パキスタン24,5201,6960.069
254インド144,1707,1920.050

もとのデータが論文数で25位までの範囲だけが示されているので,人口比データでは上位となる国のいくらかは取りこぼしているかもしれない。例えば,上位1%データではデンマークが第4位にランクインしてポーランドがランクアウト。ロシア,イスラエル,オーストリア,アイルランド,ギリシャ,ノルウェー,フィンランド辺りは取りこぼされているかもしれない。


2024年6月14日金曜日

合計特殊出生率(3)

合計特殊出生率(2)からの続き

物理学者の白石さんが,合計特殊出生率の件で強い主張をしていたので確認してみる。ようは,合計特殊出生率を決めているのは有配偶率であって,人口学的に確かめられている。それ以外の恣意的な原因を持ち出しているのはみんな出鱈目だ。ということだった。

仮にそうであっても,有配偶率自身を規定する原因は考えられるのだから,そこまで強く主張する必要はまったくないのに,と思う。まあいつものことだ。

都道府県別の合計特殊出生率と直近の国勢調査で得られた都道府県別の15-49歳女性の有配偶率を散布図にしてみる。1953年から2022年までの両者の関係も出せないかと調べるのだけれど,必要な情報はデータの海に埋もれてしまっていて,簡単には見つかりそうになかった。どの生成AIも簡単には探しだしてはくれない。

とりあえず,Juliaでコーディングしてみる。
using Gadfly
using Compose
using DataFrames
X = [46.6,47.4,49.4,47.7,49.9,51.2,50.0,50.4,50.9,49.9,49.3,49.0,44.2,49.0,50.4,52.0,50.4,52.3,49.5,51.7,51.4,51.6,51.9,51.4,52.2,44.4,43.5,48.8,47.0,48.5,49.2,51.9,48.9,50.7,49.9,49.3,51.1,49.6,46.1,46.2,48.5,48.6,48.5,49.5,49.4,49.2,45.8]
Y = [1.06,1.23,1.16,1.07,1.10,1.22,1.21,1.22,1.19,1.25,1.14,1.14,0.99,1.13,1.23,1.35,1.34,1.46,1.32,1.34,1.31,1.25,1.29,1.29,1.38,1.11,1.19,1.29,1.21,1.33,1.44,1.46,1.32,1.33,1.40,1.36,1.40,1.31,1.30,1.26,1.46,1.49,1.47,1.39,1.49,1.48,1.60]
Labels = ["北海道","青森","岩手","宮城","秋田","山形","福島","茨城","栃木","群馬","埼玉","千葉","東京","神奈川","新潟","富山","石川","福井","山梨","長野","岐阜","静岡","愛知","三重","滋賀","京都","大阪","兵庫","奈良","和歌山","鳥取","島根","岡山","広島","山口","徳島","香川","愛媛","高知","福岡","佐賀","長崎","熊本","大分","宮崎","鹿児島","沖縄"]

plot(x=X, y=Y, label=Labels, Geom.point, Geom.label, Theme(major_label_font="CMU Serif",minor_label_font="CMU Serif",major_label_font_size=12pt,minor_label_font_size=12pt), Guide.xlabel("女性有配偶率"),Guide.ylabel("合計特殊出生率"))

沖縄は特異点になっているが,合計特殊出生率とこれに対応する年代の女性の有配偶率には正の相関がみられる。

図:女性の有配偶率と合計特殊出生率の関係

P. S.  x軸とy軸の日本語ラベルのつけ方は,ChatGPT-4oに教えてもらった。

2024年6月10日月曜日

のんき度

のんき度とは,本川裕(1951-)さんが命名した指標だ。

毎年行われる国民生活基礎調査(厚生労働省)の3年ごとの大規模調査(前回令和4年)では健康票の質問12で「こころの状態」に関する設問がある。過去1ヶ月に,(1) 神経過敏に感じましたか, (2) 絶望的だと感じましたか,(3) そわそわ落ちつきなく感じましたか,(4) 気分が沈み込んで,何が起こっても気が晴れないような感じがしましたか,(5) 何をするのも骨折りだと感じましたか,(6) 自分は価値のない人間だと感じましたか,を尋ねる6つの質問がある。結果の合計点は,いつも,たいてい,ときどき,すこしだけ,まったくないの5段階から1つ選んで丸をつける。問題が全くないを0点から,いつもを4点とすれば,合計点は0〜24点に及ぶ。

報告書では,これを3区分にした集計がある。0~4点を「精神状態が良好」と捉え,各都道府県別あるいは年齢別の「精神状態が良好」の割合が示されている。本川は,これを精神的な問題が少ないほど心が平安あるいは健全だとして「のんき度」と名前をつけている。

のんき度を都道府県別に見ると,68%から74%でそれほど大きな違いはないが,東北,特に太平洋側が低いレベル,そして九州・沖縄が高いレベルにあり,西高東低の地域構造がある。さらに,九州では佐賀だけ特に低い,北陸では石川・福井が高いのに富山だけ低い,など謎に特異な構造がみられる。

一方,年齢別にみればはっきりとした特徴がでてくる。自分は今人生における第二ののん気ピークにあるが,このあと転落が待っているらしい。どうしよう。


図:年齢別ののんき度(本川裕さんの記事[1]より引用)

[1]「60代は人生の楽園だが、70代以降は一転」多くの日本人が天国から地獄へ

2024年6月7日金曜日

合計特殊出生率(2)

合計特殊出生率(1)からの続き

去年の今ごろ,奥村晴彦さんの合計特殊出生率Rプログラムを写経していた。すっかり忘れていたけれど,2023年の新しい合計特殊出生率が過去最低の1.20人を記録したいうニュースで思い出すことになった。

都道府県別でみれば,東京都の0.99や北海道の1.06をはじめ,大都市部や東北地方で低く,沖縄の1.60を筆頭に,九州,山陰,北陸などで高い。

今年は,コマンドラインで実行すべく,Rプログラムを修正した。あいかわらず日本語表示でつまづいたので,ChatGPT-4oに聞きながら試行錯誤した結果,何とか解決できた。なお,スタートを自分が生まれた1953年にしてみた。

修正したRプログラムのtfr.rの内容(注:remove \ before copy and paste)は

library(showtext)

font_add("Hiragino", "/System/Library/Fonts/ヒラギノ角ゴシック W3.ttc")

showtext_auto()


X <- read.table('/Users/koshi/Desktop/birth.txt', header = TRUE)

par(family = "Hiragino")  # 利用可能なフォントを指定

plot(X\$年, X\$合計特殊出生率, type="o", pch=16, xlab="", ylab="")

t = c(range(X\$合計特殊出生率), X\$合計特殊出生率[length(X[,1])])

axis(4, t, t)

title("合計特殊出生率", line=0.5)

#title("Total Fertility Rate", line=0.5)


# x軸とy軸のメモリの位置を手動で指定

x_ticks <- pretty(X$年, 15)  # 15個のメモリを生成

y_ticks <- pretty(X$合計特殊出生率, 16)  # 16個のメモリを生成


# x軸に対してグリッド線を描画

for (i in x_ticks) {

  abline(v = i, col = "lightgray", lty = "dotted")

}


# y軸に対してグリッド線を描画

for (i in y_ticks) {

  abline(h = i, col = "lightgray", lty = "dotted")

}

これで,Rscript tfr.r とすると,pdfの出力,Rplots.pdf が得られる。なお,showtextというライブラリは,コマンドラインで R として立ち上げたプロンプトに,install.packages("extrafont") としてインストールしておく。また,データは birth.txt にあらかじめ入れてある。

年    出生数 合計特殊出生率

1953 1868040           2.70

1954 1769580           2.48

1955 1730692           2.37

1956 1665278           2.22

1957 1566713           2.04

1958 1653469           2.11

1959 1626088           2.04

1960 1606041           2.00

1961 1589372           1.96

1962 1618616           1.98

1963 1659521           2.01

1964 1716761           2.05

1965 1823697           2.14

1966 1360974           1.58

1967 1935647           2.23

1968 1871839           2.13

1969 1889815           2.13

1970 1934239           2.13

1971 2000973           2.16

1972 2038682           2.14

1973 2091983           2.14

1974 2029989           2.05

1975 1901440           1.91

1976 1832617           1.85

1977 1755100           1.80

1978 1708643           1.79

1979 1642580           1.77

1980 1576889           1.75

1981 1529455           1.74

1982 1515392           1.77

1983 1508687           1.80

1984 1489780           1.81

1985 1431577           1.76

1986 1382946           1.72

1987 1346658           1.69

1988 1314006           1.66

1989 1246802           1.57

1990 1221585           1.54

1991 1223245           1.53

1992 1208989           1.50

1993 1188282           1.46

1994 1238328           1.50

1995 1187064           1.42

1996 1206555           1.43

1997 1191665           1.39

1998 1203147           1.38

1999 1177669           1.34

2000 1190547           1.36

2001 1170662           1.33

2002 1153855           1.32

2003 1123610           1.29

2004 1110721           1.29

2005 1062530           1.26

2006 1092674           1.32

2007 1089818           1.34

2008 1091156           1.37

2009 1070036           1.37

2010 1071305           1.39

2011 1050807           1.39

2012 1037232           1.41

2013 1029817           1.43

2014 1003609           1.42

2015 1005721           1.45

2016  977242           1.44

2017  946146           1.43

2018  918400           1.42

2019  865239           1.36

2020  840835           1.33

2021  811622           1.30

2022  770759           1.26

2023  727277           1.20

図:1953-2023  の合計特殊出生率の推移