The following is from year ago exactly: 2020-04-05. I am digging up old work and putting it on my new website. This was some of my very first independent work. Looking back at it now, it is painful to see how messy my work was. But I love reading my little comments because it reminds me how excited I would get when something would work! I saw a comment about feeling intimidated by StackOverflow. I followed the link and didn’t see anything too interesting/sippy, so I wonder if a comment was taken away. (I feel like I remember someone telling the OP not to say “Thank you” in their post.) Or if things that were intimidating a year ago don’t seem to even break the surface anymore. Sadly, I think it is that the post was modified after I linked to it.
Do all Germans wear their seatbelts?
Inspired by this Tweet: https://twitter.com/hspter/status/1134098154167496704
I laughed, but I did not think that this was possible. I imagined it was just playing into my acknowledged stereotype that Germany and Switzerland are impressively rule following and have a special relationship with their vehicles.
Did a quick Google search: rates of seat belt use Germany.
Found this: https://www.who.int/violence_injury_prevention/road_safety_status/2013/country_profiles/germany.pdf?ua=1
So a quick scan of the datasheet says that 98% of people in the front seat use seat belts. Seems pretty great, but then I wanted to know how it all compares.
So I decided to do a #чистый_четвер! (That’s a clean Thursday in Russian as a play off of #TidyTuesday)
My libraries:
library(tidyverse)## -- Attaching packages ------------------------------------------------------------------------------------- tidyverse 1.3.0 --## v ggplot2 3.2.1 v purrr 0.3.3
## v tibble 2.1.3 v dplyr 0.8.4
## v tidyr 1.0.2 v stringr 1.4.0
## v readr 1.3.1 v forcats 0.4.0## -- Conflicts ---------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(ggrepel)
library(jsonlite)##
## Attaching package: 'jsonlite'## The following object is masked from 'package:purrr':
##
## flattenGrab the JSON from the WHO site: (My first time getting a JSON independently!!!!)
Notes:
fromJSON(txt, simplifyVector = TRUE, simplifyDataFrame = simplifyVector, simplifyMatrix = simplifyVector, flatten = FALSE, …)
seatbelt_who <- fromJSON("https://apps.who.int/gho/athena/data/GHO/RS_212.json?filter=COUNTRY:*;SEATTYPE:*")Take a peak to make sure I imported correctly. (Note I set this following code chuck to eval = FALSE because the output was pages and pages long.)
str(seatbelt_who)Goodness that looks crazy. Seems like there are nested datasets. I’ll try the the simplifed Json to see if I can get started faster.
simple_sb <- fromJSON("https://apps.who.int/gho/athena/data/GHO/RS_212.json?profile=simple&filter=COUNTRY:*;SEATTYPE:*")Check that out.
str(simple_sb)## List of 2
## $ dimension:'data.frame': 6 obs. of 2 variables:
## ..$ label : chr [1:6] "GHO" "PUBLISHSTATE" "YEAR" "REGION" ...
## ..$ display: chr [1:6] "Indicator" "PUBLISH STATES" "Year" "WHO region" ...
## $ fact :'data.frame': 716 obs. of 3 variables:
## ..$ dim :'data.frame': 716 obs. of 6 variables:
## .. ..$ PUBLISHSTATE: chr [1:716] "Published" "Published" "Published" "Published" ...
## .. ..$ COUNTRY : chr [1:716] "Mauritius" "Serbia" "Ecuador" "Ghana" ...
## .. ..$ YEAR : chr [1:716] "2013" "2013" "2013" "2013" ...
## .. ..$ SEATTYPE : chr [1:716] "Rear seat" "Rear seat" "Rear seat" "Front seat" ...
## .. ..$ REGION : chr [1:716] "Africa" "Europe" "Americas" "Africa" ...
## .. ..$ GHO : chr [1:716] "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" ...
## ..$ Value : chr [1:716] "0.2" "3.1" "3.4" "4.9" ...
## ..$ Comments: chr [1:716] NA NA NA NA ...AHHH! I just want to do some stuff.
str(simple_sb$fact)## 'data.frame': 716 obs. of 3 variables:
## $ dim :'data.frame': 716 obs. of 6 variables:
## ..$ PUBLISHSTATE: chr "Published" "Published" "Published" "Published" ...
## ..$ COUNTRY : chr "Mauritius" "Serbia" "Ecuador" "Ghana" ...
## ..$ YEAR : chr "2013" "2013" "2013" "2013" ...
## ..$ SEATTYPE : chr "Rear seat" "Rear seat" "Rear seat" "Front seat" ...
## ..$ REGION : chr "Africa" "Europe" "Americas" "Africa" ...
## ..$ GHO : chr "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" ...
## $ Value : chr "0.2" "3.1" "3.4" "4.9" ...
## $ Comments: chr NA NA NA NA ...Omg that worked.
sb_facts <- simple_sb$fact
str(sb_facts)## 'data.frame': 716 obs. of 3 variables:
## $ dim :'data.frame': 716 obs. of 6 variables:
## ..$ PUBLISHSTATE: chr "Published" "Published" "Published" "Published" ...
## ..$ COUNTRY : chr "Mauritius" "Serbia" "Ecuador" "Ghana" ...
## ..$ YEAR : chr "2013" "2013" "2013" "2013" ...
## ..$ SEATTYPE : chr "Rear seat" "Rear seat" "Rear seat" "Front seat" ...
## ..$ REGION : chr "Africa" "Europe" "Americas" "Africa" ...
## ..$ GHO : chr "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" ...
## $ Value : chr "0.2" "3.1" "3.4" "4.9" ...
## $ Comments: chr NA NA NA NA ...Hyperventilating from excitment!!!
names(sb_facts)## [1] "dim" "Value" "Comments"Very confused because when I look at the dataframe it seems to have many columns but only these list and then the data are described as having 3 variables. I think I am missing something about how the data are organized. Gonna try to clean some of it up with janitor.
library(janitor)##
## Attaching package: 'janitor'## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.testclean_names(sb_facts)## dim.PUBLISHSTATE dim.COUNTRY
## 1 Published Mauritius
## 2 Published Serbia
## 3 Published Ecuador
## 4 Published Ghana
## 5 Published Malaysia
## 6 Published Mexico
## 7 Published Cyprus
## 8 Published Lebanon
## 9 Published Republic of Moldova
## 10 Published Ghana
## 11 Published Republic of Korea
## 12 Published India
## 13 Published Uruguay
## 14 Published Mexico
## 15 Published Turkey
## 16 Published China
## 17 Published Latvia
## 18 Published Brazil
## 19 Published Ecuador
## 20 Published Mongolia
## 21 Published Jordan
## 22 Published Turkey
## 23 Published Ecuador
## 24 Published Serbia
## 25 Published Uruguay
## 26 Published Uruguay
## 27 Published Hungary
## 28 Published Mexico
## 29 Published Mexico
## 30 Published Republic of Moldova
## 31 Published Uruguay
## 32 Published Mauritius
## 33 Published Republic of Moldova
## 34 Published Serbia
## 35 Published Slovenia
## 36 Published Japan
## 37 Published Serbia
## 38 Published Republic of Korea
## 39 Published Brazil
## 40 Published Ecuador
## 41 Published Malaysia
## 42 Published Philippines
## 43 Published Spain
## 44 Published Belize
## 45 Published Latvia
## 46 Published Republic of Korea
## 47 Published Cyprus
## 48 Published Cyprus
## 49 Published Belgium
## 50 Published Hungary
## 51 Published Republic of Korea
## 52 Published Malaysia
## 53 Published Hungary
## 54 Published Estonia
## 55 Published Spain
## 56 Published Canada
## 57 Published Spain
## 58 Published Spain
## 59 Published Slovenia
## 60 Published Mauritius
## 61 Published Estonia
## 62 Published Japan
## 63 Published Slovenia
## 64 Published Portugal
## 65 Published Canada
## 66 Published Canada
## 67 Published Canada
## 68 Published Netherlands
## 69 Published Netherlands
## 70 Published Netherlands
## 71 Published Mauritius
## 72 Published Japan
## 73 Published Japan
## 74 Published Afghanistan
## 75 Published Antigua and Barbuda
## 76 Published Armenia
## 77 Published Australia
## 78 Published Azerbaijan
## 79 Published Bahamas
## 80 Published Bangladesh
## 81 Published Barbados
## 82 Published Belarus
## 83 Published Belgium
## 84 Published Belize
## 85 Published Benin
## 86 Published Bhutan
## 87 Published Bolivia (Plurinational State of)
## 88 Published Botswana
## 89 Published Brazil
## 90 Published Bulgaria
## 91 Published Burkina Faso
## 92 Published Cabo Verde
## 93 Published Cambodia
## 94 Published Cameroon
## 95 Published Central African Republic
## 96 Published Chad
## 97 Published Colombia
## 98 Published Congo
## 99 Published Cook Islands
## 100 Published Côte d'Ivoire
## 101 Published Democratic Republic of the Congo
## 102 Published Djibouti
## 103 Published Dominica
## 104 Published Dominican Republic
## 105 Published El Salvador
## 106 Published Ethiopia
## 107 Published Fiji
## 108 Published Gabon
## 109 Published Gambia
## 110 Published Guinea
## 111 Published Guinea-Bissau
## 112 Published Guyana
## 113 Published Honduras
## 114 Published Indonesia
## 115 Published Iraq
## 116 Published Italy
## 117 Published Kazakhstan
## 118 Published Kenya
## 119 Published Kiribati
## 120 Published Kuwait
## 121 Published Kyrgyzstan
## 122 Published Lao People's Democratic Republic
## 123 Published Latvia
## 124 Published Lesotho
## 125 Published Liberia
## 126 Published Libya
## 127 Published Lithuania
## 128 Published Madagascar
## 129 Published Malawi
## 130 Published Maldives
## 131 Published Mali
## 132 Published Malta
## 133 Published Marshall Islands
## 134 Published Mauritania
## 135 Published Micronesia (Federated States of)
## 136 Published Monaco
## 137 Published Mozambique
## 138 Published Myanmar
## 139 Published Namibia
## 140 Published Nepal
## 141 Published Nicaragua
## 142 Published Niger
## 143 Published Pakistan
## 144 Published Palau
## 145 Published Papua New Guinea
## 146 Published Qatar
## 147 Published Romania
## 148 Published Rwanda
## 149 Published Saint Lucia
## 150 Published Saint Vincent and the Grenadines
## 151 Published Samoa
## 152 Published Sao Tome and Principe
## 153 Published Saudi Arabia
## 154 Published Senegal
## 155 Published Sierra Leone
## 156 Published Singapore
## 157 Published Slovakia
## 158 Published Solomon Islands
## 159 Published Somalia
## 160 Published Sri Lanka
## 161 Published Sudan
## 162 Published Eswatini
## 163 Published Switzerland
## 164 Published Tajikistan
## 165 Published Timor-Leste
## 166 Published Togo
## 167 Published Tonga
## 168 Published Tunisia
## 169 Published Turkmenistan
## 170 Published Uganda
## 171 Published United Arab Emirates
## 172 Published United Republic of Tanzania
## 173 Published Uzbekistan
## 174 Published Vanuatu
## 175 Published Viet Nam
## 176 Published Yemen
## 177 Published Zambia
## 178 Published Zimbabwe
## 179 Published Afghanistan
## 180 Published Antigua and Barbuda
## 181 Published Armenia
## 182 Published Azerbaijan
## 183 Published Bahamas
## 184 Published Bahrain
## 185 Published Bangladesh
## 186 Published Barbados
## 187 Published Belarus
## 188 Published Belize
## 189 Published Benin
## 190 Published Bhutan
## 191 Published Bolivia (Plurinational State of)
## 192 Published Botswana
## 193 Published Bulgaria
## 194 Published Burkina Faso
## 195 Published Cabo Verde
## 196 Published Cambodia
## 197 Published Cameroon
## 198 Published Central African Republic
## 199 Published Chad
## 200 Published China
## 201 Published Colombia
## 202 Published Congo
## 203 Published Cook Islands
## 204 Published Côte d'Ivoire
## 205 Published Democratic Republic of the Congo
## 206 Published Denmark
## 207 Published Djibouti
## 208 Published Dominica
## 209 Published Dominican Republic
## 210 Published El Salvador
## 211 Published Ethiopia
## 212 Published Fiji
## 213 Published Gabon
## 214 Published Gambia
## 215 Published Guinea
## 216 Published Guinea-Bissau
## 217 Published Guyana
## 218 Published Honduras
## 219 Published Iceland
## 220 Published Indonesia
## 221 Published Iraq
## 222 Published Jordan
## 223 Published Kazakhstan
## 224 Published Kenya
## 225 Published Kiribati
## 226 Published Kuwait
## 227 Published Kyrgyzstan
## 228 Published Lao People's Democratic Republic
## 229 Published Lebanon
## 230 Published Lesotho
## 231 Published Liberia
## 232 Published Libya
## 233 Published Lithuania
## 234 Published Madagascar
## 235 Published Malawi
## 236 Published Maldives
## 237 Published Mali
## 238 Published Malta
## 239 Published Marshall Islands
## 240 Published Mauritania
## 241 Published Micronesia (Federated States of)
## 242 Published Monaco
## 243 Published Mongolia
## 244 Published Mozambique
## 245 Published Myanmar
## 246 Published Nepal
## 247 Published Nicaragua
## 248 Published Niger
## 249 Published Oman
## 250 Published Pakistan
## 251 Published Palau
## 252 Published Papua New Guinea
## 253 Published Peru
## 254 Published Philippines
## 255 Published Qatar
## 256 Published Romania
## 257 Published Rwanda
## 258 Published Saint Lucia
## 259 Published Saint Vincent and the Grenadines
## 260 Published Samoa
## 261 Published Sao Tome and Principe
## 262 Published Saudi Arabia
## 263 Published Senegal
## 264 Published Sierra Leone
## 265 Published Singapore
## 266 Published Slovakia
## 267 Published Solomon Islands
## 268 Published Somalia
## 269 Published Sri Lanka
## 270 Published Sudan
## 271 Published Eswatini
## 272 Published Tajikistan
## 273 Published Timor-Leste
## 274 Published Togo
## 275 Published Tonga
## 276 Published Tunisia
## 277 Published Turkmenistan
## 278 Published Uganda
## 279 Published United Arab Emirates
## 280 Published United Republic of Tanzania
## 281 Published Uzbekistan
## 282 Published Vanuatu
## 283 Published Viet Nam
## 284 Published Yemen
## 285 Published Zambia
## 286 Published Zimbabwe
## 287 Published Afghanistan
## 288 Published Albania
## 289 Published Algeria
## 290 Published Antigua and Barbuda
## 291 Published Armenia
## 292 Published Azerbaijan
## 293 Published Bahamas
## 294 Published Bahrain
## 295 Published Bangladesh
## 296 Published Barbados
## 297 Published Belarus
## 298 Published Belgium
## 299 Published Belize
## 300 Published Benin
## 301 Published Bhutan
## 302 Published Bolivia (Plurinational State of)
## 303 Published Botswana
## 304 Published Bulgaria
## 305 Published Burkina Faso
## 306 Published Cabo Verde
## 307 Published Cambodia
## 308 Published Cameroon
## 309 Published Central African Republic
## 310 Published Chad
## 311 Published China
## 312 Published Colombia
## 313 Published Congo
## 314 Published Cook Islands
## 315 Published Côte d'Ivoire
## 316 Published Democratic Republic of the Congo
## 317 Published Djibouti
## 318 Published Dominica
## 319 Published Dominican Republic
## 320 Published Egypt
## 321 Published El Salvador
## 322 Published Ethiopia
## 323 Published Fiji
## 324 Published Gabon
## 325 Published Gambia
## 326 Published Georgia
## 327 Published Ghana
## 328 Published Guatemala
## 329 Published Guinea
## 330 Published Guinea-Bissau
## 331 Published Guyana
## 332 Published Honduras
## 333 Published Iceland
## 334 Published India
## 335 Published Indonesia
## 336 Published Iraq
## 337 Published Jordan
## 338 Published Kazakhstan
## 339 Published Kenya
## 340 Published Kiribati
## 341 Published Kuwait
## 342 Published Kyrgyzstan
## 343 Published Lao People's Democratic Republic
## 344 Published Lebanon
## 345 Published Lesotho
## 346 Published Liberia
## 347 Published Libya
## 348 Published Lithuania
## 349 Published Madagascar
## 350 Published Malawi
## 351 Published Maldives
## 352 Published Mali
## 353 Published Malta
## 354 Published Marshall Islands
## 355 Published Mauritania
## 356 Published Micronesia (Federated States of)
## 357 Published Monaco
## 358 Published Mongolia
## 359 Published Morocco
## 360 Published Mozambique
## 361 Published Myanmar
## 362 Published Nepal
## 363 Published Nicaragua
## 364 Published Niger
## 365 Published Norway
## 366 Published Oman
## 367 Published Pakistan
## 368 Published Palau
## 369 Published Papua New Guinea
## 370 Published Peru
## 371 Published Philippines
## 372 Published Qatar
## 373 Published Romania
## 374 Published Rwanda
## 375 Published Saint Lucia
## 376 Published Saint Vincent and the Grenadines
## 377 Published Samoa
## 378 Published Sao Tome and Principe
## 379 Published Saudi Arabia
## 380 Published Senegal
## 381 Published Sierra Leone
## 382 Published Singapore
## 383 Published Slovakia
## 384 Published Solomon Islands
## 385 Published Somalia
## 386 Published South Africa
## 387 Published Sri Lanka
## 388 Published Sudan
## 389 Published Suriname
## 390 Published Eswatini
## 391 Published Tajikistan
## 392 Published Thailand
## 393 Published Timor-Leste
## 394 Published Togo
## 395 Published Tonga
## 396 Published Trinidad and Tobago
## 397 Published Tunisia
## 398 Published Turkey
## 399 Published Turkmenistan
## 400 Published Uganda
## 401 Published United Arab Emirates
## 402 Published United Republic of Tanzania
## 403 Published Uzbekistan
## 404 Published Vanuatu
## 405 Published Viet Nam
## 406 Published Yemen
## 407 Published Zambia
## 408 Published Zimbabwe
## 409 Published Afghanistan
## 410 Published Albania
## 411 Published Algeria
## 412 Published Antigua and Barbuda
## 413 Published Armenia
## 414 Published Australia
## 415 Published Azerbaijan
## 416 Published Bahamas
## 417 Published Bahrain
## 418 Published Bangladesh
## 419 Published Barbados
## 420 Published Belarus
## 421 Published Belgium
## 422 Published Benin
## 423 Published Bhutan
## 424 Published Bolivia (Plurinational State of)
## 425 Published Bosnia and Herzegovina
## 426 Published Botswana
## 427 Published Brazil
## 428 Published Burkina Faso
## 429 Published Cabo Verde
## 430 Published Cambodia
## 431 Published Cameroon
## 432 Published Central African Republic
## 433 Published Chad
## 434 Published Chile
## 435 Published China
## 436 Published Colombia
## 437 Published Congo
## 438 Published Cook Islands
## 439 Published Costa Rica
## 440 Published Côte d'Ivoire
## 441 Published Cyprus
## 442 Published Czechia
## 443 Published Democratic Republic of the Congo
## 444 Published Denmark
## 445 Published Djibouti
## 446 Published Dominica
## 447 Published Dominican Republic
## 448 Published Egypt
## 449 Published El Salvador
## 450 Published Fiji
## 451 Published France
## 452 Published Gabon
## 453 Published Gambia
## 454 Published Georgia
## 455 Published Ghana
## 456 Published Guatemala
## 457 Published Guinea
## 458 Published Guinea-Bissau
## 459 Published Guyana
## 460 Published Honduras
## 461 Published Iceland
## 462 Published India
## 463 Published Indonesia
## 464 Published Iraq
## 465 Published Israel
## 466 Published Italy
## 467 Published Jamaica
## 468 Published Jordan
## 469 Published Kazakhstan
## 470 Published Kenya
## 471 Published Kiribati
## 472 Published Kuwait
## 473 Published Kyrgyzstan
## 474 Published Lao People's Democratic Republic
## 475 Published Latvia
## 476 Published Lebanon
## 477 Published Lesotho
## 478 Published Liberia
## 479 Published Libya
## 480 Published Lithuania
## 481 Published Madagascar
## 482 Published Malawi
## 483 Published Malaysia
## 484 Published Maldives
## 485 Published Mali
## 486 Published Malta
## 487 Published Marshall Islands
## 488 Published Mauritania
## 489 Published Micronesia (Federated States of)
## 490 Published Monaco
## 491 Published Mongolia
## 492 Published Morocco
## 493 Published Mozambique
## 494 Published Myanmar
## 495 Published Namibia
## 496 Published Nepal
## 497 Published Nicaragua
## 498 Published Niger
## 499 Published Oman
## 500 Published Pakistan
## 501 Published Palau
## 502 Published Panama
## 503 Published Papua New Guinea
## 504 Published Paraguay
## 505 Published Peru
## 506 Published Philippines
## 507 Published Qatar
## 508 Published Republic of Moldova
## 509 Published Romania
## 510 Published Russian Federation
## 511 Published Rwanda
## 512 Published Saint Lucia
## 513 Published Saint Vincent and the Grenadines
## 514 Published Samoa
## 515 Published Sao Tome and Principe
## 516 Published Saudi Arabia
## 517 Published Senegal
## 518 Published Sierra Leone
## 519 Published Singapore
## 520 Published Slovakia
## 521 Published Solomon Islands
## 522 Published Somalia
## 523 Published South Africa
## 524 Published Sri Lanka
## 525 Published Sudan
## 526 Published Suriname
## 527 Published Eswatini
## 528 Published Switzerland
## 529 Published Tajikistan
## 530 Published Thailand
## 531 Published Republic of North Macedonia
## 532 Published Timor-Leste
## 533 Published Togo
## 534 Published Tonga
## 535 Published Trinidad and Tobago
## 536 Published Tunisia
## 537 Published Turkey
## 538 Published Turkmenistan
## 539 Published Uganda
## 540 Published United Arab Emirates
## 541 Published United Republic of Tanzania
## 542 Published Uzbekistan
## 543 Published Vanuatu
## 544 Published Viet Nam
## 545 Published Yemen
## 546 Published Zambia
## 547 Published Zimbabwe
## 548 Published Norway
## 549 Published New Zealand
## 550 Published Ethiopia
## 551 Published Namibia
## 552 Published Andorra
## 553 Published Cuba
## 554 Published Eritrea
## 555 Published Iran (Islamic Republic of)
## 556 Published Italy
## 557 Published Nigeria
## 558 Published Panama
## 559 Published Republic of North Macedonia
## 560 Published Egypt
## 561 Published Chile
## 562 Published Angola
## 563 Published Albania
## 564 Published Bosnia and Herzegovina
## 565 Published Seychelles
## 566 Published Bahrain
## 567 Published Greece
## 568 Published Albania
## 569 Published Russian Federation
## 570 Published Bosnia and Herzegovina
## 571 Published India
## 572 Published Argentina
## 573 Published Egypt
## 574 Published Croatia
## 575 Published Seychelles
## 576 Published South Africa
## 577 Published South Africa
## 578 Published Argentina
## 579 Published Argentina
## 580 Published Jamaica
## 581 Published Seychelles
## 582 Published Montenegro
## 583 Published Argentina
## 584 Published Montenegro
## 585 Published Morocco
## 586 Published Croatia
## 587 Published Montenegro
## 588 Published San Marino
## 589 Published Bosnia and Herzegovina
## 590 Published Morocco
## 591 Published Seychelles
## 592 Published Eritrea
## 593 Published Iran (Islamic Republic of)
## 594 Published Nigeria
## 595 Published Jamaica
## 596 Published Costa Rica
## 597 Published Jamaica
## 598 Published Thailand
## 599 Published Namibia
## 600 Published Thailand
## 601 Published Poland
## 602 Published San Marino
## 603 Published Republic of North Macedonia
## 604 Published Eritrea
## 605 Published San Marino
## 606 Published Republic of North Macedonia
## 607 Published Luxembourg
## 608 Published Angola
## 609 Published Cuba
## 610 Published San Marino
## 611 Published Montenegro
## 612 Published Guatemala
## 613 Published Guatemala
## 614 Published Italy
## 615 Published Croatia
## 616 Published Austria
## 617 Published Paraguay
## 618 Published Costa Rica
## 619 Published Paraguay
## 620 Published Denmark
## 621 Published Andorra
## 622 Published Costa Rica
## 623 Published Croatia
## 624 Published Paraguay
## 625 Published Andorra
## 626 Published Russian Federation
## 627 Published United States of America
## 628 Published Andorra
## 629 Published Switzerland
## 630 Published Greece
## 631 Published Russian Federation
## 632 Published Greece
## 633 Published Israel
## 634 Published Greece
## 635 Published Chile
## 636 Published Portugal
## 637 Published Luxembourg
## 638 Published Luxembourg
## 639 Published Angola
## 640 Published Eritrea
## 641 Published Georgia
## 642 Published Suriname
## 643 Published Georgia
## 644 Published Suriname
## 645 Published Czechia
## 646 Published Bulgaria
## 647 Published Poland
## 648 Published Luxembourg
## 649 Published Denmark
## 650 Published Chile
## 651 Published Netherlands
## 652 Published Poland
## 653 Published Poland
## 654 Published United States of America
## 655 Published Sweden
## 656 Published Slovenia
## 657 Published Peru
## 658 Published Cuba
## 659 Published Iran (Islamic Republic of)
## 660 Published Austria
## 661 Published Finland
## 662 Published Austria
## 663 Published Hungary
## 664 Published United States of America
## 665 Published Austria
## 666 Published Iceland
## 667 Published Nigeria
## 668 Published United States of America
## 669 Published Nigeria
## 670 Published France
## 671 Published Finland
## 672 Published United Kingdom of Great Britain and Northern Ireland
## 673 Published Finland
## 674 Published Ireland
## 675 Published Algeria
## 676 Published Cuba
## 677 Published Panama
## 678 Published Algeria
## 679 Published Angola
## 680 Published Panama
## 681 Published New Zealand
## 682 Published United Kingdom of Great Britain and Northern Ireland
## 683 Published Finland
## 684 Published Switzerland
## 685 Published Iran (Islamic Republic of)
## 686 Published Ireland
## 687 Published Ireland
## 688 Published Ireland
## 689 Published Norway
## 690 Published Trinidad and Tobago
## 691 Published Czechia
## 692 Published Estonia
## 693 Published Israel
## 694 Published Trinidad and Tobago
## 695 Published Estonia
## 696 Published United Kingdom of Great Britain and Northern Ireland
## 697 Published New Zealand
## 698 Published Portugal
## 699 Published Australia
## 700 Published New Zealand
## 701 Published Portugal
## 702 Published Norway
## 703 Published Czechia
## 704 Published Germany
## 705 Published Israel
## 706 Published Oman
## 707 Published Australia
## 708 Published Germany
## 709 Published Germany
## 710 Published Sweden
## 711 Published Sweden
## 712 Published Germany
## 713 Published Sweden
## 714 Published United Kingdom of Great Britain and Northern Ireland
## 715 Published France
## 716 Published France
## dim.YEAR dim.SEATTYPE dim.REGION dim.GHO
## 1 2013 Rear seat Africa Seat-belt wearing rate (%)
## 2 2013 Rear seat Europe Seat-belt wearing rate (%)
## 3 2013 Rear seat Americas Seat-belt wearing rate (%)
## 4 2013 Front seat Africa Seat-belt wearing rate (%)
## 5 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 6 2013 Rear seat Americas Seat-belt wearing rate (%)
## 7 2013 Rear seat Europe Seat-belt wearing rate (%)
## 8 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 9 2013 Rear seat Europe Seat-belt wearing rate (%)
## 10 2013 Drivers only Africa Seat-belt wearing rate (%)
## 11 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 12 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 13 2013 Rear seat Americas Seat-belt wearing rate (%)
## 14 2013 Front seat Americas Seat-belt wearing rate (%)
## 15 2013 Front seat Europe Seat-belt wearing rate (%)
## 16 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 17 2013 Rear seat Europe Seat-belt wearing rate (%)
## 18 2013 Rear seat Americas Seat-belt wearing rate (%)
## 19 2013 Front seat Americas Seat-belt wearing rate (%)
## 20 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 21 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 22 2013 Drivers only Europe Seat-belt wearing rate (%)
## 23 2013 All occupants Americas Seat-belt wearing rate (%)
## 24 2013 All occupants Europe Seat-belt wearing rate (%)
## 25 2013 Front seat Americas Seat-belt wearing rate (%)
## 26 2013 All occupants Americas Seat-belt wearing rate (%)
## 27 2013 Rear seat Europe Seat-belt wearing rate (%)
## 28 2013 Drivers only Americas Seat-belt wearing rate (%)
## 29 2013 All occupants Americas Seat-belt wearing rate (%)
## 30 2013 Front seat Europe Seat-belt wearing rate (%)
## 31 2013 Drivers only Americas Seat-belt wearing rate (%)
## 32 2013 All occupants Africa Seat-belt wearing rate (%)
## 33 2013 Drivers only Europe Seat-belt wearing rate (%)
## 34 2013 Front seat Europe Seat-belt wearing rate (%)
## 35 2013 Rear seat Europe Seat-belt wearing rate (%)
## 36 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 37 2013 Drivers only Europe Seat-belt wearing rate (%)
## 38 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 39 2013 Front seat Americas Seat-belt wearing rate (%)
## 40 2013 Drivers only Americas Seat-belt wearing rate (%)
## 41 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 42 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 43 2013 Rear seat Europe Seat-belt wearing rate (%)
## 44 2013 All occupants Americas Seat-belt wearing rate (%)
## 45 2013 Front seat Europe Seat-belt wearing rate (%)
## 46 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 47 2013 Drivers only Europe Seat-belt wearing rate (%)
## 48 2013 Front seat Europe Seat-belt wearing rate (%)
## 49 2013 Front seat Europe Seat-belt wearing rate (%)
## 50 2013 Drivers only Europe Seat-belt wearing rate (%)
## 51 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 52 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 53 2013 Front seat Europe Seat-belt wearing rate (%)
## 54 2013 Rear seat Europe Seat-belt wearing rate (%)
## 55 2013 All occupants Europe Seat-belt wearing rate (%)
## 56 2013 Rear seat Americas Seat-belt wearing rate (%)
## 57 2013 Drivers only Europe Seat-belt wearing rate (%)
## 58 2013 Front seat Europe Seat-belt wearing rate (%)
## 59 2013 Drivers only Europe Seat-belt wearing rate (%)
## 60 2013 Drivers only Africa Seat-belt wearing rate (%)
## 61 2013 Drivers only Europe Seat-belt wearing rate (%)
## 62 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 63 2013 Front seat Europe Seat-belt wearing rate (%)
## 64 2013 All occupants Europe Seat-belt wearing rate (%)
## 65 2013 All occupants Americas Seat-belt wearing rate (%)
## 66 2013 Front seat Americas Seat-belt wearing rate (%)
## 67 2013 Drivers only Americas Seat-belt wearing rate (%)
## 68 2013 All occupants Europe Seat-belt wearing rate (%)
## 69 2013 Front seat Europe Seat-belt wearing rate (%)
## 70 2013 Drivers only Europe Seat-belt wearing rate (%)
## 71 2013 Front seat Africa Seat-belt wearing rate (%)
## 72 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 73 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 74 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 75 2013 Drivers only Americas Seat-belt wearing rate (%)
## 76 2013 Drivers only Europe Seat-belt wearing rate (%)
## 77 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 78 2013 Drivers only Europe Seat-belt wearing rate (%)
## 79 2013 Drivers only Americas Seat-belt wearing rate (%)
## 80 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 81 2013 Drivers only Americas Seat-belt wearing rate (%)
## 82 2013 Drivers only Europe Seat-belt wearing rate (%)
## 83 2013 Drivers only Europe Seat-belt wearing rate (%)
## 84 2013 Drivers only Americas Seat-belt wearing rate (%)
## 85 2013 Drivers only Africa Seat-belt wearing rate (%)
## 86 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 87 2013 Drivers only Americas Seat-belt wearing rate (%)
## 88 2013 Drivers only Africa Seat-belt wearing rate (%)
## 89 2013 Drivers only Americas Seat-belt wearing rate (%)
## 90 2013 Drivers only Europe Seat-belt wearing rate (%)
## 91 2013 Drivers only Africa Seat-belt wearing rate (%)
## 92 2013 Drivers only Africa Seat-belt wearing rate (%)
## 93 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 94 2013 Drivers only Africa Seat-belt wearing rate (%)
## 95 2013 Drivers only Africa Seat-belt wearing rate (%)
## 96 2013 Drivers only Africa Seat-belt wearing rate (%)
## 97 2013 Drivers only Americas Seat-belt wearing rate (%)
## 98 2013 Drivers only Africa Seat-belt wearing rate (%)
## 99 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 100 2013 Drivers only Africa Seat-belt wearing rate (%)
## 101 2013 Drivers only Africa Seat-belt wearing rate (%)
## 102 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 103 2013 Drivers only Americas Seat-belt wearing rate (%)
## 104 2013 Drivers only Americas Seat-belt wearing rate (%)
## 105 2013 Drivers only Americas Seat-belt wearing rate (%)
## 106 2013 Drivers only Africa Seat-belt wearing rate (%)
## 107 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 108 2013 Drivers only Africa Seat-belt wearing rate (%)
## 109 2013 Drivers only Africa Seat-belt wearing rate (%)
## 110 2013 Drivers only Africa Seat-belt wearing rate (%)
## 111 2013 Drivers only Africa Seat-belt wearing rate (%)
## 112 2013 Drivers only Americas Seat-belt wearing rate (%)
## 113 2013 Drivers only Americas Seat-belt wearing rate (%)
## 114 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 115 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 116 2013 Drivers only Europe Seat-belt wearing rate (%)
## 117 2013 Drivers only Europe Seat-belt wearing rate (%)
## 118 2013 Drivers only Africa Seat-belt wearing rate (%)
## 119 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 120 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 121 2013 Drivers only Europe Seat-belt wearing rate (%)
## 122 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 123 2013 Drivers only Europe Seat-belt wearing rate (%)
## 124 2013 Drivers only Africa Seat-belt wearing rate (%)
## 125 2013 Drivers only Africa Seat-belt wearing rate (%)
## 126 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 127 2013 Drivers only Europe Seat-belt wearing rate (%)
## 128 2013 Drivers only Africa Seat-belt wearing rate (%)
## 129 2013 Drivers only Africa Seat-belt wearing rate (%)
## 130 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 131 2013 Drivers only Africa Seat-belt wearing rate (%)
## 132 2013 Drivers only Europe Seat-belt wearing rate (%)
## 133 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 134 2013 Drivers only Africa Seat-belt wearing rate (%)
## 135 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 136 2013 Drivers only Europe Seat-belt wearing rate (%)
## 137 2013 Drivers only Africa Seat-belt wearing rate (%)
## 138 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 139 2013 Drivers only Africa Seat-belt wearing rate (%)
## 140 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 141 2013 Drivers only Americas Seat-belt wearing rate (%)
## 142 2013 Drivers only Africa Seat-belt wearing rate (%)
## 143 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 144 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 145 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 146 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 147 2013 Drivers only Europe Seat-belt wearing rate (%)
## 148 2013 Drivers only Africa Seat-belt wearing rate (%)
## 149 2013 Drivers only Americas Seat-belt wearing rate (%)
## 150 2013 Drivers only Americas Seat-belt wearing rate (%)
## 151 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 152 2013 Drivers only Africa Seat-belt wearing rate (%)
## 153 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 154 2013 Drivers only Africa Seat-belt wearing rate (%)
## 155 2013 Drivers only Africa Seat-belt wearing rate (%)
## 156 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 157 2013 Drivers only Europe Seat-belt wearing rate (%)
## 158 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 159 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 160 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 161 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 162 2013 Drivers only Africa Seat-belt wearing rate (%)
## 163 2013 Drivers only Europe Seat-belt wearing rate (%)
## 164 2013 Drivers only Europe Seat-belt wearing rate (%)
## 165 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 166 2013 Drivers only Africa Seat-belt wearing rate (%)
## 167 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 168 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 169 2013 Drivers only Europe Seat-belt wearing rate (%)
## 170 2013 Drivers only Africa Seat-belt wearing rate (%)
## 171 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 172 2013 Drivers only Africa Seat-belt wearing rate (%)
## 173 2013 Drivers only Europe Seat-belt wearing rate (%)
## 174 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 175 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 176 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 177 2013 Drivers only Africa Seat-belt wearing rate (%)
## 178 2013 Drivers only Africa Seat-belt wearing rate (%)
## 179 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 180 2013 Front seat Americas Seat-belt wearing rate (%)
## 181 2013 Front seat Europe Seat-belt wearing rate (%)
## 182 2013 Front seat Europe Seat-belt wearing rate (%)
## 183 2013 Front seat Americas Seat-belt wearing rate (%)
## 184 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 185 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 186 2013 Front seat Americas Seat-belt wearing rate (%)
## 187 2013 Front seat Europe Seat-belt wearing rate (%)
## 188 2013 Front seat Americas Seat-belt wearing rate (%)
## 189 2013 Front seat Africa Seat-belt wearing rate (%)
## 190 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 191 2013 Front seat Americas Seat-belt wearing rate (%)
## 192 2013 Front seat Africa Seat-belt wearing rate (%)
## 193 2013 Front seat Europe Seat-belt wearing rate (%)
## 194 2013 Front seat Africa Seat-belt wearing rate (%)
## 195 2013 Front seat Africa Seat-belt wearing rate (%)
## 196 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 197 2013 Front seat Africa Seat-belt wearing rate (%)
## 198 2013 Front seat Africa Seat-belt wearing rate (%)
## 199 2013 Front seat Africa Seat-belt wearing rate (%)
## 200 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 201 2013 Front seat Americas Seat-belt wearing rate (%)
## 202 2013 Front seat Africa Seat-belt wearing rate (%)
## 203 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 204 2013 Front seat Africa Seat-belt wearing rate (%)
## 205 2013 Front seat Africa Seat-belt wearing rate (%)
## 206 2013 Front seat Europe Seat-belt wearing rate (%)
## 207 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 208 2013 Front seat Americas Seat-belt wearing rate (%)
## 209 2013 Front seat Americas Seat-belt wearing rate (%)
## 210 2013 Front seat Americas Seat-belt wearing rate (%)
## 211 2013 Front seat Africa Seat-belt wearing rate (%)
## 212 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 213 2013 Front seat Africa Seat-belt wearing rate (%)
## 214 2013 Front seat Africa Seat-belt wearing rate (%)
## 215 2013 Front seat Africa Seat-belt wearing rate (%)
## 216 2013 Front seat Africa Seat-belt wearing rate (%)
## 217 2013 Front seat Americas Seat-belt wearing rate (%)
## 218 2013 Front seat Americas Seat-belt wearing rate (%)
## 219 2013 Front seat Europe Seat-belt wearing rate (%)
## 220 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 221 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 222 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 223 2013 Front seat Europe Seat-belt wearing rate (%)
## 224 2013 Front seat Africa Seat-belt wearing rate (%)
## 225 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 226 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 227 2013 Front seat Europe Seat-belt wearing rate (%)
## 228 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 229 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 230 2013 Front seat Africa Seat-belt wearing rate (%)
## 231 2013 Front seat Africa Seat-belt wearing rate (%)
## 232 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 233 2013 Front seat Europe Seat-belt wearing rate (%)
## 234 2013 Front seat Africa Seat-belt wearing rate (%)
## 235 2013 Front seat Africa Seat-belt wearing rate (%)
## 236 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 237 2013 Front seat Africa Seat-belt wearing rate (%)
## 238 2013 Front seat Europe Seat-belt wearing rate (%)
## 239 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 240 2013 Front seat Africa Seat-belt wearing rate (%)
## 241 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 242 2013 Front seat Europe Seat-belt wearing rate (%)
## 243 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 244 2013 Front seat Africa Seat-belt wearing rate (%)
## 245 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 246 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 247 2013 Front seat Americas Seat-belt wearing rate (%)
## 248 2013 Front seat Africa Seat-belt wearing rate (%)
## 249 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 250 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 251 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 252 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 253 2013 Front seat Americas Seat-belt wearing rate (%)
## 254 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 255 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 256 2013 Front seat Europe Seat-belt wearing rate (%)
## 257 2013 Front seat Africa Seat-belt wearing rate (%)
## 258 2013 Front seat Americas Seat-belt wearing rate (%)
## 259 2013 Front seat Americas Seat-belt wearing rate (%)
## 260 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 261 2013 Front seat Africa Seat-belt wearing rate (%)
## 262 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 263 2013 Front seat Africa Seat-belt wearing rate (%)
## 264 2013 Front seat Africa Seat-belt wearing rate (%)
## 265 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 266 2013 Front seat Europe Seat-belt wearing rate (%)
## 267 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 268 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 269 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 270 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 271 2013 Front seat Africa Seat-belt wearing rate (%)
## 272 2013 Front seat Europe Seat-belt wearing rate (%)
## 273 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 274 2013 Front seat Africa Seat-belt wearing rate (%)
## 275 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 276 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 277 2013 Front seat Europe Seat-belt wearing rate (%)
## 278 2013 Front seat Africa Seat-belt wearing rate (%)
## 279 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 280 2013 Front seat Africa Seat-belt wearing rate (%)
## 281 2013 Front seat Europe Seat-belt wearing rate (%)
## 282 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 283 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 284 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 285 2013 Front seat Africa Seat-belt wearing rate (%)
## 286 2013 Front seat Africa Seat-belt wearing rate (%)
## 287 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 288 2013 Rear seat Europe Seat-belt wearing rate (%)
## 289 2013 Rear seat Africa Seat-belt wearing rate (%)
## 290 2013 Rear seat Americas Seat-belt wearing rate (%)
## 291 2013 Rear seat Europe Seat-belt wearing rate (%)
## 292 2013 Rear seat Europe Seat-belt wearing rate (%)
## 293 2013 Rear seat Americas Seat-belt wearing rate (%)
## 294 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 295 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 296 2013 Rear seat Americas Seat-belt wearing rate (%)
## 297 2013 Rear seat Europe Seat-belt wearing rate (%)
## 298 2013 Rear seat Europe Seat-belt wearing rate (%)
## 299 2013 Rear seat Americas Seat-belt wearing rate (%)
## 300 2013 Rear seat Africa Seat-belt wearing rate (%)
## 301 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 302 2013 Rear seat Americas Seat-belt wearing rate (%)
## 303 2013 Rear seat Africa Seat-belt wearing rate (%)
## 304 2013 Rear seat Europe Seat-belt wearing rate (%)
## 305 2013 Rear seat Africa Seat-belt wearing rate (%)
## 306 2013 Rear seat Africa Seat-belt wearing rate (%)
## 307 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 308 2013 Rear seat Africa Seat-belt wearing rate (%)
## 309 2013 Rear seat Africa Seat-belt wearing rate (%)
## 310 2013 Rear seat Africa Seat-belt wearing rate (%)
## 311 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 312 2013 Rear seat Americas Seat-belt wearing rate (%)
## 313 2013 Rear seat Africa Seat-belt wearing rate (%)
## 314 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 315 2013 Rear seat Africa Seat-belt wearing rate (%)
## 316 2013 Rear seat Africa Seat-belt wearing rate (%)
## 317 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 318 2013 Rear seat Americas Seat-belt wearing rate (%)
## 319 2013 Rear seat Americas Seat-belt wearing rate (%)
## 320 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 321 2013 Rear seat Americas Seat-belt wearing rate (%)
## 322 2013 Rear seat Africa Seat-belt wearing rate (%)
## 323 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 324 2013 Rear seat Africa Seat-belt wearing rate (%)
## 325 2013 Rear seat Africa Seat-belt wearing rate (%)
## 326 2013 Rear seat Europe Seat-belt wearing rate (%)
## 327 2013 Rear seat Africa Seat-belt wearing rate (%)
## 328 2013 Rear seat Americas Seat-belt wearing rate (%)
## 329 2013 Rear seat Africa Seat-belt wearing rate (%)
## 330 2013 Rear seat Africa Seat-belt wearing rate (%)
## 331 2013 Rear seat Americas Seat-belt wearing rate (%)
## 332 2013 Rear seat Americas Seat-belt wearing rate (%)
## 333 2013 Rear seat Europe Seat-belt wearing rate (%)
## 334 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 335 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 336 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 337 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 338 2013 Rear seat Europe Seat-belt wearing rate (%)
## 339 2013 Rear seat Africa Seat-belt wearing rate (%)
## 340 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 341 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 342 2013 Rear seat Europe Seat-belt wearing rate (%)
## 343 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 344 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 345 2013 Rear seat Africa Seat-belt wearing rate (%)
## 346 2013 Rear seat Africa Seat-belt wearing rate (%)
## 347 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 348 2013 Rear seat Europe Seat-belt wearing rate (%)
## 349 2013 Rear seat Africa Seat-belt wearing rate (%)
## 350 2013 Rear seat Africa Seat-belt wearing rate (%)
## 351 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 352 2013 Rear seat Africa Seat-belt wearing rate (%)
## 353 2013 Rear seat Europe Seat-belt wearing rate (%)
## 354 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 355 2013 Rear seat Africa Seat-belt wearing rate (%)
## 356 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 357 2013 Rear seat Europe Seat-belt wearing rate (%)
## 358 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 359 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 360 2013 Rear seat Africa Seat-belt wearing rate (%)
## 361 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 362 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 363 2013 Rear seat Americas Seat-belt wearing rate (%)
## 364 2013 Rear seat Africa Seat-belt wearing rate (%)
## 365 2013 Rear seat Europe Seat-belt wearing rate (%)
## 366 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 367 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 368 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 369 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 370 2013 Rear seat Americas Seat-belt wearing rate (%)
## 371 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 372 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 373 2013 Rear seat Europe Seat-belt wearing rate (%)
## 374 2013 Rear seat Africa Seat-belt wearing rate (%)
## 375 2013 Rear seat Americas Seat-belt wearing rate (%)
## 376 2013 Rear seat Americas Seat-belt wearing rate (%)
## 377 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 378 2013 Rear seat Africa Seat-belt wearing rate (%)
## 379 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 380 2013 Rear seat Africa Seat-belt wearing rate (%)
## 381 2013 Rear seat Africa Seat-belt wearing rate (%)
## 382 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 383 2013 Rear seat Europe Seat-belt wearing rate (%)
## 384 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 385 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 386 2013 Rear seat Africa Seat-belt wearing rate (%)
## 387 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 388 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 389 2013 Rear seat Americas Seat-belt wearing rate (%)
## 390 2013 Rear seat Africa Seat-belt wearing rate (%)
## 391 2013 Rear seat Europe Seat-belt wearing rate (%)
## 392 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 393 2013 Rear seat South-East Asia Seat-belt wearing rate (%)
## 394 2013 Rear seat Africa Seat-belt wearing rate (%)
## 395 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 396 2013 Rear seat Americas Seat-belt wearing rate (%)
## 397 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 398 2013 Rear seat Europe Seat-belt wearing rate (%)
## 399 2013 Rear seat Europe Seat-belt wearing rate (%)
## 400 2013 Rear seat Africa Seat-belt wearing rate (%)
## 401 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 402 2013 Rear seat Africa Seat-belt wearing rate (%)
## 403 2013 Rear seat Europe Seat-belt wearing rate (%)
## 404 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 405 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 406 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 407 2013 Rear seat Africa Seat-belt wearing rate (%)
## 408 2013 Rear seat Africa Seat-belt wearing rate (%)
## 409 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 410 2013 All occupants Europe Seat-belt wearing rate (%)
## 411 2013 All occupants Africa Seat-belt wearing rate (%)
## 412 2013 All occupants Americas Seat-belt wearing rate (%)
## 413 2013 All occupants Europe Seat-belt wearing rate (%)
## 414 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 415 2013 All occupants Europe Seat-belt wearing rate (%)
## 416 2013 All occupants Americas Seat-belt wearing rate (%)
## 417 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 418 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 419 2013 All occupants Americas Seat-belt wearing rate (%)
## 420 2013 All occupants Europe Seat-belt wearing rate (%)
## 421 2013 All occupants Europe Seat-belt wearing rate (%)
## 422 2013 All occupants Africa Seat-belt wearing rate (%)
## 423 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 424 2013 All occupants Americas Seat-belt wearing rate (%)
## 425 2013 All occupants Europe Seat-belt wearing rate (%)
## 426 2013 All occupants Africa Seat-belt wearing rate (%)
## 427 2013 All occupants Americas Seat-belt wearing rate (%)
## 428 2013 All occupants Africa Seat-belt wearing rate (%)
## 429 2013 All occupants Africa Seat-belt wearing rate (%)
## 430 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 431 2013 All occupants Africa Seat-belt wearing rate (%)
## 432 2013 All occupants Africa Seat-belt wearing rate (%)
## 433 2013 All occupants Africa Seat-belt wearing rate (%)
## 434 2013 All occupants Americas Seat-belt wearing rate (%)
## 435 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 436 2013 All occupants Americas Seat-belt wearing rate (%)
## 437 2013 All occupants Africa Seat-belt wearing rate (%)
## 438 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 439 2013 All occupants Americas Seat-belt wearing rate (%)
## 440 2013 All occupants Africa Seat-belt wearing rate (%)
## 441 2013 All occupants Europe Seat-belt wearing rate (%)
## 442 2013 All occupants Europe Seat-belt wearing rate (%)
## 443 2013 All occupants Africa Seat-belt wearing rate (%)
## 444 2013 All occupants Europe Seat-belt wearing rate (%)
## 445 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 446 2013 All occupants Americas Seat-belt wearing rate (%)
## 447 2013 All occupants Americas Seat-belt wearing rate (%)
## 448 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 449 2013 All occupants Americas Seat-belt wearing rate (%)
## 450 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 451 2013 All occupants Europe Seat-belt wearing rate (%)
## 452 2013 All occupants Africa Seat-belt wearing rate (%)
## 453 2013 All occupants Africa Seat-belt wearing rate (%)
## 454 2013 All occupants Europe Seat-belt wearing rate (%)
## 455 2013 All occupants Africa Seat-belt wearing rate (%)
## 456 2013 All occupants Americas Seat-belt wearing rate (%)
## 457 2013 All occupants Africa Seat-belt wearing rate (%)
## 458 2013 All occupants Africa Seat-belt wearing rate (%)
## 459 2013 All occupants Americas Seat-belt wearing rate (%)
## 460 2013 All occupants Americas Seat-belt wearing rate (%)
## 461 2013 All occupants Europe Seat-belt wearing rate (%)
## 462 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 463 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 464 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 465 2013 All occupants Europe Seat-belt wearing rate (%)
## 466 2013 All occupants Europe Seat-belt wearing rate (%)
## 467 2013 All occupants Americas Seat-belt wearing rate (%)
## 468 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 469 2013 All occupants Europe Seat-belt wearing rate (%)
## 470 2013 All occupants Africa Seat-belt wearing rate (%)
## 471 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 472 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 473 2013 All occupants Europe Seat-belt wearing rate (%)
## 474 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 475 2013 All occupants Europe Seat-belt wearing rate (%)
## 476 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 477 2013 All occupants Africa Seat-belt wearing rate (%)
## 478 2013 All occupants Africa Seat-belt wearing rate (%)
## 479 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 480 2013 All occupants Europe Seat-belt wearing rate (%)
## 481 2013 All occupants Africa Seat-belt wearing rate (%)
## 482 2013 All occupants Africa Seat-belt wearing rate (%)
## 483 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 484 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 485 2013 All occupants Africa Seat-belt wearing rate (%)
## 486 2013 All occupants Europe Seat-belt wearing rate (%)
## 487 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 488 2013 All occupants Africa Seat-belt wearing rate (%)
## 489 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 490 2013 All occupants Europe Seat-belt wearing rate (%)
## 491 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 492 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 493 2013 All occupants Africa Seat-belt wearing rate (%)
## 494 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 495 2013 All occupants Africa Seat-belt wearing rate (%)
## 496 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 497 2013 All occupants Americas Seat-belt wearing rate (%)
## 498 2013 All occupants Africa Seat-belt wearing rate (%)
## 499 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 500 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 501 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 502 2013 All occupants Americas Seat-belt wearing rate (%)
## 503 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 504 2013 All occupants Americas Seat-belt wearing rate (%)
## 505 2013 All occupants Americas Seat-belt wearing rate (%)
## 506 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 507 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 508 2013 All occupants Europe Seat-belt wearing rate (%)
## 509 2013 All occupants Europe Seat-belt wearing rate (%)
## 510 2013 All occupants Europe Seat-belt wearing rate (%)
## 511 2013 All occupants Africa Seat-belt wearing rate (%)
## 512 2013 All occupants Americas Seat-belt wearing rate (%)
## 513 2013 All occupants Americas Seat-belt wearing rate (%)
## 514 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 515 2013 All occupants Africa Seat-belt wearing rate (%)
## 516 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 517 2013 All occupants Africa Seat-belt wearing rate (%)
## 518 2013 All occupants Africa Seat-belt wearing rate (%)
## 519 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 520 2013 All occupants Europe Seat-belt wearing rate (%)
## 521 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 522 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 523 2013 All occupants Africa Seat-belt wearing rate (%)
## 524 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 525 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 526 2013 All occupants Americas Seat-belt wearing rate (%)
## 527 2013 All occupants Africa Seat-belt wearing rate (%)
## 528 2013 All occupants Europe Seat-belt wearing rate (%)
## 529 2013 All occupants Europe Seat-belt wearing rate (%)
## 530 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 531 2013 All occupants Europe Seat-belt wearing rate (%)
## 532 2013 All occupants South-East Asia Seat-belt wearing rate (%)
## 533 2013 All occupants Africa Seat-belt wearing rate (%)
## 534 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 535 2013 All occupants Americas Seat-belt wearing rate (%)
## 536 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 537 2013 All occupants Europe Seat-belt wearing rate (%)
## 538 2013 All occupants Europe Seat-belt wearing rate (%)
## 539 2013 All occupants Africa Seat-belt wearing rate (%)
## 540 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 541 2013 All occupants Africa Seat-belt wearing rate (%)
## 542 2013 All occupants Europe Seat-belt wearing rate (%)
## 543 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 544 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 545 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 546 2013 All occupants Africa Seat-belt wearing rate (%)
## 547 2013 All occupants Africa Seat-belt wearing rate (%)
## 548 2013 All occupants Europe Seat-belt wearing rate (%)
## 549 2013 Drivers only Western Pacific Seat-belt wearing rate (%)
## 550 2013 All occupants Africa Seat-belt wearing rate (%)
## 551 2013 Rear seat Africa Seat-belt wearing rate (%)
## 552 2013 Rear seat Europe Seat-belt wearing rate (%)
## 553 2013 Rear seat Americas Seat-belt wearing rate (%)
## 554 2013 Rear seat Africa Seat-belt wearing rate (%)
## 555 2013 Rear seat Eastern Mediterranean Seat-belt wearing rate (%)
## 556 2013 Rear seat Europe Seat-belt wearing rate (%)
## 557 2013 Rear seat Africa Seat-belt wearing rate (%)
## 558 2013 Rear seat Americas Seat-belt wearing rate (%)
## 559 2013 Rear seat Europe Seat-belt wearing rate (%)
## 560 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 561 2013 Rear seat Americas Seat-belt wearing rate (%)
## 562 2013 Rear seat Africa Seat-belt wearing rate (%)
## 563 2013 Front seat Europe Seat-belt wearing rate (%)
## 564 2013 Front seat Europe Seat-belt wearing rate (%)
## 565 2013 Rear seat Africa Seat-belt wearing rate (%)
## 566 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 567 2013 Rear seat Europe Seat-belt wearing rate (%)
## 568 2013 Drivers only Europe Seat-belt wearing rate (%)
## 569 2013 Rear seat Europe Seat-belt wearing rate (%)
## 570 2013 Drivers only Europe Seat-belt wearing rate (%)
## 571 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 572 2013 Rear seat Americas Seat-belt wearing rate (%)
## 573 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 574 2013 Rear seat Europe Seat-belt wearing rate (%)
## 575 2013 All occupants Africa Seat-belt wearing rate (%)
## 576 2013 Front seat Africa Seat-belt wearing rate (%)
## 577 2013 Drivers only Africa Seat-belt wearing rate (%)
## 578 2013 Front seat Americas Seat-belt wearing rate (%)
## 579 2013 All occupants Americas Seat-belt wearing rate (%)
## 580 2013 Rear seat Americas Seat-belt wearing rate (%)
## 581 2013 Front seat Africa Seat-belt wearing rate (%)
## 582 2013 Front seat Europe Seat-belt wearing rate (%)
## 583 2013 Drivers only Americas Seat-belt wearing rate (%)
## 584 2013 All occupants Europe Seat-belt wearing rate (%)
## 585 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 586 2013 All occupants Europe Seat-belt wearing rate (%)
## 587 2013 Rear seat Europe Seat-belt wearing rate (%)
## 588 2013 Rear seat Europe Seat-belt wearing rate (%)
## 589 2013 Rear seat Europe Seat-belt wearing rate (%)
## 590 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 591 2013 Drivers only Africa Seat-belt wearing rate (%)
## 592 2013 All occupants Africa Seat-belt wearing rate (%)
## 593 2013 All occupants Eastern Mediterranean Seat-belt wearing rate (%)
## 594 2013 All occupants Africa Seat-belt wearing rate (%)
## 595 2013 Drivers only Americas Seat-belt wearing rate (%)
## 596 2013 Rear seat Americas Seat-belt wearing rate (%)
## 597 2013 Front seat Americas Seat-belt wearing rate (%)
## 598 2013 Front seat South-East Asia Seat-belt wearing rate (%)
## 599 2013 Front seat Africa Seat-belt wearing rate (%)
## 600 2013 Drivers only South-East Asia Seat-belt wearing rate (%)
## 601 2013 Rear seat Europe Seat-belt wearing rate (%)
## 602 2013 Drivers only Europe Seat-belt wearing rate (%)
## 603 2013 Drivers only Europe Seat-belt wearing rate (%)
## 604 2013 Front seat Africa Seat-belt wearing rate (%)
## 605 2013 Front seat Europe Seat-belt wearing rate (%)
## 606 2013 Front seat Europe Seat-belt wearing rate (%)
## 607 2013 Rear seat Europe Seat-belt wearing rate (%)
## 608 2013 All occupants Africa Seat-belt wearing rate (%)
## 609 2013 All occupants Americas Seat-belt wearing rate (%)
## 610 2013 All occupants Europe Seat-belt wearing rate (%)
## 611 2013 Drivers only Europe Seat-belt wearing rate (%)
## 612 2013 Drivers only Americas Seat-belt wearing rate (%)
## 613 2013 Front seat Americas Seat-belt wearing rate (%)
## 614 2013 Front seat Europe Seat-belt wearing rate (%)
## 615 2013 Front seat Europe Seat-belt wearing rate (%)
## 616 2013 Rear seat Europe Seat-belt wearing rate (%)
## 617 2013 Rear seat Americas Seat-belt wearing rate (%)
## 618 2013 Front seat Americas Seat-belt wearing rate (%)
## 619 2013 Front seat Americas Seat-belt wearing rate (%)
## 620 2013 Drivers only Europe Seat-belt wearing rate (%)
## 621 2013 Drivers only Europe Seat-belt wearing rate (%)
## 622 2013 Drivers only Americas Seat-belt wearing rate (%)
## 623 2013 Drivers only Europe Seat-belt wearing rate (%)
## 624 2013 Drivers only Americas Seat-belt wearing rate (%)
## 625 2013 Front seat Europe Seat-belt wearing rate (%)
## 626 2013 Front seat Europe Seat-belt wearing rate (%)
## 627 2013 Rear seat Americas Seat-belt wearing rate (%)
## 628 2013 All occupants Europe Seat-belt wearing rate (%)
## 629 2013 Rear seat Europe Seat-belt wearing rate (%)
## 630 2013 All occupants Europe Seat-belt wearing rate (%)
## 631 2013 Drivers only Europe Seat-belt wearing rate (%)
## 632 2013 Front seat Europe Seat-belt wearing rate (%)
## 633 2013 Rear seat Europe Seat-belt wearing rate (%)
## 634 2013 Drivers only Europe Seat-belt wearing rate (%)
## 635 2013 Front seat Americas Seat-belt wearing rate (%)
## 636 2013 Rear seat Europe Seat-belt wearing rate (%)
## 637 2013 Front seat Europe Seat-belt wearing rate (%)
## 638 2013 All occupants Europe Seat-belt wearing rate (%)
## 639 2013 Drivers only Africa Seat-belt wearing rate (%)
## 640 2013 Drivers only Africa Seat-belt wearing rate (%)
## 641 2013 Drivers only Europe Seat-belt wearing rate (%)
## 642 2013 Drivers only Americas Seat-belt wearing rate (%)
## 643 2013 Front seat Europe Seat-belt wearing rate (%)
## 644 2013 Front seat Americas Seat-belt wearing rate (%)
## 645 2013 Rear seat Europe Seat-belt wearing rate (%)
## 646 2013 All occupants Europe Seat-belt wearing rate (%)
## 647 2013 All occupants Europe Seat-belt wearing rate (%)
## 648 2013 Drivers only Europe Seat-belt wearing rate (%)
## 649 2013 Rear seat Europe Seat-belt wearing rate (%)
## 650 2013 Drivers only Americas Seat-belt wearing rate (%)
## 651 2013 Rear seat Europe Seat-belt wearing rate (%)
## 652 2013 Drivers only Europe Seat-belt wearing rate (%)
## 653 2013 Front seat Europe Seat-belt wearing rate (%)
## 654 2013 Front seat Americas Seat-belt wearing rate (%)
## 655 2013 Rear seat Europe Seat-belt wearing rate (%)
## 656 2013 All occupants Europe Seat-belt wearing rate (%)
## 657 2013 Drivers only Americas Seat-belt wearing rate (%)
## 658 2013 Front seat Americas Seat-belt wearing rate (%)
## 659 2013 Front seat Eastern Mediterranean Seat-belt wearing rate (%)
## 660 2013 Front seat Europe Seat-belt wearing rate (%)
## 661 2013 Rear seat Europe Seat-belt wearing rate (%)
## 662 2013 All occupants Europe Seat-belt wearing rate (%)
## 663 2013 All occupants Europe Seat-belt wearing rate (%)
## 664 2013 All occupants Americas Seat-belt wearing rate (%)
## 665 2013 Drivers only Europe Seat-belt wearing rate (%)
## 666 2013 Drivers only Europe Seat-belt wearing rate (%)
## 667 2013 Drivers only Africa Seat-belt wearing rate (%)
## 668 2013 Drivers only Americas Seat-belt wearing rate (%)
## 669 2013 Front seat Africa Seat-belt wearing rate (%)
## 670 2013 Rear seat Europe Seat-belt wearing rate (%)
## 671 2013 All occupants Europe Seat-belt wearing rate (%)
## 672 2013 Rear seat Europe Seat-belt wearing rate (%)
## 673 2013 Front seat Europe Seat-belt wearing rate (%)
## 674 2013 Rear seat Europe Seat-belt wearing rate (%)
## 675 2013 Drivers only Africa Seat-belt wearing rate (%)
## 676 2013 Drivers only Americas Seat-belt wearing rate (%)
## 677 2013 Drivers only Americas Seat-belt wearing rate (%)
## 678 2013 Front seat Africa Seat-belt wearing rate (%)
## 679 2013 Front seat Africa Seat-belt wearing rate (%)
## 680 2013 Front seat Americas Seat-belt wearing rate (%)
## 681 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 682 2013 Drivers only Europe Seat-belt wearing rate (%)
## 683 2013 Drivers only Europe Seat-belt wearing rate (%)
## 684 2013 Front seat Europe Seat-belt wearing rate (%)
## 685 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 686 2013 All occupants Europe Seat-belt wearing rate (%)
## 687 2013 Drivers only Europe Seat-belt wearing rate (%)
## 688 2013 Front seat Europe Seat-belt wearing rate (%)
## 689 2013 Front seat Europe Seat-belt wearing rate (%)
## 690 2013 Drivers only Americas Seat-belt wearing rate (%)
## 691 2013 Front seat Europe Seat-belt wearing rate (%)
## 692 2013 Front seat Europe Seat-belt wearing rate (%)
## 693 2013 Front seat Europe Seat-belt wearing rate (%)
## 694 2013 Front seat Americas Seat-belt wearing rate (%)
## 695 2013 All occupants Europe Seat-belt wearing rate (%)
## 696 2013 Front seat Europe Seat-belt wearing rate (%)
## 697 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 698 2013 Front seat Europe Seat-belt wearing rate (%)
## 699 2013 Rear seat Western Pacific Seat-belt wearing rate (%)
## 700 2013 All occupants Western Pacific Seat-belt wearing rate (%)
## 701 2013 Drivers only Europe Seat-belt wearing rate (%)
## 702 2013 Drivers only Europe Seat-belt wearing rate (%)
## 703 2013 Drivers only Europe Seat-belt wearing rate (%)
## 704 2013 Drivers only Europe Seat-belt wearing rate (%)
## 705 2013 Drivers only Europe Seat-belt wearing rate (%)
## 706 2013 Drivers only Eastern Mediterranean Seat-belt wearing rate (%)
## 707 2013 Front seat Western Pacific Seat-belt wearing rate (%)
## 708 2013 Rear seat Europe Seat-belt wearing rate (%)
## 709 2013 All occupants Europe Seat-belt wearing rate (%)
## 710 2013 All occupants Europe Seat-belt wearing rate (%)
## 711 2013 Drivers only Europe Seat-belt wearing rate (%)
## 712 2013 Front seat Europe Seat-belt wearing rate (%)
## 713 2013 Front seat Europe Seat-belt wearing rate (%)
## 714 2013 All occupants Europe Seat-belt wearing rate (%)
## 715 2013 Drivers only Europe Seat-belt wearing rate (%)
## 716 2013 Front seat Europe Seat-belt wearing rate (%)
## value comments
## 1 0.2 <NA>
## 2 3.1 <NA>
## 3 3.4 <NA>
## 4 4.9 <NA>
## 5 12.5 <NA>
## 6 12.6 <NA>
## 7 13.4 <NA>
## 8 13.7 <NA>
## 9 17.5 <NA>
## 10 17.6 <NA>
## 11 19.4 <NA>
## 12 26 Only in Bangalore.
## 13 31.5 <NA>
## 14 35.6 <NA>
## 15 35.9 <NA>
## 16 36.7 <NA>
## 17 37.1 <NA>
## 18 37.3 <NA>
## 19 38.6 <NA>
## 20 42.1 <NA>
## 21 42.4 <NA>
## 22 43.6 <NA>
## 23 55.6 <NA>
## 24 55.6 <NA>
## 25 56.2 <NA>
## 26 56.3 <NA>
## 27 57.3 <NA>
## 28 57.5 <NA>
## 29 58.4 <NA>
## 30 61.8 <NA>
## 31 62.4 <NA>
## 32 63.8 <NA>
## 33 65.5 <NA>
## 34 65.8 <NA>
## 35 66.2 <NA>
## 36 68.2 On expressways. % lower on other roads.
## 37 69.9 <NA>
## 38 69.9 <NA>
## 39 73.2 <NA>
## 40 74.7 <NA>
## 41 76.7 <NA>
## 42 79.7 <NA>
## 43 80.6 <NA>
## 44 81.6 <NA>
## 45 82.8 <NA>
## 46 84.4 <NA>
## 47 85.9 <NA>
## 48 85.9 <NA>
## 49 86.4 <NA>
## 50 86.5 <NA>
## 51 86.7 <NA>
## 52 87.2 <NA>
## 53 87.3 <NA>
## 54 88.2 <NA>
## 55 88.3 <NA>
## 56 89.2 <NA>
## 57 90.3 <NA>
## 58 90.5 <NA>
## 59 93.1 <NA>
## 60 93.8 <NA>
## 61 94.1 <NA>
## 62 94.2 On expressways. % lower on other roads.
## 63 94.5 <NA>
## 64 94.8 <NA>
## 65 95.3 <NA>
## 66 95.5 <NA>
## 67 95.7 <NA>
## 68 95.8 <NA>
## 69 96.6 <NA>
## 70 96.9 <NA>
## 71 97.4 <NA>
## 72 97.9 On expressways. % lower on other roads.
## 73 99.4 On expressways. % lower on other roads.
## 74 - No data
## 75 - No data
## 76 - No data
## 77 - No data
## 78 - No data
## 79 - No data
## 80 - No data
## 81 - No data
## 82 - No data
## 83 - No data
## 84 - No data
## 85 - No data
## 86 - No data
## 87 - No data
## 88 - No data
## 89 - No data
## 90 - No data
## 91 - No data
## 92 - No data
## 93 - No data
## 94 - No data
## 95 - No data
## 96 - No data
## 97 - No data
## 98 - No data
## 99 - No data
## 100 - No data
## 101 - No data
## 102 - No data
## 103 - No data
## 104 - No data
## 105 - No data
## 106 - No data
## 107 - No data
## 108 - No data
## 109 - No data
## 110 - No data
## 111 - No data
## 112 - No data
## 113 - No data
## 114 - No data
## 115 - No data
## 116 - No data
## 117 - No data
## 118 - No data
## 119 - No data
## 120 - No data
## 121 - No data
## 122 - No data
## 123 - No data
## 124 - No data
## 125 - No data
## 126 - No data
## 127 - No data
## 128 - No data
## 129 - No data
## 130 - No data
## 131 - No data
## 132 - No data
## 133 - No data
## 134 - No data
## 135 - No data
## 136 - No data
## 137 - No data
## 138 - No data
## 139 - No data
## 140 - No data
## 141 - No data
## 142 - No data
## 143 - No data
## 144 - No data
## 145 - No data
## 146 - No data
## 147 - No data
## 148 - No data
## 149 - No data
## 150 - No data
## 151 - No data
## 152 - No data
## 153 - No data
## 154 - No data
## 155 - No data
## 156 - No data
## 157 - No data
## 158 - No data
## 159 - No data
## 160 - No data
## 161 - No data
## 162 - No data
## 163 - No data
## 164 - No data
## 165 - No data
## 166 - No data
## 167 - No data
## 168 - No data
## 169 - No data
## 170 - No data
## 171 - No data
## 172 - No data
## 173 - No data
## 174 - No data
## 175 - No data
## 176 - No data
## 177 - No data
## 178 - No data
## 179 - No data
## 180 - No data
## 181 - No data
## 182 - No data
## 183 - No data
## 184 - No data
## 185 - No data
## 186 - No data
## 187 - No data
## 188 - No data
## 189 - No data
## 190 - No data
## 191 - No data
## 192 - No data
## 193 - No data
## 194 - No data
## 195 - No data
## 196 - No data
## 197 - No data
## 198 - No data
## 199 - No data
## 200 - No data
## 201 - No data
## 202 - No data
## 203 - No data
## 204 - No data
## 205 - No data
## 206 - No data
## 207 - No data
## 208 - No data
## 209 - No data
## 210 - No data
## 211 - No data
## 212 - No data
## 213 - No data
## 214 - No data
## 215 - No data
## 216 - No data
## 217 - No data
## 218 - No data
## 219 - No data
## 220 - No data
## 221 - No data
## 222 - No data
## 223 - No data
## 224 - No data
## 225 - No data
## 226 - No data
## 227 - No data
## 228 - No data
## 229 - No data
## 230 - No data
## 231 - No data
## 232 - No data
## 233 - No data
## 234 - No data
## 235 - No data
## 236 - No data
## 237 - No data
## 238 - No data
## 239 - No data
## 240 - No data
## 241 - No data
## 242 - No data
## 243 - No data
## 244 - No data
## 245 - No data
## 246 - No data
## 247 - No data
## 248 - No data
## 249 - No data
## 250 - No data
## 251 - No data
## 252 - No data
## 253 - No data
## 254 - No data
## 255 - No data
## 256 - No data
## 257 - No data
## 258 - No data
## 259 - No data
## 260 - No data
## 261 - No data
## 262 - No data
## 263 - No data
## 264 - No data
## 265 - No data
## 266 - No data
## 267 - No data
## 268 - No data
## 269 - No data
## 270 - No data
## 271 - No data
## 272 - No data
## 273 - No data
## 274 - No data
## 275 - No data
## 276 - No data
## 277 - No data
## 278 - No data
## 279 - No data
## 280 - No data
## 281 - No data
## 282 - No data
## 283 - No data
## 284 - No data
## 285 - No data
## 286 - No data
## 287 - No data
## 288 - No data
## 289 - No data
## 290 - No data
## 291 - No data
## 292 - No data
## 293 - No data
## 294 - No data
## 295 - No data
## 296 - No data
## 297 - No data
## 298 - No data
## 299 - No data
## 300 - No data
## 301 - No data
## 302 - No data
## 303 - No data
## 304 - No data
## 305 - No data
## 306 - No data
## 307 - No data
## 308 - No data
## 309 - No data
## 310 - No data
## 311 - No data
## 312 - No data
## 313 - No data
## 314 - No data
## 315 - No data
## 316 - No data
## 317 - No data
## 318 - No data
## 319 - No data
## 320 - No data
## 321 - No data
## 322 - No data
## 323 - No data
## 324 - No data
## 325 - No data
## 326 - No data
## 327 - No data
## 328 - No data
## 329 - No data
## 330 - No data
## 331 - No data
## 332 - No data
## 333 - No data
## 334 - No data
## 335 - No data
## 336 - No data
## 337 - No data
## 338 - No data
## 339 - No data
## 340 - No data
## 341 - No data
## 342 - No data
## 343 - No data
## 344 - No data
## 345 - No data
## 346 - No data
## 347 - No data
## 348 - No data
## 349 - No data
## 350 - No data
## 351 - No data
## 352 - No data
## 353 - No data
## 354 - No data
## 355 - No data
## 356 - No data
## 357 - No data
## 358 - No data
## 359 - No data
## 360 - No data
## 361 - No data
## 362 - No data
## 363 - No data
## 364 - No data
## 365 - No data
## 366 - No data
## 367 - No data
## 368 - No data
## 369 - No data
## 370 - No data
## 371 - No data
## 372 - No data
## 373 - No data
## 374 - No data
## 375 - No data
## 376 - No data
## 377 - No data
## 378 - No data
## 379 - No data
## 380 - No data
## 381 - No data
## 382 - No data
## 383 - No data
## 384 - No data
## 385 - No data
## 386 - No data
## 387 - No data
## 388 - No data
## 389 - No data
## 390 - No data
## 391 - No data
## 392 - No data
## 393 - No data
## 394 - No data
## 395 - No data
## 396 - No data
## 397 - No data
## 398 - No data
## 399 - No data
## 400 - No data
## 401 - No data
## 402 - No data
## 403 - No data
## 404 - No data
## 405 - No data
## 406 - No data
## 407 - No data
## 408 - No data
## 409 - No data
## 410 - No data
## 411 - No data
## 412 - No data
## 413 - No data
## 414 - No data
## 415 - No data
## 416 - No data
## 417 - No data
## 418 - No data
## 419 - No data
## 420 - No data
## 421 - No data
## 422 - No data
## 423 - No data
## 424 - No data
## 425 - No data
## 426 - No data
## 427 - No data
## 428 - No data
## 429 - No data
## 430 - No data
## 431 - No data
## 432 - No data
## 433 - No data
## 434 - No data
## 435 - No data
## 436 - No data
## 437 - No data
## 438 - No data
## 439 - No data
## 440 - No data
## 441 - No data
## 442 - No data
## 443 - No data
## 444 - No data
## 445 - No data
## 446 - No data
## 447 - No data
## 448 - No data
## 449 - No data
## 450 - No data
## 451 - No data
## 452 - No data
## 453 - No data
## 454 - No data
## 455 - No data
## 456 - No data
## 457 - No data
## 458 - No data
## 459 - No data
## 460 - No data
## 461 - No data
## 462 - No data
## 463 - No data
## 464 - No data
## 465 - No data
## 466 - No data
## 467 - No data
## 468 - No data
## 469 - No data
## 470 - No data
## 471 - No data
## 472 - No data
## 473 - No data
## 474 - No data
## 475 - No data
## 476 - No data
## 477 - No data
## 478 - No data
## 479 - No data
## 480 - No data
## 481 - No data
## 482 - No data
## 483 - No data
## 484 - No data
## 485 - No data
## 486 - No data
## 487 - No data
## 488 - No data
## 489 - No data
## 490 - No data
## 491 - No data
## 492 - No data
## 493 - No data
## 494 - No data
## 495 - No data
## 496 - No data
## 497 - No data
## 498 - No data
## 499 - No data
## 500 - No data
## 501 - No data
## 502 - No data
## 503 - No data
## 504 - No data
## 505 - No data
## 506 - No data
## 507 - No data
## 508 - No data
## 509 - No data
## 510 - No data
## 511 - No data
## 512 - No data
## 513 - No data
## 514 - No data
## 515 - No data
## 516 - No data
## 517 - No data
## 518 - No data
## 519 - No data
## 520 - No data
## 521 - No data
## 522 - No data
## 523 - No data
## 524 - No data
## 525 - No data
## 526 - No data
## 527 - No data
## 528 - No data
## 529 - No data
## 530 - No data
## 531 - No data
## 532 - No data
## 533 - No data
## 534 - No data
## 535 - No data
## 536 - No data
## 537 - No data
## 538 - No data
## 539 - No data
## 540 - No data
## 541 - No data
## 542 - No data
## 543 - No data
## 544 - No data
## 545 - No data
## 546 - No data
## 547 - No data
## 548 94.4 - 95.6 <NA>
## 549 95.0 - 97.0 <NA>
## 550 <1 <NA>
## 551 1.0 <NA>
## 552 10.0 <NA>
## 553 10.0 <NA>
## 554 10.0 <NA>
## 555 10.0 <NA>
## 556 10.0 <NA>
## 557 10.0 <NA>
## 558 10.0 <NA>
## 559 10.0 <NA>
## 560 13.7 - 18.5 <NA>
## 561 14.0 <NA>
## 562 15.0 <NA>
## 563 16.0 <NA>
## 564 17.9/52.0 52.0% for Republic of Srpska and 17.9% for Federation FB&H
## 565 2.0 <NA>
## 566 20.0 <NA>
## 567 23.0 <NA>
## 568 24.0 <NA>
## 569 24.0 <NA>
## 570 24.5 / 50.0 50.0% for Republic of Srpska and 24.5% for FB&H
## 571 26.0 <NA>
## 572 26.0 <NA>
## 573 3.1 - 3.8 <NA>
## 574 30.0 <NA>
## 575 30.0 <NA>
## 576 31.0 <NA>
## 577 33.0 <NA>
## 578 37.0 <NA>
## 579 38.0 <NA>
## 580 4.0 <NA>
## 581 40.0 <NA>
## 582 40.0 - 50.0 <NA>
## 583 42.0 <NA>
## 584 45.0 <NA>
## 585 46.0 <NA>
## 586 48.0 <NA>
## 587 5.0 <NA>
## 588 5.0 <NA>
## 589 5.0/14.8 5.0% for Republic of Srpska and 14.8% for Federation FB&H
## 590 50.0 <NA>
## 591 50.0 <NA>
## 592 50.0 <NA>
## 593 50.0 <NA>
## 594 50.0 <NA>
## 595 51.0 <NA>
## 596 53.0 <NA>
## 597 54.0 <NA>
## 598 54.0 <NA>
## 599 55.0 <NA>
## 600 58.0 <NA>
## 601 59.0 <NA>
## 602 60.0 <NA>
## 603 60.0 <NA>
## 604 60.0 <NA>
## 605 60.0 <NA>
## 606 60.0 <NA>
## 607 60.0 <NA>
## 608 60.0 <NA>
## 609 60.0 <NA>
## 610 60.0 <NA>
## 611 60.0 - 70.0 <NA>
## 612 61.0 <NA>
## 613 61.0 <NA>
## 614 64.0 <NA>
## 615 65.0 <NA>
## 616 65.0 <NA>
## 617 65.0 <NA>
## 618 66.0 <NA>
## 619 66.0 <NA>
## 620 69.0 - 94.0 <NA>
## 621 70.0 <NA>
## 622 70.0 <NA>
## 623 70.0 <NA>
## 624 70.0 <NA>
## 625 70.0 <NA>
## 626 70.0 <NA>
## 627 70.0 <NA>
## 628 70.0 <NA>
## 629 72.0 <NA>
## 630 72.0 <NA>
## 631 74.0 <NA>
## 632 74.0 <NA>
## 633 74.0 <NA>
## 634 77.0 <NA>
## 635 77.0 <NA>
## 636 77.0 <NA>
## 637 78.0 <NA>
## 638 79.0 <NA>
## 639 80.0 <NA>
## 640 80.0 <NA>
## 641 80.0 <NA>
## 642 80.0 <NA>
## 643 80.0 <NA>
## 644 80.0 <NA>
## 645 80.0 <NA>
## 646 80.0 <NA>
## 647 80.0 <NA>
## 648 81.0 <NA>
## 649 81.0 <NA>
## 650 82.0 <NA>
## 651 82.0 <NA>
## 652 83.0 <NA>
## 653 84.0 <NA>
## 654 84.0 <NA>
## 655 84.0 <NA>
## 656 84.0 <NA>
## 657 85.0 <NA>
## 658 85.0 <NA>
## 659 85.0 <NA>
## 660 86.0 <NA>
## 661 86.0 <NA>
## 662 86.0 <NA>
## 663 86.0 <NA>
## 664 86.0 <NA>
## 665 87.0 <NA>
## 666 87.0 <NA>
## 667 87.0 <NA>
## 668 87.0 <NA>
## 669 87.0 <NA>
## 670 87.0 <NA>
## 671 88.0 <NA>
## 672 88.0/ 95.0 88% (Great Britain), 95% (Northern Ireland)
## 673 89.0 <NA>
## 674 89.0 <NA>
## 675 90.0 <NA>
## 676 90.0 <NA>
## 677 90.0 <NA>
## 678 90.0 <NA>
## 679 90.0 <NA>
## 680 90.0 <NA>
## 681 90.0 <NA>
## 682 90.0/ 98.0 90% (Great Britain), 98% (Northern Ireland)
## 683 91.0 <NA>
## 684 91.0 - 92.0 <NA>
## 685 92.0 <NA>
## 686 93.0 <NA>
## 687 94.0 <NA>
## 688 94.0 <NA>
## 689 94.0 - 95.5 <NA>
## 690 95.0 <NA>
## 691 95.0 <NA>
## 692 95.0 <NA>
## 693 95.0 <NA>
## 694 95.0 <NA>
## 695 95.0 <NA>
## 696 95.0/ 98.0 95% (Great Britain), 98% (Northern Ireland)
## 697 96.0 <NA>
## 698 96.0 <NA>
## 699 96.0 <NA>
## 700 96.0 <NA>
## 701 96.0 - 97.0 <NA>
## 702 96.3 - 96.9 <NA>
## 703 97.0 <NA>
## 704 97.0 <NA>
## 705 97.0 <NA>
## 706 97.0 <NA>
## 707 97.0 <NA>
## 708 97.0 <NA>
## 709 97.0 <NA>
## 710 97.0 <NA>
## 711 98.0 <NA>
## 712 98.0 <NA>
## 713 98.0 <NA>
## 714 98.0 98% for Northern Ireland
## 715 99.0 <NA>
## 716 99.0 <NA>names(sb_facts)## [1] "dim" "Value" "Comments"Still not what I expected. I did see something about simplify and flatten. Maybe that means something I want.
seatbelt_flatten <- fromJSON("https://apps.who.int/gho/athena/data/GHO/RS_212.json?profile=simple&filter=COUNTRY:*;SEATTYPE:*", flatten = TRUE)
str(seatbelt_flatten$fact)## 'data.frame': 716 obs. of 8 variables:
## $ Value : chr "0.2" "3.1" "3.4" "4.9" ...
## $ Comments : chr NA NA NA NA ...
## $ dim.PUBLISHSTATE: chr "Published" "Published" "Published" "Published" ...
## $ dim.COUNTRY : chr "Mauritius" "Serbia" "Ecuador" "Ghana" ...
## $ dim.YEAR : chr "2013" "2013" "2013" "2013" ...
## $ dim.SEATTYPE : chr "Rear seat" "Rear seat" "Rear seat" "Front seat" ...
## $ dim.REGION : chr "Africa" "Europe" "Americas" "Africa" ...
## $ dim.GHO : chr "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" ...Ok still a bit confused but seemingly having 2 diminesion but better. Seems like I have 8 variables now in $fact part. Going to rename to make easier and attempt to clean.
seatbelt_1 <- seatbelt_flatten$fact
str(seatbelt_1)## 'data.frame': 716 obs. of 8 variables:
## $ Value : chr "0.2" "3.1" "3.4" "4.9" ...
## $ Comments : chr NA NA NA NA ...
## $ dim.PUBLISHSTATE: chr "Published" "Published" "Published" "Published" ...
## $ dim.COUNTRY : chr "Mauritius" "Serbia" "Ecuador" "Ghana" ...
## $ dim.YEAR : chr "2013" "2013" "2013" "2013" ...
## $ dim.SEATTYPE : chr "Rear seat" "Rear seat" "Rear seat" "Front seat" ...
## $ dim.REGION : chr "Africa" "Europe" "Americas" "Africa" ...
## $ dim.GHO : chr "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" ...seatbelt_1 <- clean_names(seatbelt_1)colnames(seatbelt_1)## [1] "value" "comments" "dim_publishstate" "dim_country"
## [5] "dim_year" "dim_seattype" "dim_region" "dim_gho"Great. Names look better. But everything looks like a chr. I am going to coerece some cols. … I fell down a rabbit hole. I read some stuff on stackoverflow https://stackoverflow.com/questions/22772279/converting-multiple-columns-from-character-to-numeric-format-in-r
But also as totally unrelated to this analysis commentary. I like stackoverflow but I get anxious reading the comments sometime. The comments can be sooo snippy: https://stackoverflow.com/a/53857448/11484875 . Doesn’t seem very welcoming and I don’t have the confidence to post there, yet. I am so thankful for everyone that does though!
Ok back to analysis
This looks promising: df %>% mutate_at(‘x1’,as.numeric) %>% str()
Also lots about lapply
data[] <- lapply(data, function(x) type.convert(as.character(x), as.is = TRUE)) #change all vars to their best fitting data type
lapply(seatbelt_1, class)## $value
## [1] "character"
##
## $comments
## [1] "character"
##
## $dim_publishstate
## [1] "character"
##
## $dim_country
## [1] "character"
##
## $dim_year
## [1] "character"
##
## $dim_seattype
## [1] "character"
##
## $dim_region
## [1] "character"
##
## $dim_gho
## [1] "character" seatbelt_convert_1 <- lapply(seatbelt_1, function(x) type.convert(as.character(x), as.is = TRUE)) #change all vars to their best fitting data type
str(seatbelt_convert_1)## List of 8
## $ value : chr [1:716] "0.2" "3.1" "3.4" "4.9" ...
## $ comments : chr [1:716] NA NA NA NA ...
## $ dim_publishstate: chr [1:716] "Published" "Published" "Published" "Published" ...
## $ dim_country : chr [1:716] "Mauritius" "Serbia" "Ecuador" "Ghana" ...
## $ dim_year : int [1:716] 2013 2013 2013 2013 2013 2013 2013 2013 2013 2013 ...
## $ dim_seattype : chr [1:716] "Rear seat" "Rear seat" "Rear seat" "Front seat" ...
## $ dim_region : chr [1:716] "Africa" "Europe" "Americas" "Africa" ...
## $ dim_gho : chr [1:716] "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" "Seat-belt wearing rate (%)" ...Nope
Try again # by specific columns: df %>% mutate_at(vars(x, y, z), ~as.numeric(as.character(.)))
seatbelt_convert_2 <- seatbelt_1 %>% mutate_at(vars(1,5), ~as.numeric(as.character(.))) %>% mutate_at(vars(3, 6, 7, 8), ~as.factor(as.character(.))) ## Warning in ~as.numeric(as.character(.)): NAs introduced by coercionstr(seatbelt_convert_2)## 'data.frame': 716 obs. of 8 variables:
## $ value : num 0.2 3.1 3.4 4.9 12.5 12.6 13.4 13.7 17.5 17.6 ...
## $ comments : chr NA NA NA NA ...
## $ dim_publishstate: Factor w/ 1 level "Published": 1 1 1 1 1 1 1 1 1 1 ...
## $ dim_country : chr "Mauritius" "Serbia" "Ecuador" "Ghana" ...
## $ dim_year : num 2013 2013 2013 2013 2013 ...
## $ dim_seattype : Factor w/ 4 levels "All occupants",..: 4 4 4 3 4 4 4 2 4 2 ...
## $ dim_region : Factor w/ 6 levels "Africa","Americas",..: 1 4 2 1 6 2 4 3 4 1 ...
## $ dim_gho : Factor w/ 1 level "Seat-belt wearing rate (%)": 1 1 1 1 1 1 1 1 1 1 ...Looks like that worked!!!
Okay these seems great. I don’t quite understand some of the piping behavior, but moving forward!!!
Time to plot!!! Lets look at counties in europe. still a lot, so just front seat rates and then exclude ones with NA
europe_seatbelt <- filter(seatbelt_convert_2, dim_region=="Europe")
europe_seatbelt_front <- filter(europe_seatbelt, dim_seattype =="Front seat")
europe_seatbelt_final <- filter(europe_seatbelt_front, !is.na(value))europe_graph <- ggplot(europe_seatbelt_final) + aes(x = reorder(dim_country, value)) + aes(y = value) + geom_point()
europe_graph
I am so pleased!! I did not know about reorder until now!!!! I knew it must exist but hadn’t used it!
titles <- labs(title = "Who has their seatbelt on in Europe? (2013)", subtitle = "Exploring seatbelt use after falling into a Tweethole by @MaraAlexeev", x = "", y = "Front Seatbelt Use % -- Red line is 95%", caption = "Data from WHO")
europe_graph + titles
Ok to fix the country names and add color
europe_graph + titles + coord_flip() + scale_color_gradient() +
theme_classic() + geom_hline(yintercept=95, linetype="dashed", color = "red") + scale_y_continuous(position = "right") + scale_x_discrete(position = "top") 
Omg. The plotted data look like a buckled seat belt!!!!!!!!