未婚者の約7割以上が異性の交際相手がいない
こんにちは、少子化研究者の茂木良平です。南デンマーク大学というところで、少子化を専門に研究しています。
毎週月曜日に少子化の現状をデータと研究知見を交えて紹介しています。
今回は、未婚者の異性との交際状況について紹介します¹。
日本の少子化の主な要因は、晩婚化や未婚化といった結婚行動の変化です。
そのため、どういう人が、なぜ未婚に留まっているのかを理解することが少子化の現状を理解する上で欠かせません。
約7割以上の未婚者の人が異性の交際相手がいない
図1は、未婚者のうち、調査時点で異性との交際相手がいない人の割合を示しています。
データソース：出生動向基本調査第16回結果概要
男女ともに、全年齢階級で未婚者の約7割以上が異性の交際相手がいません。年齢階級と性別で割合は異なりますが、全年齢で男性の方が女性に比べて、交際相手がいない人の割合は高くなっています。
図2は、18～34歳の未婚者に独身でいる理由を聞いた中で、その理由として交際の問題を挙げた人の割合を示しました。
データソース：図1参照
注：うまくつき合えないは「異性とうまくつき合えないから」、相手がいないは「適当な相手にまだめぐり会わないから」と回答した人
25〜34歳の独身者のうち、約2割の人が「異性とうまくつき合えないから」、43%の男性、48%の女性が「適当な相手にまだめぐり会わないから」と答えています。
他にも「今は、仕事（または学業）にうちこみたいから」や「結婚資金が足りないから」などの回答がある中で、独身でいる理由として「適当な相手にまだめぐり会わないから」と答えた人が最多でした。
18～34歳の未婚者のうち8割以上の人が「いずれ結婚するつもり」と答えていることを考えると、交際相手がいないことが結婚したいのにできない人の課題と解釈できると思います。
さらに、異性との交際経験が一度もない人の割合は、25～29歳の男性（36％）、女性（29％）、30～34歳の男性（39％）、女性（34％）となっています。
データソース：図1参照
また、図4を見ると、未婚者のうち性交渉経験が一度もない人は、男性は36％以上、25～29歳の女性は39％、30～34歳の女性は44％となってます。
データソース：図1参照
図3、図4から、調査時点で交際相手がいないだけでなく、交際経験が一度もない未婚者が3～4割いることがわかりました。繰り返しになりますが、未婚者のうち8割以上が結婚を希望していることを考えると、結婚にいたる一番最初のステップで止まってしまっている人が多いことを示しています。
こうした交際に関する価値観をドイツ、フランス、スウェーデンと比較したのが図5です²。
「恋愛は面倒だと感じる」や「恋愛することに自信がない」と、恋愛に対して消極的な価値観を持っている人が、他国に比べて日本に多いことがわかります。また、「恋愛はしたいが、お金がかかる」と感じている日本の男性は21％と他国に比べて高い値になっています。
データソース：令和2年度少子化社会に関する国際意識調査
以上、未婚者が結婚を希望しているのに、結婚できない理由として、交際相手がいないだけでなく、交際行動が大きな要因であることをまとめました。
次に、どういう人が交際相手を持ちやすいか、について社会経済的要因との関係でわかっていることを紹介します。
社会経済的要因
イタリアと日本で、雇用形態と同棲していない交際相手の有無にどういう関係があるかについて分析した論文を紹介します。私が共著者と行った研究です。
イタリアは日本と同じレベルの低出生国で、家族主義や社会や家庭内でのジェンダー平等があまり進んでいないなど、実は日本と似ている点が多いです。そのため、イタリア（やスペイン）と日本（や東アジア諸国）との比較はとても面白い示唆を与えてくれます。
主な結果は2つです。
1. 無職、契約形態不明、有期契約の日本人女性は、交際相手がいる確率が、正規雇用の女性よりも低い。
2. イタリア人は雇用形態と交際相手の有無の関係は見られなかった。
なぜ日本人女性のみ、雇用形態と交際相手の有無に関係がみられたのでしょうか？これには2つの理由があると思います。
1つ目は、日本の女性は将来の結婚相手の収入を重視するため、女性の非正規雇用者は、職場で彼女らが望むようなパートナー候補と出会う機会が少ないということです。
2つ目の理由には、女性に比べるとまだ割合は低いものの、近年女性に経済力を求める男性が増えていることが関係していそうです。有期雇用者の割合が高い職場の労働者は給与が低く、昇進の機会も少ないため、正規雇用者以外の女性は、女性に経済力を望む男性から選ばれにくくなっているのかもしれません。
またなぜ、イタリア人ではこうした関係が見られなかったのでしょうか？
大きな理由として、イタリアでの雇用環境の悪さが考えられます。失業率や非正規雇用の割合が高いため、交際を始める時点での雇用状況はあまり交際するかどうかに関係してこないのではないか、と解釈できます。
以上、交際相手がいない日本の女性には、経済格差も関係していることがわかりました。
まとめ
日本の少子化の主な原因は、未婚化・晩婚化なので、どういう人が、なぜ未婚に留まっているのかを理解することが重要。
18～34歳の未婚者の7割以上が異性の交際相手がいない。
交際経験が一度もない未婚者は3～4割。
18～34歳の未婚者のうち8割以上の人が「いずれ結婚するつもり」と答えていることを考えると、交際相手がいないことが結婚したいのにできない人の課題ではないか。
他国に比べて、恋愛に対して消極的な考えを持っている人が多い。
非正規雇用や無職の女性は、交際相手がいない確率が高い。
この記事をちょっとでも面白いと思ってくれた方は下にある「スキ」ボタン、SNSでのシェアよろしくお願いします。とても励みになります！ご質問はこの記事へのコメント、もしくはtwitterまでお気軽にご連絡ください（全部は返信できませんが、次回の記事の参考にさせていただきます）。また記事執筆やインタビューの依頼はメールアドレスrymo[at]sdu.dkまでお願いします。
少子化に関する他の記事は以下のマガジン（無料です）にまとめておりますので、ご覧にください。フォローもお願いします！
注
1：今回のデータでは、異性以外との交際行動については見ることができなかった。
2：恋愛に対して、異なる種類の価値観を多数含んだ質問設計になっているので、解釈が難しい。
以下グラフに使ったRコードです！もっとかっこいい・見やすいグラフを作れる方は教えてください！
library(tidyverse)
library(openxlsx)
`%out%` = Negate(`%in%`)
Mycol <- c("#08306B", "#238B45", "#FD8D3C", "#D4B9DA", "#FFEDA0")
# reasons to be single
reason <- data.frame(
sex = c("男性", "男性", "男性", "男性", "女性", "女性", "女性", "女性"),
age = c("18-24歳", "18-24歳", "25-34歳", "25-34歳", "18-24歳", "18-24歳", "25-34歳", "25-34歳"),
choice = c("相手がいない", "うまくつき合えない", "相手がいない", "うまくつき合えない",
"相手がいない", "うまくつき合えない", "相手がいない", "うまくつき合えない"),
prop = c(29.8, 12.3, 43.3, 20, 36, 7.3, 48.1, 18.2)
)
reason %>%
mutate(sex = factor(sex, levels = c("男性", "女性")),
choice = factor(choice, levels = c("相手がいない", "うまくつき合えない"))) %>%
ggplot(aes(x = prop, y = choice, group = sex, fill = sex, label = prop)) +
facet_wrap(~ age) +
geom_bar(position = "dodge", stat = "identity") +
geom_text(size = 4.5, hjust = 1.5, position = position_dodge(.9), colour = "white") +
scale_fill_manual(values = c(Mycol[2], Mycol[3])) +
labs(x = "独身でいる理由として交際の問題を挙げた割合（％）",
caption = "データソース：第16回出生動向基本調査結果の概要. 作成者：茂木良平") +
theme_minimal(base_family = "HiraKakuPro-W3") +
theme(axis.text = element_text(size = 12),
axis.title.y = element_blank(),
axis.title.x = element_text(size = 15),
strip.text.x = element_text(size = 12),
legend.title = element_blank(),
legend.position = "top",
legend.text = element_text(size = 12))
# % of not having a partner
partnerless <- data.frame(
age = c("20-24", "25-29", "30-34", "20-24", "25-29", "30-34"),
sex = c("男性", "男性", "男性", "女性", "女性", "女性"),
prop = c(24, 26.1, 14.2, 30.9, 32.6, 20.6)
)
partnerless %>%
mutate(sex = factor(sex, levels = c("男性", "女性")),
prop = 100 - prop,
age = paste0(age, "歳"),
age = factor(age, levels = c( "30-34歳", "25-29歳", "20-24歳"))) %>%
ggplot(aes(x = prop, y = age, group = sex, fill = sex, label = prop)) +
geom_bar(position = "dodge", stat = "identity") +
geom_text(size = 4.5, hjust = 1.5, position = position_dodge(.9), colour = "white", show.legend = F) +
scale_fill_manual(values = c(Mycol[2], Mycol[3])) +
xlim(0, 100) +
labs(x = "交際相手がいない人の割合（％）",
caption = "データソース：第16回出生動向基本調査結果の概要. 作成者：茂木良平") +
theme_minimal(base_family = "HiraKakuPro-W3") +
theme(axis.text = element_text(size = 12),
axis.title.x = element_text(size = 15),
axis.title.y = element_blank(),
legend.title = element_blank(),
legend.position = "top",
legend.text = element_text(size = 12))
# % of never had a partner
nevpartner <- data.frame(
age = c("20-24", "25-29", "30-34", "20-24", "25-29", "30-34"),
sex = c("男性", "男性", "男性", "女性", "女性", "女性"),
prop = c(40.1, 36.4, 38.9, 34.3, 28.6, 33.9)
)
nevpartner %>%
mutate(sex = factor(sex, levels = c("男性", "女性")),
age = paste0(age, "歳"),
age = factor(age, levels = c( "30-34歳", "25-29歳", "20-24歳"))) %>%
ggplot(aes(x = prop, y = age, group = sex, fill = sex, label = prop)) +
geom_bar(position = "dodge", stat = "identity") +
geom_text(size = 4.5, hjust = 1.5, position = position_dodge(.9), colour = "white", show.legend = F) +
scale_fill_manual(values = c(Mycol[2], Mycol[3])) +
labs(x = "交際経験が一度もない人の割合（％）",
caption = "データソース：第16回出生動向基本調査結果の概要. 作成者：茂木良平") +
theme_minimal(base_family = "HiraKakuPro-W3") +
theme(axis.text = element_text(size = 12),
axis.title.x = element_text(size = 15),
axis.title.y = element_blank(),
legend.title = element_blank(),
legend.position = "top",
legend.text = element_text(size = 12))
# % of never had sex
nevsex <- data.frame(
age = c("25-29", "30-34", "25-29", "30-34"),
sex = c("男性", "男性", "女性", "女性"),
prop = c(63.6, 62.8, 61.2, 55.6)
)
nevsex %>%
mutate(sex = factor(sex, levels = c("男性", "女性")),
age = paste0(age, "歳"),
age = factor(age, levels = c( "30-34歳", "25-29歳")),
prop = 100 - prop) %>%
ggplot(aes(x = prop, y = age, group = sex, fill = sex, label = prop)) +
geom_bar(position = "dodge", stat = "identity") +
geom_text(size = 4.5, hjust = 1.5, position = position_dodge(.9), colour = "white", show.legend = F) +
scale_fill_manual(values = c(Mycol[2], Mycol[3])) +
labs(x = "性交経験が一度もない人の割合（％）",
caption = "データソース：第16回出生動向基本調査結果の概要. 作成者：茂木良平") +
theme_minimal(base_family = "HiraKakuPro-W3") +
theme(axis.text = element_text(size = 12),
axis.title.x = element_text(size = 15),
axis.title.y = element_blank(),
legend.title = element_blank(),
legend.position = "top",
legend.text = element_text(size = 12))
# values regarding dating
# https://www8.cao.go.jp/shoushi/shoushika/research/r02/kokusai/pdf_index.html
# only among those who are not married nor cohabiting
val <- read.xlsx("data/令和2年少子化調査_恋愛.xlsx")
val %>%
gather(key = reason, value = prop, -c(`性別`, `ケース数`, `国`)) %>%
mutate(`性別` = factor(`性別`, levels = c("男性", "女性")),
`国` = factor(`国`, levels = c("日本", "ドイツ", "フランス", "スウェーデン")),
reason = factor(reason, levels = rev(c("恋愛よりも勉強や仕事を優先したい",
"恋愛よりも趣味を優先したい",
"交際をする相手との結婚を考える",
"それほど好きではない人とも恋愛や交際をしてもかまわない",
"いつも恋愛をしていたい",
"気になる相手には自分から積極的にアプローチをする",
"相手からアプローチがあれば考える",
"恋愛することで人生が豊かになる",
"恋愛は面倒だと感じる",
"恋愛することに自信がない",
"恋愛はしたいが、お金がかかる")))) %>%
ggplot(aes(x = prop, y = reason, group = `性別`, fill = `性別`, label = prop)) +
facet_wrap(~ `国`) +
geom_bar(position = "dodge", stat = "identity") +
geom_text(size = 3, hjust = -0.5, position = position_dodge(.9), show.legend = F) +
scale_fill_manual(values = c(Mycol[2], Mycol[3])) +
labs(x = "恋愛に関する考え（％）",
caption = "データソース：令和２年度少子化社会に関する国際意識調査. 作成者：茂木良平") +
theme_minimal(base_family = "HiraKakuPro-W3") +
theme(axis.text = element_text(size = 12),
axis.title.x = element_text(size = 15),
axis.title.y = element_blank(),
strip.text.x = element_text(size = 12),
legend.title = element_blank(),
legend.position = "top",
legend.text = element_text(size = 12))
サポートしていただいたお金は、研究費に使わせていただきます！