Dataset
Joel Luna Rojas
30/3/2023
Dataset
En esta práctica creare un dataset con 2 archivos csv, este data set sera de los casos de Covid19 en India y Japón, para esto, primero agregaremos los archivos al dataset de la siguiente manera:
#LAS LINEAS COMENTADAS SON PARA NO SATURAR EL ARCHIVO CON LOS RESULTADOS
library(plotrix)
datos3 <- read.csv("c:/R/covid_jpn_total.csv",header = TRUE,sep=",")
#datos3
View(datos3)
datos2 <- read.csv("c:/R/Covid_India.csv",header = TRUE,sep=",")
#datos2
tabla = data.frame(datos2)
#tablaDespues de leer los archivos haremos la suma de las columnas de casos positivos, para esto, utilizaremos sum(), esto nos permite sumar todos los valores cuantitativos de las columnas, en este caso la estructura es la siguiente: sum(archivo$nombre_columna)
casosin<- sum (datos2$Confirmed)
casosin## [1] 5451678687casosjp<- sum (datos3$Positive)
casosjp## [1] 6220311871En R existen muchas funciones para agrupar o para reducir el número de columnas como lo es la función aggregate la cual nos permite agrupar solo las columnas que queremos mostrar, su estructura es la siguiente: aggregate(columna1 ~ columnaN, FUN = sum, data = Archivo)
aggregate(Positive~ Fatal, FUN = sum, data = datos3)## Fatal Positive
## 1 0 28530
## 2 1 245843
## 3 2 129192
## 4 3 93939
## 5 4 113074
## 6 5 133232
## 7 6 15858
## 8 7 314158
## 9 8 7696474
## 10 9 498
## 11 12 552
## 12 15 608
## 13 19 659
## 14 21 699
## 15 22 762
## 16 24 794
## 17 28 809
## 18 29 853
## 19 31 892
## 20 33 928
## 21 35 981
## 22 36 1015
## 23 41 1057
## 24 42 1095
## 25 43 1160
## 26 45 1254
## 27 46 1349
## 28 49 1453
## 29 52 1647
## 30 54 1820
## 31 56 1887
## 32 57 2107
## 33 60 2306
## 34 63 2541
## 35 69 2855
## 36 70 3191
## 37 73 3569
## 38 80 3817
## 39 81 4168
## 40 85 4667
## 41 88 5246
## 42 94 5902
## 43 98 6616
## 44 102 7123
## 45 109 7509
## 46 119 7964
## 47 136 8442
## 48 148 9027
## 49 154 9654
## 50 161 10219
## 51 171 10608
## 52 186 10974
## 53 277 11350
## 54 287 11772
## 55 317 12240
## 56 334 12681
## 57 348 13031
## 58 351 13232
## 59 376 13422
## 60 389 13695
## 61 415 13929
## 62 432 14120
## 63 458 14383
## 64 492 14677
## 65 510 14895
## 66 521 15069
## 67 543 15192
## 68 551 15300
## 69 557 15382
## 70 600 15483
## 71 613 15581
## 72 621 15630
## 73 643 15706
## 74 668 15854
## 75 687 15908
## 76 710 16022
## 77 725 16066
## 78 744 16112
## 79 749 16132
## 80 763 16192
## 81 771 16212
## 82 777 16251
## 83 796 16339
## 84 808 16362
## 85 820 16375
## 86 830 16404
## 87 846 16445
## 88 858 16469
## 89 867 16498
## 90 874 16532
## 91 886 16607
## 92 891 16650
## 93 892 16679
## 94 894 16724
## 95 900 16779
## 96 903 16807
## 97 907 16850
## 98 914 16886
## 99 916 50859
## 100 919 17012
## 101 920 17051
## 102 922 17090
## 103 924 17135
## 104 925 34417
## 105 927 17311
## 106 931 17350
## 107 935 34813
## 108 952 17512
## 109 953 35199
## 110 955 17671
## 111 963 17723
## 112 967 17802
## 113 968 17886
## 114 970 36049
## 115 971 36424
## 116 973 18394
## 117 974 18545
## 118 975 18737
## 119 976 57559
## 120 977 19628
## 121 979 19816
## 122 980 20010
## 123 981 105476
## 124 983 22081
## 125 984 117966
## 126 987 25255
## 127 988 25807
## 128 989 26529
## 129 991 27441
## 130 992 28266
## 131 995 58283
## 132 997 30406
## 133 1000 31333
## 134 1003 32459
## 135 1005 33774
## 136 1010 71314
## 137 1011 38072
## 138 1015 39220
## 139 1021 40485
## 140 1025 41611
## 141 1032 43152
## 142 1038 44770
## 143 1039 46105
## 144 1046 47306
## 145 1051 48238
## 146 1058 49512
## 147 1062 50444
## 148 1072 51513
## 149 1084 52869
## 150 1087 54002
## 151 1098 54952
## 152 1114 55958
## 153 1127 56820
## 154 1143 57766
## 155 1154 58978
## 156 1168 59988
## 157 1175 61001
## 158 1180 61754
## 159 1195 62364
## 160 1208 63060
## 161 1225 63901
## 162 1237 64801
## 163 1254 65645
## 164 1263 66481
## 165 1278 67077
## 166 1295 67595
## 167 1306 68196
## 168 1318 68785
## 169 1329 69450
## 170 1348 70051
## 171 1356 70592
## 172 1362 71025
## 173 1376 71398
## 174 1392 71889
## 175 1405 72381
## 176 1411 73058
## 177 1422 73694
## 178 1438 74360
## 179 1441 74797
## 180 1450 75093
## 181 1460 75582
## 182 1472 76135
## 183 1481 76610
## 184 1494 77183
## 185 1499 155996
## 186 1507 78525
## 187 1511 78847
## 188 1519 79116
## 189 1531 79565
## 190 1539 80118
## 191 1544 80747
## 192 1547 81181
## 193 1556 81537
## 194 1563 82053
## 195 1570 82597
## 196 1577 83236
## 197 1589 83783
## 198 1596 84340
## 199 1598 84733
## 200 1601 85030
## 201 1604 85521
## 202 1612 85992
## 203 1615 86606
## 204 1623 87191
## 205 1626 87858
## 206 1628 88288
## 207 1633 88609
## 208 1637 89070
## 209 1645 89637
## 210 1649 90354
## 211 1660 90979
## 212 1669 91560
## 213 1673 92023
## 214 1675 92373
## 215 1678 92819
## 216 1684 93405
## 217 1693 94014
## 218 1705 94706
## 219 1710 95392
## 220 1717 95924
## 221 1724 96340
## 222 1729 96958
## 223 1732 97687
## 224 1743 98453
## 225 1754 99214
## 226 1765 99959
## 227 1773 100618
## 228 1779 101078
## 229 1785 101693
## 230 1793 102619
## 231 1805 103558
## 232 1808 104682
## 233 1811 105827
## 234 1817 106806
## 235 1828 107696
## 236 1840 108865
## 237 1850 110409
## 238 1866 111970
## 239 1879 113649
## 240 1882 115327
## 241 1884 116774
## 242 1902 117960
## 243 1912 119441
## 244 1921 121580
## 245 1942 123867
## 246 1962 126256
## 247 1973 128750
## 248 1980 130917
## 249 1988 132479
## 250 2000 133939
## 251 2021 135787
## 252 2050 138011
## 253 2073 140568
## 254 2105 143139
## 255 2118 145231
## 256 2138 147155
## 257 2171 148837
## 258 2212 151263
## 259 2239 153658
## 260 2282 156093
## 261 2314 158500
## 262 2334 160452
## 263 2381 162298
## 264 2419 164203
## 265 2464 166928
## 266 2501 169890
## 267 2533 172638
## 268 2561 175608
## 269 2584 177960
## 270 2642 180162
## 271 2687 182326
## 272 2738 185386
## 273 2782 188415
## 274 2827 191303
## 275 2872 194139
## 276 2899 196757
## 277 2943 198864
## 278 2993 201301
## 279 3049 204317
## 280 3104 208148
## 281 3154 211705
## 282 3212 215461
## 283 3251 218374
## 284 3305 221246
## 285 3348 224716
## 286 3413 228418
## 287 3459 232495
## 288 3513 236104
## 289 3547 239032
## 290 3598 241902
## 291 3654 245997
## 292 3718 250343
## 293 3790 256412
## 294 3856 263307
## 295 3931 271155
## 296 3995 278762
## 297 4043 284728
## 298 4093 290175
## 299 4144 295272
## 300 4232 300573
## 301 4314 307159
## 302 4379 313844
## 303 4445 320218
## 304 4500 326208
## 305 4547 332231
## 306 4646 337660
## 307 4742 343106
## 308 4829 348897
## 309 4934 353945
## 310 5018 358527
## 311 5083 362676
## 312 5157 366002
## 313 5251 369537
## 314 5360 373460
## 315 5450 377364
## 316 5544 380927
## 317 5652 384582
## 318 5720 387358
## 319 5792 389457
## 320 5910 391665
## 321 6018 394256
## 322 6133 396872
## 323 6241 399178
## 324 6336 401256
## 325 6393 402809
## 326 6474 404584
## 327 6555 406003
## 328 6676 407827
## 329 6772 409564
## 330 6847 410963
## 331 6910 412275
## 332 6950 413583
## 333 7013 415565
## 334 7100 416814
## 335 7194 418203
## 336 7272 419762
## 337 7331 421102
## 338 7415 422293
## 339 7472 423382
## 340 7527 424239
## 341 7582 425248
## 342 7645 426333
## 343 7720 427251
## 344 7805 428310
## 345 7858 429505
## 346 7885 430533
## 347 7931 431250
## 348 7982 432101
## 349 8050 433290
## 350 8117 434468
## 351 8176 435630
## 352 8225 436687
## 353 8251 437720
## 354 8297 438398
## 355 8351 439454
## 356 8400 440722
## 357 8449 442007
## 358 8507 443298
## 359 8558 444582
## 360 8588 445610
## 361 8620 446386
## 362 8676 447409
## 363 8715 448868
## 364 8756 450377
## 365 8788 451830
## 366 8810 453304
## 367 8833 454438
## 368 8859 455406
## 369 8906 456691
## 370 8936 458539
## 371 8965 460478
## 372 8996 462499
## 373 9028 464470
## 374 9058 466230
## 375 9083 467786
## 376 9110 469713
## 377 9159 472366
## 378 9182 475044
## 379 9210 477737
## 380 9218 480424
## 381 9228 482871
## 382 9246 485085
## 383 9276 487108
## 384 9298 490400
## 385 9331 493728
## 386 9350 497305
## 387 9379 500895
## 388 9397 503774
## 389 9422 506272
## 390 9466 509627
## 391 9497 513569
## 392 9535 518187
## 393 9581 522647
## 394 9619 527247
## 395 9638 531466
## 396 9668 534716
## 397 9707 538881
## 398 9761 543799
## 399 9797 549259
## 400 9851 554356
## 401 9910 559492
## 402 9969 564211
## 403 10001 568372
## 404 10052 572888
## 405 10104 578306
## 406 10191 584086
## 407 10226 588900
## 408 10293 594500
## 409 10358 600119
## 410 10416 604872
## 411 10466 609603
## 412 10513 613355
## 413 10585 618197
## 414 10698 623703
## 415 10819 630197
## 416 10872 637210
## 417 10937 642970
## 418 11060 648851
## 419 11161 655777
## 420 11251 662688
## 421 11361 668979
## 422 11459 675121
## 423 11504 680292
## 424 11587 684939
## 425 11847 689816
## 426 11936 695360
## 427 12042 701255
## 428 12148 706620
## 429 12232 711360
## 430 12308 715940
## 431 12394 718984
## 432 12493 722605
## 433 12597 726912
## 434 12710 730936
## 435 12739 762613
## 436 12815 735092
## 437 12916 738713
## 438 12963 741524
## 439 13044 743743
## 440 13136 746158
## 441 13241 749213
## 442 13360 752080
## 443 13445 754669
## 444 13519 757325
## 445 13570 759398
## 446 13641 760886
## 447 13837 764784
## 448 13903 766894
## 449 13972 768812
## 450 14028 770791
## 451 14066 772198
## 452 14121 773268
## 453 14182 774604
## 454 14264 776290
## 455 14315 777843
## 456 14360 779432
## 457 14395 780931
## 458 14418 782213
## 459 14449 783220
## 460 14491 784567
## 461 14548 786353
## 462 14593 787988
## 463 14621 789735
## 464 14652 791346
## 465 14664 792641
## 466 14700 793701
## 467 14735 795026
## 468 14776 796835
## 469 14797 798573
## 470 14819 800333
## 471 14837 802203
## 472 14843 803652
## 473 14857 804760
## 474 14879 806351
## 475 14892 808499
## 476 14912 810756
## 477 14928 813004
## 478 14943 815446
## 479 14950 817461
## 480 14954 819013
## 481 14966 821313
## 482 14985 824474
## 483 15009 827885
## 484 15022 831297
## 485 15035 835096
## 486 15043 838191
## 487 15055 840657
## 488 15074 844242
## 489 15092 849135
## 490 15101 854407
## 491 15110 858743
## 492 15118 862255
## 493 15123 867023
## 494 15131 872053
## 495 15145 879359
## 496 15153 888822
## 497 15166 899237
## 498 15177 910258
## 499 15185 922312
## 500 15190 932361
## 501 15197 941231
## 502 15212 952861
## 503 15221 966907
## 504 15233 982124
## 505 15248 997700
## 506 15266 1013190
## 507 15273 1027692
## 508 15290 1040009
## 509 15304 1050863
## 510 15323 1065910
## 511 15351 1084120
## 512 15376 1104601
## 513 15393 1124700
## 514 15401 1140857
## 515 15424 1156228
## 516 15460 1175455
## 517 15494 1198283
## 518 15527 1223602
## 519 15556 1248539
## 520 15589 1273652
## 521 15624 1296554
## 522 15656 1314531
## 523 15686 1335291
## 524 15730 1358980
## 525 15790 1385022
## 526 15844 1407589
## 527 15889 1430500
## 528 15939 1450487
## 529 15987 1465437
## 530 16034 1482253
## 531 16116 1503317
## 532 16177 1520761
## 533 16240 1537601
## 534 16306 1553059
## 535 16347 1567416
## 536 16380 1576550
## 537 16429 1587013
## 538 16518 1599121
## 539 16596 1609836
## 540 16683 1618989
## 541 16735 1628047
## 542 16790 1635492
## 543 16839 1640380
## 544 16887 1646240
## 545 16952 1652919
## 546 17023 1658926
## 547 17090 1664035
## 548 17149 1669033
## 549 17197 1672594
## 550 17226 1674994
## 551 17269 1676989
## 552 17312 1679818
## 553 17368 1683269
## 554 17414 1685738
## 555 17446 1688213
## 556 17475 1690496
## 557 17504 1691863
## 558 17544 1693429
## 559 17598 1695420
## 560 17641 1697085
## 561 17676 1698591
## 562 17709 1699841
## 563 17723 1700795
## 564 17749 1701501
## 565 17782 1702387
## 566 17812 1703455
## 567 17849 1704442
## 568 17895 1705306
## 569 17920 1706084
## 570 17934 1706656
## 571 17952 1707064
## 572 17979 1707606
## 573 18013 1708312
## 574 18044 1708924
## 575 18070 1709449
## 576 18084 1709948
## 577 18095 1710356
## 578 18113 1710644
## 579 18138 1710986
## 580 18149 1711355
## 581 18165 1711695
## 582 18175 1711999
## 583 18183 1712290
## 584 18191 1712529
## 585 18199 1712689
## 586 18213 1712947
## 587 18220 1713287
## 588 18229 1713552
## 589 18245 1717896
## 590 18253 1718177
## 591 18260 1718417
## 592 18267 1718513
## 593 18274 1718704
## 594 18282 1718931
## 595 18288 1719122
## 596 18298 1719317
## 597 18301 1719546
## 598 18302 1719704
## 599 18305 1719818
## 600 18308 1720005
## 601 18310 1720201
## 602 18315 3441005
## 603 18317 1720785
## 604 18319 3441937
## 605 18323 1721142
## 606 18328 1721342
## 607 18334 3443150
## 608 18339 3443651
## 609 18341 1721941
## 610 18343 1722034
## 611 18344 1722111
## 612 18345 1722222
## 613 18349 1722335
## 614 18350 3444965
## 615 18351 1722589
## 616 18352 1722664
## 617 18354 1722786
## 618 18355 1722903
## 619 18356 5169455
## 620 18357 1723327
## 621 18359 1723413
## 622 18361 1723524
## 623 18363 1723687
## 624 18364 1723819
## 625 18365 3447998
## 626 18366 1724130
## 627 18367 1724248
## 628 18368 1724409
## 629 18370 1724576
## 630 18371 6899891
## 631 18373 1725369
## 632 18375 1725595
## 633 18378 3451958
## 634 18379 5179738
## 635 18381 1727063
## 636 18385 6912146
## 637 18387 1729096
## 638 18388 1729770
## 639 18389 1730910
## 640 18390 3470558
## 641 18392 1743133
## 642 18394 1750894
## 643 18395 1758867
## 644 18397 1765096
## 645 18399 1771786
## 646 18404 1783838
## 647 18406 1801592
## 648 18417 1822679
## 649 18423 1845274
## 650 18425 1871980
## 651 18426 1895175
## 652 18436 1924937
## 653 18449 1964671
## 654 18461 2009128
## 655 18470 2058527
## 656 18482 2112561
## 657 18498 2160796
## 658 18515 2207847
## 659 18551 2268670
## 660 18591 2338290
## 661 18634 2412075
## 662 18678 2492991
## 663 18721 2575056
## 664 18756 2659995
## 665 18784 2721084
## 666 18863 2801211
## 667 18941 2894484
## 668 19031 2997425
## 669 19123 3091767
## 670 19249 3197505
## 671 19316 3290305
## 672 19438 3361958
## 673 19579 3457858
## 674 19734 3555751
## 675 19909 3655782
## 676 20051 3753905
## 677 20194 3821365
## 678 20351 3901544
## 679 20486 3965068
## 680 20693 4044927
## 681 20946 4135404
## 682 21190 4230942
## 683 21425 4323821
## 684 21628 4400929
## 685 21813 4473725
## 686 21992 4529571
## 687 22264 4595896
## 688 22521 4673657
## 689 22747 4739244
## 690 23003 4804393
## 691 23262 4873997
## 692 23438 4939220
## 693 23625 4994387
## 694 23852 5056199
## 695 24084 5127714
## 696 24341 5198609
## 697 24596 5262877
## 698 24781 5326326
## 699 24927 5381682
## 700 25041 5422193
## 701 25273 5471539
## 702 25478 5534239
## 703 25689 5596993
## 704 25852 5653478
## 705 26021 5708148
## 706 26146 5760071
## 707 26254 5795823
## 708 26434 5842754
## 709 26592 5899237
## 710 26756 5954311
## 711 26911 6003483
## 712 27037 6049116
## 713 27111 6089228
## 714 27168 6118771
## 715 27238 6140128
## 716 27348 6176640
## 717 27477 6225596
## 718 27593 6273753
## 719 27691 6320695
## 720 27759 6364132
## 721 27823 6396907
## 722 27905 6438292
## 723 28002 6490961
## 724 28089 6538890
## 725 28192 6592320
## 726 28240 6639575
## 727 28278 6687704
## 728 28319 6721412
## 729 28379 6763637
## 730 28448 6817670
## 731 28520 6872619
## 732 28582 6924637
## 733 28638 6976705
## 734 28676 7024462
## 735 28713 7057498
## 736 28757 7108750
## 737 28817 7165383
## 738 28876 7221627
## 739 28937 7271863
## 740 28984 7318817
## 741 29015 7358627
## 742 29041 7386815
## 743 29094 7424394
## 744 29143 7471797
## 745 29193 7519140
## 746 29249 7561892
## 747 29276 7605553
## 748 29300 7643924
## 749 29336 7672358
## 750 29394 7709559
## 751 29459 7755278
## 752 29498 7797528
## 753 29540 7833878
## 754 29559 7860059
## 755 29593 7885409
## 756 29623 7908520
## 757 29675 7935534
## 758 29700 7962206
## 759 29718 7983508
## 760 29753 8007042
## 761 29777 8041650
## 762 29805 8082469
## 763 29835 8115991
## 764 29886 8154917
## 765 29927 8200564
## 766 29966 8247858
## 767 29997 8282021
## 768 30031 8320571
## 769 30053 8355303
## 770 30081 8381529
## 771 30114 8415161
## 772 30167 8456605
## 773 30203 8495360
## 774 30247 8534272
## 775 30284 8569166
## 776 30299 8600312
## 777 30329 8623114
## 778 30361 8652548
## 779 30410 8687343
## 780 30450 8718807
## 781 30489 8747054
## 782 30528 8771871
## 783 30550 8792569
## 784 30574 8811114
## 785 30610 8830977
## 786 30645 8853525
## 787 30669 8874058
## 788 30704 8893602
## 789 30727 8910215
## 790 30744 8926335
## 791 30765 8937673
## 792 30789 8953179
## 793 30810 8971447
## 794 30836 8988629
## 795 30858 9004409
## 796 30871 9019081
## 797 30883 9032197
## 798 30902 9042390
## 799 30927 9056407
## 800 30955 9072950
## 801 30972 9088730
## 802 30995 9103496
## 803 31015 9117228
## 804 31024 9130095
## 805 31037 9140284
## 806 31049 9154273
## 807 31069 9171418
## 808 31083 9188188
## 809 31099 9204233
## 810 31108 9219887
## 811 31118 9233634
## 812 31131 9245609
## 813 31238 9263301
## 814 31258 9286199
## 815 31273 9309694
## 816 31289 9332794
## 817 31300 9356103
## 818 31308 9378227
## 819 31324 9398984
## 820 31340 9431868
## 821 31355 9476689
## 822 31369 9524459
## 823 31395 9573991
## 824 31408 9625704
## 825 31418 9676600
## 826 31437 9722614
## 827 31457 9790789
## 828 31486 9883269
## 829 31520 9980588
## 830 31551 10079855
## 831 31572 10184672
## 832 31586 10288240
## 833 31602 10367838
## 834 31635 10449180
## 835 31689 10584378
## 836 31727 10765167
## 837 31791 10961440
## 838 31844 11153511
## 839 31877 11326147
## 840 31932 11480118
## 841 32040 11660303
## 842 32162 11867502
## 843 32278 12097529
## 844 32408 12319434
## 845 32499 12532363
## 846 32577 12729133
## 847 32686 12896792
## 848 32811 13092575
## 849 32968 13324147
## 850 33151 13577514
## 851 33340 13814286
## 852 33501 14029138
## 853 33655 14227669
## 854 33817 14400634
## 855 34067 14597345
## 856 34315 14840423
## 857 34529 15065316
## 858 34755 15257647
## 859 34993 15424236
## 860 35148 15594181
## 861 35363 15753926
## 862 35647 15932181
## 863 35947 16140637
## 864 36226 16401863
## 865 36509 16657648
## 866 36772 16900421
## 867 37000 17118253
## 868 37269 17303709
## 869 37586 17497897
## 870 37879 17735275
## 871 38189 17962376
## 872 38514 18158969
## 873 38762 18331821
## 874 38997 18485017
## 875 39245 18610906
## 876 39556 18750471
## 877 39872 18917782
## 878 40190 19071057
## 879 40537 19206445
## 880 40821 19323547
## 881 41046 19428535
## 882 41285 19512806
## 883 41567 19613512
## 884 41832 19739977
## 885 42093 19860624
## 886 42305 19960270
## 887 42502 20050161
## 888 42629 20135165
## 889 42786 20199838
## 890 42977 20278515
## 891 43169 20378033
## 892 43339 20466396
## 893 43525 20544165
## 894 43664 20613885
## 895 43746 20677479
## 896 43819 20718800
## 897 43943 20757301
## 898 44063 20818768
## 899 44169 20896814
## 900 44254 20960845
## 901 44323 21001743
## 902 44367 21045451
## 903 44455 21137064
## 904 44551 21187043
## 905 44678 21229216
## 906 44789 21265862
## 907 44894 21301280
## 908 44965 21330772
## 909 45018 21345939
## 910 45083 21385662
## 911 45157 21426855
## 912 45248 21460295
## 913 45321 21489738
## 914 45404 21516523
## 915 45461 21539319
## 916 45511 21552357
## 917 45538 21564995
## 918 45615 21610500
## 919 45693 21656190
## 920 45756 21692795
## 921 45823 21727933
## 922 45870 21757595
## 923 45890 21772967
## 924 45946 21814973
## 925 46014 21858528
## 926 46085 21894638
## 927 46152 21926231
## 928 46230 21960404
## 929 46274 21991277
## 930 46309 22008129
## 931 46347 22055832
## 932 46414 22106126
## 933 46485 22148863
## 934 46536 22188117
## 935 46594 22232640
## 936 46636 22273251
## 937 46659 22295592
## 938 46711 22360872
## 939 46781 22432840
## 940 46850 22500313
## 941 46909 22534377
## 942 46981 22608547
## 943 47027 22674944
## 944 47069 22706566
## 945 47139 22790250
## 946 47236 22877660
## 947 47336 22956237
## 948 47417 23030330
## 949 47512 23109816
## 950 47579 23178710
## 951 47627 23216265
## 952 47715 23319094
## 953 47826 23426796
## 954 47959 23519801
## 955 48058 23604176
## 956 48159 23694063
## 957 48281 23771785
## 958 48338 23814209
## 959 48482 23935445
## 960 48642 24068806
## 961 48772 24128914
## 962 48872 24246754
## 963 49036 24372081
## 964 49178 24470557
## 965 49281 24519674
## 966 49434 24654770
## 967 49644 24793166
## 968 49826 24911367
## 969 50013 25021295
## 970 50193 25130886
## 971 50344 25220452
## 972 50461 25268073
## 973 50608 25405350
## 974 50819 25554733
## 975 51062 25687798
## 976 51290 25814888
## 977 51512 25950649
## 978 51702 26069823
## 979 51829 26132159
## 980 52043 26309153
## 981 52287 26499760
## 982 52564 26668251
## 983 52823 26821853
## 984 53087 26980236
## 985 53319 27116473
## 986 53499 27187394
## 987 53730 27374464
## 988 54026 27581407
## 989 54365 27765782
## 990 54680 27939118
## 991 55019 28116740
## 992 55325 28266405
## 993 55542 28343661
## 994 55813 28548004
## 995 56228 28764223
## 996 56648 28956286
## 997 56974 29105070
## 998 57266 29212535
## 999 57513 29299459
## 1000 57721 29375723
## 1001 57994 29467627
## 1002 58162 29571931
## 1003 58496 29798835
## 1004 58952 30044377
## 1005 59415 30283031
## 1006 59822 30473569
## 1007 60158 30568877
## 1008 60411 30647859
## 1009 60792 30846732
## 1010 61281 31032204
## 1011 61761 62484633
## 1012 62220 31819310
## 1013 62679 31416633
## 1014 62963 31471011
## 1015 63320 31597810
## 1016 63769 31722918
## 1017 64645 31901924
## 1018 65043 31980878
## 1019 65369 32045328
## 1020 65622 32077899
## 1021 65929 32171700
## 1022 66297 32251054
## 1023 66707 32310939
## 1024 67050 32364850
## 1025 67388 32419632
## 1026 67639 32464361
## 1027 67845 32485787
## 1028 68091 32532905
## 1029 68399 32588442
## 1030 68796 32633741
## 1031 69033 32673665
## 1032 69289 32712246Para poder visualizar los datos creare una grafica de pastel, para esto creo un vector llamado count en donde concatenamos los resultados de la suma de los valores de las columnas de casos positivos, las etiquetas son los valores que apareceran en la grafica. La estructura para crear la gráfica es: pie(vector), de esta manera se muestra ya nuestra grafica pero para agregar las etiquetas solo se le agregaria labels de la siguiente manera: pie(vector, labels = nombre_etiqueta). Y para poner leyendas en la grafica solo basta con poner legend(), y su estructura es la siguiente: legend("tipo", legend = c("leyenda(s)"), fill = c("Color(es)")) En este caso se observa en la gráfica que India tuvo menos casos de covid que Japón, a un lado de la cantidad de casos se puede observar el porcentaje.
count <- c(casosin, casosjp)
#sum(count_3) # 100
etiquetas <- paste0(count, " = ", round(100 * count/sum(count), 2), "%")
pie(count, labels = paste0(etiquetas))
legend("topleft", legend = c("Total casos covid India", "Total casos covid Japón"), fill = c("white", "lightblue"))
hist(datos2$Deaths, breaks = 30,col="lightcyan",main = "Muertes por Covid19 (India)", xlab = "Muertes", ylab = "Frecuencia")#Muertes en India
grid(nx = NA, ny = NULL, lty = 2, col = "gray", lwd = 1)
hist(datos3$Fatal, breaks = 30,col="lightcyan",main = "Muertes por Covid19 (Japón)", xlab = "Muertes", ylab = "Frecuencia") #Muertes en Japón
grid(nx = NA, ny = NULL, lty = 2, col = "gray", lwd = 1)