plot_lyを使った人口ピラミッド
temp## category gender population pop
## 1 0 ～ 5歳 male 266 266
## 2 5 ～ 9 male 272 272
## 3 10 ～ 14 male 285 285
## 4 15 ～ 19 male 307 307
## 5 20 ～ 24 male 321 321
## 6 25 ～ 29 male 332 332
## 7 30 ～ 34 male 370 370
## 8 35 ～ 39 male 419 419
## 9 40 ～ 44 male 495 495
## 10 45 ～ 49 male 441 441
## 11 50 ～ 54 male 404 404
## 12 55 ～ 59 male 375 375
## 13 60 ～ 64 male 411 411
## 14 65 ～ 69 male 477 477
## 15 70 ～ 74 male 356 356
## 16 75 ～ 79 male 282 282
## 17 80 ～ 84 male 204 204
## 18 85 ～ 89 male 109 109
## 19 90 ～ 94 male 35 35
## 20 95 ～ 99 male 7 7
## 21 100歳以上 male 1 1
## 22 0 ～ 5歳 female 252 -252
## 23 5 ～ 9 female 259 -259
## 24 10 ～ 14 female 272 -272
## 25 15 ～ 19 female 292 -292
## 26 20 ～ 24 female 302 -302
## 27 25 ～ 29 female 315 -315
## 28 30 ～ 34 female 358 -358
## 29 35 ～ 39 female 408 -408
## 30 40 ～ 44 female 483 -483
## 31 45 ～ 49 female 434 -434
## 32 50 ～ 54 female 403 -403
## 33 55 ～ 59 female 379 -379
## 34 60 ～ 64 female 426 -426
## 35 65 ～ 69 female 511 -511
## 36 70 ～ 74 female 410 -410
## 37 75 ～ 79 female 354 -354
## 38 80 ～ 84 female 302 -302
## 39 85 ～ 89 female 210 -210
## 40 90 ～ 94 female 106 -106
## 41 95 ～ 99 female 33 -33
## 42 100歳以上 female 6 -6plot_ly(temp, x = pop, y = category, color = gender, type = 'bar', orientation = 'h',
colors = c('navy','red')) %>%
layout( bargap = 0.3, barmode = 'overlay',
xaxis = list(title = "Population",
tickmode = 'array',
tickvals = c(-1000, -500, 0, 500, 1000)),
yaxis = list(title = ""))