組み込みProgrammerのチラシの裏

Gnuplot 帯グラフ、棒グラフ

| Comments

帯グラフ

band.gp

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
#!/usr/bin/env gnuplot

# 日本語対応
set encoding utf8
# 凡例
set key font "mplus-1p-medium.ttf"

set key invert reverse Left outside
set yrange [0:100]
set ylabel "% of total"
unset ytics
set grid y
set border 3
set style data histograms
set style histogram rowstacked
set style fill solid border -1
set boxwidth 0.75

set terminal png
set output "out.png"

# 総務省統計局 労働力長期時系列データを参照
# 産業別就業者数
$PROPORTION << EOD
1951 3622 1668 817  1137
1960 4436 1340 1242 1854 
1970 5094 886 1791 2417
1980 5536 577 1926 3033
1990 6249 451 2099 3699
2000 6446 326 1979 4141
2010 6298 255 1567 4476
2020 6676 213 1539 4924
EOD

plot \
  $PROPORTION using (100.*$3/$2):xtic(1) with histogram title "一次産業" lc rgb "0x4CAF50", \
  $PROPORTION using (100.*$4/$2) with histogram title "二次産業" lc rgb "0x81C784", \
  $PROPORTION using (100.*$5/$2) with histogram title "三次産業" lc rgb "0xC8E6C9"

graph

棒グラフ

bar.gp

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
#!/usr/bin/env gnuplot

set terminal png
set output "out.png"

set style fill solid border -1
set boxwidth 8

set yrange [0:]

# 総務省統計局 労働力長期時系列データを参照
# 産業別就業者数
$DATA << EOD
1951 3622
1960 4436
1970 5094
1980 5536
1990 6249
2000 6446
2010 6298
2020 6676
EOD

plot \
  $DATA using 1:2 with boxes notitle lc rgb "0x81C784"

graph

参考情報

Comments