R

賃金構造基本統計調査

plotrix、knitr、tidyr パッケージ

賃金構造基本統計調査(更新）

賃金の推移（中央値）をみるために「賃金階級、性、年齢階級別労働者数割合」の２００１年から２０１４年分の一部をコピペして、データセットを作成した。
「結果の概要」の「賃金の推移」は平均値のみ

wage.csv（間違いがあるかもしれません。） 

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
32
33
34
35
36
37
38
39
40
41
library(tidyr)
library(plotrix)
wage<-read.csv("wage.csv")
dm0 <- subset(wage, subset=性別=="男性", select=c(年,平均値等,年齢計))
d<-tidyr::spread(dm0,平均値等,年齢計)
dm<-d[,c("年","平均値","中位数","第１四分位数","第３四分位数")]
names(dm)<-c("year","mean","median","first_quartile","third_quartile")
dw0 <- subset(wage, subset=性別=="女性", select=c(年,平均値等,年齢計))
d<-tidyr::spread(dw0,平均値等,年齢計)
dw<-d[,c("年","平均値","中位数","第１四分位数","第３四分位数")]
names(dw)<-c("year","mean","median","first_quartile","third_quartile")
#png("wage01.png",width=1000,height=800)
par(mfrow=c(1,2))	
#男性
matplot(dm[,"year"],dm[,c("first_quartile","median","third_quartile")],	
type="o",ylim=c(160,415),pch=16,col=c("black","blue","black"),	
lty=c(2,1,2),lwd =c(1,2,1),cex = 2,xlab="year",ylab="千円",main="賃金の分布 (男性) データ：賃金構造基本統計調査")	
lines(dm[,"year"],dm[,c("mean")],col="red",lwd=2)	
points(dm[,"year"],dm[,c("mean")],col="red",cex = 2,pch=17)	
for (i in 1:nrow(dm))	{
segments(dm[,"year"][i],dm[,c("first_quartile")][i],dm[,"year"][i],dm[,c("third_quartile")][i])	
}	
boxed.labels(2007,350,"平均値",col="red",border=0)
boxed.labels(2007,312,"中央値",col="blue",border=0)
boxed.labels(2007,417,"第３四分位値",col="green",border=0)
boxed.labels(2007,240,"第１四分位値",col="green",border=0)
#女性
matplot(dw[,"year"],dw[,c("first_quartile","median","third_quartile")],	
type="o",ylim=c(160,415),pch=16,col=c("black","blue","black"),	
lty=c(2,1,2),lwd =c(1,2,1),cex = 2,xlab="year",ylab="千円",main="賃金の分布 (女性) データ：賃金構造基本統計調査")	
lines(dw[,"year"],dw[,c("mean")],col="red",lwd=2)	
points(dw[,"year"],dw[,c("mean")],col="red",cex = 2,pch=17)	
for (i in 1:nrow(dw))	{
segments(dw[,"year"][i],dw[,c("first_quartile")][i],dw[,"year"][i],dw[,c("third_quartile")][i])	
}	
boxed.labels(2007,235,"平均値",col="red",border=0)
boxed.labels(2007,215,"中央値",col="blue",border=0)
boxed.labels(2007,272,"第３四分位値",col="green",border=0)
boxed.labels(2007,175,"第１四分位値",col="green",border=0)
par(mfrow=c(1,1))	
#dev.off()
  • 平均値より中央値の方が「普通」の生活水準に近い。

1
2
3
4
5
6
7
8
9
10
11
12
13
#平均値と中央値の差を算出。
dm[,"mean-median"]<-dm[,"mean"]-dm[,"median"]
dw[,"mean-median"]<-dw[,"mean"]-dw[,"median"]
mat1<-t(as.matrix(dm[,-1]))
colnames(mat1)<-c(2001:2014)
mat2<-t(as.matrix(dw[,-1]))
colnames(mat2)<-c(2001:2014)
#賃金の単位を1000をかけて円にする
mat1<-mat1*1000;mat2<-mat2*1000
#表にする(2001,2005,2010,2011,2012,2013,2014)
library(knitr)
kable(mat1[,c("2001","2005","2010","2011","2012","2013","2014")])
kable(mat2[,c("2001","2005","2010","2011","2012","2013","2014")])
男性 (単位：円)
2001 2005 2010 2011 2012 2013 2014
mean 340700 337800 328300 328300 329000 326000 329600
median 307400 301900 291100 289100 288800 286600 289900
first_quartile 236100 230200 224000 222200 222000 219700 223200
third_quartile 408200 407600 393400 389800 392400 387200 392000
mean-median 33300 35900 37200 39200 40200 39400 39700
女性 (単位：円)
2001 2005 2010 2011 2012 2013 2014
mean 222400 222500 227600 231900 233100 232600 238000
median 203300 202800 207600 209900 212200 210400 214900
first_quartile 168000 162300 167900 169100 169800 169400 172800
third_quartile 253100 257100 263100 268400 268000 267700 272900
mean-median 19100 19700 20000 22000 20900 22200 23100

(参考)
平成27年２月４日に
毎月勤労統計調査　平成26年分結果速報が公表されました。

概況
【調査結果のポイント】
（前年比でみて）
・現金給与総額は４年ぶりの増加
一般労働者は２年連続の増加、パートタイム労働者は２年ぶりの増加
・所定外労働時間は５年連続の増加
・常用雇用は１１年連続の増加

賃金（一人平均）
平均月間現金給与総額は、前年比０.８％増の３１６,６９４円となった。
(中略)
実質賃金は、前年比２.５％減となった。