某区中学（点校）教室卫生检测报告

1.查看数据

library(tidyverse)
library(dlookr)
library(knitr)
library(kableExtra)
data <- read.csv("表1-3蓟州区.csv") %>% 
  as_tibble()
knitr::kable(head(data))
ID1 PROVINCE CITY DISTRICT COUNTY POINT SCHOOL ID2 A11 A12 A13 A14 A16 A15 A15OTHER B1 B2 B3 B4 B5 B51 B52 B53 B54 B55 B56 B57 B58 B59 B510 B511 B511OTHER C1 C11 C12 C21 C22 C3 C4 C51 C52 D1 E0 E1 E21 E22 E23 E24 E25 E25OTHER E3 E4 E5 E6 E7 E8 F0 G0 G01 G02 TYPE TYPEOTHER PRIMARY PG001 PG011 PG002 PG012 PG003 PG013 PG004 PG014 PG005 PG015 PG006 PG016 PG007 PG017 PG008 PG018 PG009 PG019 PG0010 PG0110 PG0011 PG0111 PG0012 PG0112 PG111 PG112 PG113 PG114 PG115 PG116 PG117 PG118 PG119 PG1110 PG1111 PG1112 PG211 PG212 PG213 PG214 PG215 PG216 PG217 PG218 PG219 PG2110 PG2111 PG2112 PG221 PG222 PG223 PG224 PG225 PG226 PG227 PG228 PG229 PG2210 PG2211 PG2212 PG231 PG232 PG233 PG234 PG235 PG236 PG237 PG238 PG239 PG2310 PG2311 PG2312 PG311 PG312 PG313 PG314 PG315 PG316 PG317 PG318 PG319 PG3110 PG3111 PG3112 PG321 PG322 PG323 PG324 PG325 PG326 PG327 PG328 PG329 PG3210 PG3211 PG3212 PG331 PG332 PG333 PG334 PG335 PG336 PG337 PG338 PG339 PG3310 PG3311 PG3312 PG341 PG342 PG343 PG344 PG345 PG346 PG347 PG348 PG349 PG3410 PG3411 PG3412 PG411 PG412 PG413 PG414 PG415 PG416 PG417 PG418 PG419 PG4110 PG4111 PG4112 PG421 PG422 PG423 PG424 PG425 PG426 PG427 PG428 PG429 PG4210 PG4211 PG4212 PG511 PG512 PG513 PG514 PG515 PG516 PG517 PG518 PG519 PG5110 PG5111 PG5112 PG521 PG522 PG523 PG524 PG525 PG526 PG527 PG528 PG529 PG5210 PG5211 PG5212 PG531 PG532 PG533 PG534 PG535 PG536 PG537 PG538 PG539 PG5310 PG5311 PG5312 PG541 PG542 PG543 PG544 PG545 PG546 PG547 PG548 PG549 PG5410 PG5411 PG5412 PG551 PG552 PG553 PG554 PG555 PG556 PG557 PG558 PG559 PG5510 PG5511 PG5512 PG561 PG562 PG563 PG564 PG565 PG566 PG567 PG568 PG569 PG5610 PG5611 PG5612 PG571 PG572 PG573 PG574 PG575 PG576 PG577 PG578 PG579 PG5710 PG5711 PG5712 PG581 PG582 PG583 PG584 PG585 PG586 PG587 PG588 PG589 PG5810 PG5811 PG5812 PG591 PG592 PG593 PG594 PG595 PG596 PG597 PG598 PG599 PG5910 PG5911 PG5912 PG501 PG502 PG503 PG504 PG505 PG506 PG507 PG508 PG509 PG5010 PG5011 PG5012 PG611 PG612 PG613 PG614 PG615 PG616 PG617 PG618 PG619 PG6110 PG6111 PG6112 PG621 PG622 PG623 PG624 PG625 PG626 PG627 PG628 PG629 PG6210 PG6211 PG6212 PG631 PG632 PG633 PG634 PG635 PG636 PG637 PG638 PG639 PG6310 PG6311 PG6312 PG651 PG652 PG653 PG654 PG655 PG656 PG657 PG658 PG659 PG6510 PG6511 PG6512 PG641 PG642 PG643 PG644 PG645 PG646 PG647 PG648 PG649 PG6410 PG6411 PG6412 PG711 PG712 PG713 PG714 PG715 PG716 PG717 PG718 PG719 PG7110 PG7111 PG7112 PG721 PG722 PG723 PG724 PG725 PG726 PG727 PG728 PG729 PG7210 PG7211 PG7212 PG811 PG812 PG813 PG814 PG815 PG816 PG817 PG818 PG819 PG8110 PG8111 PG8112 PG821 PG822 PG823 PG824 PG825 PG826 PG827 PG828 PG829 PG8210 PG8211 PG8212 PG831 PG832 PG833 PG834 PG835 PG836 PG837 PG838 PG839 PG8310 PG8311 PG8312 PG841 PG842 PG843 PG844 PG845 PG846 PG847 PG848 PG849 PG8410 PG8411 PG8412 PG851 PG852 PG853 PG854 PG855 PG856 PG857 PG858 PG859 PG8510 PG8511 PG8512 PG861 PG862 PG863 PG864 PG865 PG866 PG867 PG868 PG869 PG8610 PG8611 PG8612 PG871 PG872 PG873 PG874 PG875 PG876 PG877 PG878 PG879 PG8710 PG8711 PG8712 PG881 PG882 PG883 PG884 PG885 PG886 PG887 PG888 PG889 PG8810 PG8811 PG8812 PG891 PG892 PG893 PG894 PG895 PG896 PG897 PG898 PG899 PG8910 PG8911 PG8912 PG801 PG802 PG803 PG804 PG805 PG806 PG807 PG808 PG809 PG8010 PG8011 PG8012 PG911 PG912 PG913 PG914 PG915 PG916 PG917 PG918 PG919 PG9110 PG9111 PG9112 PG921 PG922 PG923 PG924 PG925 PG926 PG927 PG928 PG929 PG9210 PG9211 PG9212 PG101 PG102 PG103 PG104 PG105 PG106 PG107 PG108 PG109 PG1010 PG1011 PG1012 MIDDLE MG001 MG011 MG002 MG012 MG003 MG013 MG004 MG014 MG005 MG015 MG006 MG016 MG111 MG112 MG113 MG114 MG115 MG116 MG211 MG212 MG213 MG214 MG215 MG216 MG221 MG222 MG223 MG224 MG225 MG226 MG231 MG232 MG233 MG234 MG235 MG236 MG311 MG312 MG313 MG314 MG315 MG316 MG321 MG322 MG323 MG324 MG325 MG326 MG331 MG332 MG333 MG334 MG335 MG336 MG341 MG342 MG343 MG344 MG345 MG346 MG411 MG412 MG413 MG414 MG415 MG416 MG421 MG422 MG423 MG424 MG425 MG426 MG511 MG512 MG513 MG514 MG515 MG516 MG521 MG522 MG523 MG524 MG525 MG526 MG531 MG532 MG533 MG534 MG535 MG536 MG541 MG542 MG543 MG544 MG545 MG546 MG551 MG552 MG553 MG554 MG555 MG556 MG561 MG562 MG563 MG564 MG565 MG566 MG571 MG572 MG573 MG574 MG575 MG576 MG581 MG582 MG583 MG584 MG585 MG586 MG591 MG592 MG593 MG594 MG595 MG596 MG501 MG502 MG503 MG504 MG505 MG506 MG611 MG612 MG613 MG614 MG615 MG616 MG621 MG622 MG623 MG624 MG625 MG626 MG631 MG632 MG633 MG634 MG635 MG636 MG651 MG652 MG653 MG654 MG655 MG656 MG641 MG642 MG643 MG644 MG645 MG646 MG711 MG712 MG713 MG714 MG715 MG716 MG721 MG722 MG723 MG724 MG725 MG726 MG811 MG812 MG813 MG814 MG815 MG816 MG821 MG822 MG823 MG824 MG825 MG826 MG831 MG832 MG833 MG834 MG835 MG836 MG841 MG842 MG843 MG844 MG845 MG846 MG851 MG852 MG853 MG854 MG855 MG856 MG861 MG862 MG863 MG864 MG865 MG866 MG871 MG872 MG873 MG874 MG875 MG876 MG881 MG882 MG883 MG884 MG885 MG886 MG891 MG892 MG893 MG894 MG895 MG896 MG801 MG802 MG803 MG804 MG805 MG806 MG911 MG912 MG913 MG914 MG915 MG916 MG921 MG922 MG923 MG924 MG925 MG926 MG101 MG102 MG103 MG104 MG105 MG106 HIGH HG001 HG011 HG002 HG012 HG003 HG013 HG004 HG014 HG005 HG015 HG006 HG016 HG111 HG112 HG113 HG114 HG115 HG116 HG211 HG212 HG213 HG214 HG215 HG216 HG221 HG222 HG223 HG224 HG225 HG226 HG231 HG232 HG233 HG234 HG235 HG236 HG311 HG312 HG313 HG314 HG315 HG316 HG321 HG322 HG323 HG324 HG325 HG326 HG331 HG332 HG333 HG334 HG335 HG336 HG341 HG342 HG343 HG344 HG345 HG346 HG411 HG412 HG413 HG414 HG415 HG416 HG421 HG422 HG423 HG424 HG425 HG426 HG511 HG512 HG513 HG514 HG515 HG516 HG521 HG522 HG523 HG524 HG525 HG526 HG531 HG532 HG533 HG534 HG535 HG536 HG541 HG542 HG543 HG544 HG545 HG546 HG551 HG552 HG553 HG554 HG555 HG556 HG561 HG562 HG563 HG564 HG565 HG566 HG571 HG572 HG573 HG574 HG575 HG576 HG581 HG582 HG583 HG584 HG585 HG586 HG591 HG592 HG593 HG594 HG595 HG596 HG501 HG502 HG503 HG504 HG505 HG506 HG611 HG612 HG613 HG614 HG615 HG616 HG621 HG622 HG623 HG624 HG625 HG626 HG631 HG632 HG633 HG634 HG635 HG636 HG651 HG652 HG653 HG654 HG655 HG656 HG641 HG642 HG643 HG644 HG645 HG646 HG711 HG712 HG713 HG714 HG715 HG716 HG721 HG722 HG723 HG724 HG725 HG726 HG811 HG812 HG813 HG814 HG815 HG816 HG821 HG822 HG823 HG824 HG825 HG826 HG831 HG832 HG833 HG834 HG835 HG836 HG841 HG842 HG843 HG844 HG845 HG846 HG851 HG852 HG853 HG854 HG855 HG856 HG861 HG862 HG863 HG864 HG865 HG866 HG871 HG872 HG873 HG874 HG875 HG876 HG881 HG882 HG883 HG884 HG885 HG886 HG891 HG892 HG893 HG894 HG895 HG896 HG801 HG802 HG803 HG804 HG805 HG806 HG911 HG912 HG913 HG914 HG915 HG916 HG921 HG922 HG923 HG924 HG925 HG926 HG101 HG102 HG103 HG104 HG105 HG106 NAME1 NAME2 DATE
1219300201 12 19 3 0 2 1 1219300201 2 2 1 1 2 2 NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 NA NA 38 58 1 2 26 3 3 2 NA NA NA NA NA NA NA NA NA NA NA NA NA 1 1 1 NA 1 1 6 5 6 6 5 5 5 2 4 4 4 7 3 3 3 6 2 5 2 2 1 3 1 2 53 52 54 54 54 54 52 55 52 52 54 51 8.69 8.64 8.66 8.65 8.12 8.11 8.11 8.12 8.12 8.14 8.57 8.57 5.57 5.59 5.56 5.56 6.53 6.52 6.53 6.53 6.52 6.52 5.54 5.54 0.91 0.93 0.89 0.89 0.98 0.98 1.02 0.96 1.02 1.02 0.88 0.93 10 10 10 10 10 10 10 10 10 10 10 10 1 0 0 0 0 0 3 5 1 2 0 0 1 1 3 1 3 0 0 5 0 1 0 0 1 0 0 0 0 0 0 5 0 1 0 0 3.78 3.88 3.88 3.88 3.87 3.37 3.90 3.9 3.86 3.86 3.86 3.87 1.17 1.15 1.16 1.17 1.13 1.17 1.16 1.16 1.17 1.17 1.16 1.17 405 572 354 584 135 310 678 75 402 143 200 163 60 88 61 95 20 60 99 12 52 18 31 27 0.15 0.15 0.17 0.16 0.15 0.19 0.15 0.16 0.13 0.13 0.16 0.17 415 542 377 551 118 259 576 61 368 148 179 183 67 104 66 89 17 36 103 8 59 21 29 32 0.16 0.19 0.18 0.16 0.14 0.14 0.18 0.13 0.16 0.14 0.16 0.17 448 470 413 531 101 243 536 51 297 103 250 330 61 81 64 92 18 36 131 8 43 17 35 61 0.14 0.17 0.15 0.17 0.18 0.15 0.24 0.16 0.14 0.17 0.14 0.18 0.15 0.17 0.17 0.16 0.16 0.16 0.19 0.15 0.14 0.15 0.15 0.17 624 1003 723 990 641 693 626 732 779 616 623 740 668 811 595 754 512 623 564 621 616 505 575 700 801 903 681 613 625 697 611 672 587 635 659 751 509 688 528 526 435 616 550 609 511 630 477 396 650.5 851.3 631.8 720.8 553.3 657.3 587.8 658.5 623.3 596.5 583.5 646.8 509 688 528 526 435 616 550 609 511 505 477 396 0.8 0.8 0.8 0.7 0.8 0.9 0.9 0.9 0.8 0.8 0.8 0.6 504 462 549 497 406 338 414 460 407 395 474 418 452 507 487 494 435 460 376 420 377 397 495 507 429 518 469 452 390 385 333 374 314 320 450 455 504 587 526 480 386 346 380 418 354 441 371 419 565 612 522 532 351 334 413 554 426 400 458 389 504 590 524 545 376 325 492 538 432 497 392 445 408 494 504 447 418 384 496 407 395 436 444 407 430 537 502 428 415 344 439 428 374 362 391 442 431 591 500 473 352 357 393 359 336 324 437 426 469.7 544.2 509.2 483.1 392.1 363.7 415.1 439.8 379.4 396.9 434.7 434.2 408 462 469 428 351 325 333 359 314 320 371 389 0.9 0.8 0.9 0.9 0.9 0.9 0.8 0.8 0.8 0.8 0.9 0.9 43.2 44.5 44.2 43.1 42.6 43.6 43.7 44.3 40.3 43.7 42.9 43.6 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 汤文欣 李艳阳 2022/10/19
1219300202 12 19 3 0 2 2 1219300202 2 2 2 1 2 2 NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 NA NA 18 31 1 2 8 3 3 2 NA NA NA NA NA NA NA NA NA NA NA NA NA 1 1 1 NA 1 1 6 3 6 1 5 2 5 3 4 1 4 2 3 1 3 2 2 2 2 1 1 2 1 1 29 30 44 43 39 39 34 34 30 31 28 31 8.74 8.70 8.72 8.72 8.73 8.72 8.72 8.63 8.71 8.72 8.75 8.74 5.65 6.03 6.03 6.03 6.02 6.03 6.04 5.86 6.02 6.01 6.02 6.02 1.70 1.75 1.20 1.22 1.35 1.35 1.55 1.49 1.75 1.69 1.88 1.70 10 10 10 10 10 10 10 10 10 10 10 10 0 1 0 0 0 1 0 0 0 0 0 0 1 3 6 6 4 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3.67 3.83 3.83 3.82 3.82 3.83 3.87 3.6 3.83 3.83 3.84 3.84 1.18 1.15 1.15 1.15 1.14 1.15 1.13 1.17 1.15 1.15 1.15 1.15 877 2370 2820 2560 2150 1986 2390 264 1968 2060 1930 1684 105 340 418 459 338 345 405 39 275 337 313 295 0.12 0.14 0.15 0.18 0.16 0.17 0.17 0.15 0.14 0.16 0.16 0.18 1028 1759 2150 2160 1645 1503 1843 259 1650 1709 1448 1339 116 358 432 352 306 296 326 36 263 264 267 237 0.11 0.20 0.20 0.16 0.19 0.20 0.18 0.14 0.16 0.15 0.18 0.18 996 1412 1558 1529 1182 1107 1427 231 1164 1166 960 901 133 247 333 269 252 218 277 40 242 215 175 187 0.13 0.17 0.21 0.18 0.21 0.20 0.19 0.17 0.21 0.18 0.18 0.21 0.12 0.17 0.19 0.17 0.19 0.19 0.18 0.15 0.17 0.16 0.17 0.19 1005 1230 2190 2180 2160 2270 259 1006 2280 1549 919 1023 1049 1667 2240 2310 2160 1850 249 1128 2210 1743 1157 1294 840 1428 2150 2160 1870 1758 221 1103 1820 1536 1072 1351 710 1455 1848 1623 1517 1792 212 1013 1501 1316 1102 1145 901.0 1445.0 2107.0 2068.3 1926.8 1917.5 235.3 1062.5 1952.8 1536.0 1062.5 1203.3 710 1230 1848 1623 1517 1758 212 1013 1501 1316 919 1023 0.8 0.9 0.9 0.8 0.8 0.9 0.9 1.0 0.8 0.9 0.9 0.9 400 403 1375 1217 1405 1227 265 973 1355 1137 670 915 515 532 1533 1431 1639 1358 302 998 1722 1343 675 899 495 492 1408 1633 1921 1412 246 1004 1891 1229 583 818 552 436 1648 1657 1957 1214 280 901 1879 1306 602 728 466 456 1714 1176 1517 1388 319 795 1951 1666 502 578 476 459 1625 1093 2490 1077 279 703 1580 1968 641 668 403 591 2180 1735 1389 1603 270 693 1398 1891 530 835 483 525 1932 958 1113 1963 301 787 1225 1576 650 923 469 479 1796 975 1284 1796 302 742 1730 1506 727 840 473.2 485.9 1690.1 1319.4 1635.0 1448.7 284.9 844.0 1636.8 1513.6 620.0 800.4 400 403 1375 958 1113 1077 246 703 1225 1137 502 578 0.8 0.8 0.8 0.7 0.7 0.7 0.9 0.8 0.8 0.8 0.8 0.7 40.2 41.2 43.3 43.5 42.3 44.2 40.5 42.1 43.1 44.3 43.6 42.8 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 汤文欣 李尚泽 2022/10/17
1219300203 12 19 3 0 2 3 1219300203 1 2 2 2 2 2 NA 1 1 3 3 1 1 1 1 1 1 1 1 1 1 1 2 NA 1 NA NA 50 50 2 2 60 3 2 1 2 1 1 1 1 2 NA 1 1 2 1 1 1 1 1 1 NA 5 初中及高中 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 7 1 7 2 8 1 8 2 9 1 9 2 48 48 44 43 47 45 9.97 9.98 9.97 9.98 9.98 9.98 7.27 7.28 7.27 7.28 7.27 7.28 1.51 1.51 1.65 1.69 1.54 1.61 10 10 10 10 10 10 1 2 0 0 3 3 1 1 0 0 2 4 1 1 0 0 2 2 3.85 3.81 3.83 3.83 3.84 3.83 1.24 1.15 1.14 1.15 1.14 1.15 897 458 294 264 652 970 119 75 44 39 100 156 0.12 0.16 0.15 0.15 0.15 0.16 566 299 258 225 507 757 79 52 43 36 92 129 0.14 0.17 0.17 0.16 0.18 0.17 447 223 168 163 331 495 60 39 27 25 54 77 0.13 0.17 0.16 0.15 0.16 0.17 0.13 0.17 0.16 0.15 0.16 0.17 728 385 823 813 428 368 520 305 627 625 344 280 421 314 631 417 281 216 412 376 831 451 300 390 520.3 345.0 728.0 576.5 338.3 313.5 412 305 627 417 281 216 0.8 0.9 0.9 0.7 0.8 0.7 314 198 413 493 205 249 332 216 422 448 235 243 370 213 375 475 230 315 305 225 400 493 242 323 312 230 450 495 249 355 399 225 452 443 206 307 412 284 407 346 249 269 352 313 462 442 216 247 395 301 372 480 206 288 354.6 245.0 417.0 457.2 226.4 288.4 305 198 372 346 205 243 0.9 0.8 0.9 0.8 0.9 0.8 40.3 43.2 40.5 40.1 41.2 42.3 1 1 1 1 2 2 1 2 2 3 1 3 2 51 49 57 60 36 60 10.17 9.97 10.17 10.17 9.96 9.98 7.27 7.27 7.28 7.27 7.26 7.28 1.45 1.48 1.3 1.23 2.01 1.21 10 10 10 10 10 10 4 7 1 6 2 2 5 7 2 8 3 3 4 6 0 6 2 1 3.87 3.85 3.83 3.83 3.83 3.87 1.14 1.15 1.15 1.14 1.15 1.17 300 341 399 300 472 358 31 40 67 48 71 49 0.1 0.12 0.17 0.16 0.15 0.14 220 261 334 254 381 308 26 44 63 44 71 48 0.12 0.17 0.19 0.17 0.19 0.16 172 199 260 173 287 249 22 38 42 28 51 44 0.13 0.19 0.16 0.16 0.18 0.18 0.12 0.16 0.17 0.16 0.17 0.16 887 743 398 381 338 375 581 692 279 320 273 265 734 587 256 306 334 266 779 826 256 350 395 264 745.3 712 297.3 339.3 335 292.5 581 587 256 306 273 264 0.8 0.8 0.9 0.9 0.8 0.9 500 481 222 207 241 238 472 491 238 226 222 286 516 495 218 247 220 201 470 437 225 243 215 255 491 476 183 202 241 179 459 411 202 241 260 210 275 289 220 225 275 240 395 310 240 215 246 260 496 351 240 213 247 212 452.7 415.7 220.9 224.3 240.8 231.2 275 289 183 202 215 179 0.6 0.7 0.8 0.9 0.9 0.8 40.1 40.2 41.3 42.1 43.2 44.1 汤文欣 李尚泽 2022/10/20
1219300204 12 19 3 0 2 4 1219300204 2 2 1 2 2 2 NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 NA NA 12 28 2 2 20 3 3 2 NA NA NA NA NA NA NA NA NA NA NA NA NA 1 1 1 NA 2 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 7 2 7 3 8 1 8 2 9 1 9 2 40 39 40 40 40 40 8.70 8.71 8.72 8.73 8.72 8.72 6.02 6.03 6.02 6.03 6.02 6.03 1.31 1.35 1.31 1.32 1.31 1.31 10 10 10 10 10 10 3 0 1 2 3 2 2 0 1 1 4 1 2 0 0 1 3 1 3.86 3.87 3.84 3.83 3.87 3.83 1.15 1.16 1.16 1.15 1.15 1.15 1433 1082 2070 1755 2740 2250 219 102 270 227 260 230 0.15 0.09 0.13 0.13 0.09 0.10 737 854 1151 1330 1736 1485 109 108 168 190 330 219 0.15 0.13 0.15 0.14 0.19 0.15 632 507 826 757 1261 985 86 61 109 96 172 119 0.14 0.12 0.13 0.13 0.14 0.12 0.15 0.11 0.14 0.13 0.14 0.12 892 749 799 929 742 1053 720 559 631 726 725 729 695 355 576 668 539 623 623 313 527 589 443 576 732.5 494.0 633.3 728.0 612.3 745.3 623 313 527 589 443 576 0.9 0.6 0.8 0.8 0.7 0.8 527 562 318 550 598 714 507 517 697 764 663 751 403 536 569 506 626 953 593 493 672 841 834 991 728 643 428 467 983 771 611 543 608 681 548 769 606 800 834 895 626 704 609 590 837 901 878 555 675 832 770 945 986 748 584.3 612.9 637.0 727.8 749.1 772.9 403 493 318 467 548 704 0.7 0.8 0.5 0.6 0.8 0.9 43.2 42.1 41.3 42.2 42.7 43.1 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 汤文欣 李尚泽 2022/10/12
1219300245 12 19 3 0 2 45 1219300245 2 2 2 1 2 2 NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 NA NA 6 8 2 2 2 3 3 2 NA NA NA NA NA NA NA NA NA NA NA NA NA 1 1 3 NA 1 1 5 1 4 1 3 1 2 1 1 2 1 1 NA NA NA NA NA NA NA NA NA NA NA NA 37 36 32 33 29 30 NA NA NA NA NA NA 7.85 8.10 8.13 8.13 8.11 8.11 NA NA NA NA NA NA 5.72 5.69 5.71 5.68 5.71 5.68 NA NA NA NA NA NA 1.21 1.28 1.45 1.40 1.60 1.54 NA NA NA NA NA NA 10 10 10 10 10 10 NA NA NA NA NA NA 0 0 0 0 0 0 NA NA NA NA NA NA 0 0 0 0 0 0 NA NA NA NA NA NA 0 0 0 0 0 0 NA NA NA NA NA NA 2.99 2.99 2.99 2.99 2.99 3.84 NA NA NA NA NA NA 0.98 0.98 0.98 0.98 0.98 1.15 NA NA NA NA NA NA 287 297 341 305 401 463 NA NA NA NA NA NA 49 54 61 52 65 89 NA NA NA NA NA NA 0.17 0.18 0.18 0.17 0.16 0.19 NA NA NA NA NA NA 298 307 344 285 410 477 NA NA NA NA NA NA 55 55 72 54 72 101 NA NA NA NA NA NA 0.18 0.18 0.21 0.19 0.18 0.21 NA NA NA NA NA NA 331 329 382 279 436 529 NA NA NA NA NA NA 56 58 64 54 83 99 NA NA NA NA NA NA 0.17 0.18 0.17 0.19 0.19 0.19 NA NA NA NA NA NA 0.17 0.18 0.19 0.18 0.18 0.20 NA NA NA NA NA NA 469 475 341 795 1402 1276 NA NA NA NA NA NA 559 570 424 915 1475 1402 NA NA NA NA NA NA 550 543 610 1076 1444 1389 NA NA NA NA NA NA 511 517 610 1095 1382 1015 NA NA NA NA NA NA 522.3 526.3 496.3 970.3 1425.8 1270.5 NA NA NA NA NA NA 469 475 341 795 1382 1015 NA NA NA NA NA NA 0.9 0.9 0.7 0.8 1.0 0.8 NA NA NA NA NA NA 377 522 610 918 810 887 NA NA NA NA NA NA 473 565 643 952 919 1010 NA NA NA NA NA NA 464 480 616 858 892 979 NA NA NA NA NA NA 468 543 811 950 994 928 NA NA NA NA NA NA 473 608 847 976 857 884 NA NA NA NA NA NA 417 527 597 834 917 949 NA NA NA NA NA NA 433 513 576 820 853 903 NA NA NA NA NA NA 494 594 605 827 969 916 NA NA NA NA NA NA 450 530 820 942 810 927 NA NA NA NA NA NA 449.9 542.4 680.6 897.4 891.2 931.4 NA NA NA NA NA NA 377 480 576 820 810 903 NA NA NA NA NA NA 0.8 0.9 0.8 0.9 0.9 1.0 NA NA NA NA NA NA 46.5 46.4 48.8 47.6 47.4 44.0 NA NA NA NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 汤文欣 李尚泽 2022/7/25
1219300246 12 19 3 0 2 46 1219300246 2 1 2 1 2 2 NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 NA NA 10 16 1 2 4 3 3 2 NA NA NA NA NA NA NA NA NA NA NA NA NA 1 1 3 NA 2 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 7 3 7 1 8 1 8 2 9 4 9 3 30 30 22 22 21 21 8.74 8.73 8.68 8.67 8.69 8.69 6.04 6.03 5.99 5.99 5.98 5.98 1.76 1.75 2.36 2.36 2.47 2.47 10 10 10 10 10 10 10 9 10 10 10 10 10 9 10 10 10 10 10 9 10 10 10 10 3.84 3.85 3.87 3.84 3.85 3.85 1.15 1.15 1.15 1.15 1.15 1.15 610 1394 1622 1119 1484 1680 93 215 300 156 270 294 0.15 0.15 0.18 0.14 0.18 0.18 465 849 921 678 1030 1076 79 177 196 122 239 217 0.17 0.21 0.21 0.18 0.23 0.20 412 628 672 461 863 871 67 140 141 88 165 174 0.16 0.22 0.21 0.19 0.19 0.20 0.16 0.19 0.20 0.17 0.20 0.19 676 613 834 762 728 675 568 536 673 622 610 663 548 546 658 477 624 641 563 584 680 464 665 712 588.8 569.8 711.3 581.3 656.8 672.8 548 536 658 464 610 641 0.9 0.9 0.9 0.8 0.9 1.0 430 468 477 443 426 511 445 454 519 457 501 513 340 416 466 442 440 506 342 447 477 446 464 595 330 515 410 440 523 475 448 586 420 421 494 469 404 541 469 415 444 438 447 512 411 405 516 486 543 433 358 439 414 459 414.3 485.8 445.2 434.2 469.1 494.7 330 416 358 405 414 438 0.8 0.9 0.8 0.9 0.9 0.9 47.4 47.5 47.8 46.8 46.5 46.8 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 汤文欣 李尚泽 2022/7/25

2.编码校验

审查ID是否有重复；审查ID1与ID2是否不一致。

attach(data)
#审查ID重复项
duplicated(ID1)
##  [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [37] FALSE FALSE
# ID1[duplicated(ID1)]
#审查ID1与ID2的一致性
all(ID1==ID2)#为TRUE则完全一致，为FALSE则可以查看第几项不一致。
## [1] TRUE
# ID1==ID2

3.提交国家问卷整理

区学校编码为1,2,3,4的学校为国家点校，按照国家问卷库提取数据。

DATA <- data %>% 
  filter(SCHOOL==1|SCHOOL==2|SCHOOL==3|SCHOOL==4) %>% #根据区选择1-4或1-5.
  select(-starts_with("PG0")) %>% 
  select(-starts_with("MG0")) %>% 
  select(-starts_with("HG0")) 
data1 <- read.csv("blank.csv")
col <- names(data1)
datanew <- DATA %>% 
  select(col)
write.csv(datanew,"蓟州区1-3国家.csv")

4.卫生指标基本情况

1.班级人数

number <- datanew %>% 
  select(ID1,MG111:MG116) %>% 
  pivot_longer(MG111:MG116,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "班级人数",values_drop_na = TRUE) %>%
  mutate(outcome1=ifelse(班级人数>40,"大班","小班")) %>% 
  select(-class)
kable(number)
ID1 room 班级人数 outcome1
1219300203 1 48 大班
1219300203 2 48 大班
1219300203 3 44 大班
1219300203 4 43 大班
1219300203 5 47 大班
1219300203 6 45 大班
1219300204 1 40 小班
1219300204 2 39 小班
1219300204 3 40 小班
1219300204 4 40 小班
1219300204 5 40 小班
1219300204 6 40 小班

2.人均面积

2.1人均面积基本情况

area <- datanew %>% 
  select(ID1,MG231:MG236) %>% 
  pivot_longer(MG231:MG236,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "人均面积",values_drop_na = TRUE)%>% 
  mutate(outcome2=ifelse(人均面积>=1.36,"合格","不合格")) %>% 
  select(-class)
knitr::kable(area)
ID1 room 人均面积 outcome2
1219300203 1 1.51 合格
1219300203 2 1.51 合格
1219300203 3 1.65 合格
1219300203 4 1.69 合格
1219300203 5 1.54 合格
1219300203 6 1.61 合格
1219300204 1 1.31 不合格
1219300204 2 1.35 不合格
1219300204 3 1.31 不合格
1219300204 4 1.32 不合格
1219300204 5 1.31 不合格
1219300204 6 1.31 不合格

2.2人均面积合格情况

Counts <- table(area$outcome2)
# proportion
## Calculate proportions for each manually
# Use prop.table
prop.Counts <- prop.table(Counts)
# Use kable to make a frequency table
tab_01 <- data.frame(Counts, prop.Counts)
tab_01 <- tab_01[-3]

kable(
  tab_01,
  col.names = c("outcome2","Frequency",  "Proportion"),
  digits = 2,
  caption = "\\label{1}频率表",
  booktabs = T 
) %>%
  kable_styling(latex_options =  "hold_position")
频率表
outcome2 Frequency Proportion
不合格 6 0.5
合格 6 0.5

3.课桌椅分配符合率

3.1课桌椅分配符合率基本情况

符合率大于等于80%为合格。

dcrate <- datanew %>% 
  select(ID1,MG341:MG346) %>% 
  pivot_longer(MG341:MG346,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "课桌椅分配符合数",values_drop_na = TRUE)%>% 
  mutate(outcome3=ifelse(课桌椅分配符合数/10 >=0.8,"合格","不合格")) %>% 
  select(-class)
knitr::kable(dcrate)
ID1 room 课桌椅分配符合数 outcome3
1219300203 1 1 不合格
1219300203 2 1 不合格
1219300203 3 0 不合格
1219300203 4 0 不合格
1219300203 5 2 不合格
1219300203 6 2 不合格
1219300204 1 2 不合格
1219300204 2 0 不合格
1219300204 3 0 不合格
1219300204 4 1 不合格
1219300204 5 3 不合格
1219300204 6 1 不合格

3.2课桌椅分配符合率情况

Counts <- table(dcrate$outcome3)
# proportion
## Calculate proportions for each manually
# Use prop.table
prop.Counts <- prop.table(Counts)
# Use kable to make a frequency table
tab_02 <- data.frame(Counts, prop.Counts)
tab_02 <- tab_02[-3]

kable(
  tab_02,
  col.names = c("outcome3","Frequency",  "Proportion"),
  digits = 2,
  caption = "\\label{1}频率表",
  booktabs = T 
) %>%
  kable_styling(latex_options =  "hold_position")
频率表
outcome3 Frequency Proportion
不合格 12 1

4.黑板反射比

4.1黑板反射比基本情况

boardrr <- datanew %>% 
  select(ID1,MG501:MG506) %>% 
  pivot_longer(MG501:MG506,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "反射比",values_drop_na = TRUE)%>% 
  mutate(outcome4=ifelse(反射比>=0.15 & 反射比<0.20,"合格","不合格")) %>% 
  select(-class)
kable(boardrr)
ID1 room 反射比 outcome4
1219300203 1 0.13 不合格
1219300203 2 0.17 合格
1219300203 3 0.16 合格
1219300203 4 0.15 合格
1219300203 5 0.16 合格
1219300203 6 0.17 合格
1219300204 1 0.15 合格
1219300204 2 0.11 不合格
1219300204 3 0.14 不合格
1219300204 4 0.13 不合格
1219300204 5 0.14 不合格
1219300204 6 0.12 不合格

4.2黑板反射比合格率情况

Counts <- table(boardrr$outcome4)
# proportion
## Calculate proportions for each manually
# Use prop.table
prop.Counts <- prop.table(Counts)
# Use kable to make a frequency table
tab_03 <- data.frame(Counts, prop.Counts)
tab_03 <- tab_03[-3]

kable(
  tab_03,
  col.names = c("outcome4","Frequency",  "Proportion"),
  digits = 2,
  caption = "\\label{1}频率表",
  booktabs = T 
) %>%
  kable_styling(latex_options =  "hold_position")
频率表
outcome4 Frequency Proportion
不合格 6 0.5
合格 6 0.5

5.黑板平均照度

5.1黑板平均照度基本情况

boardlx <- datanew %>% 
  select(ID1,MG641:MG646) %>% 
  pivot_longer(MG641:MG646,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "黑板平均照度",values_drop_na = TRUE)%>% 
  mutate(outcome5=ifelse(黑板平均照度>=500,"合格","不合格")) %>% 
  select(-class)
kable(boardlx)
ID1 room 黑板平均照度 outcome5
1219300203 1 520.3 合格
1219300203 2 345.0 不合格
1219300203 3 728.0 合格
1219300203 4 576.5 合格
1219300203 5 338.3 不合格
1219300203 6 313.5 不合格
1219300204 1 732.5 合格
1219300204 2 494.0 不合格
1219300204 3 633.3 合格
1219300204 4 728.0 合格
1219300204 5 612.3 合格
1219300204 6 745.3 合格

5.2黑板平均照度合格情况

Counts <- table(boardlx$outcome5)
# proportion
## Calculate proportions for each manually
# Use prop.table
prop.Counts <- prop.table(Counts)
# Use kable to make a frequency table
tab_04 <- data.frame(Counts, prop.Counts)
tab_04 <- tab_04[-3]

kable(
  tab_04,
  col.names = c("outcome5","Frequency",  "Proportion"),
  digits = 2,
  caption = "\\label{1}频率表",
  booktabs = T 
) %>%
  kable_styling(latex_options =  "hold_position")
频率表
outcome5 Frequency Proportion
不合格 4 0.33
合格 8 0.67

6.黑板照度均匀度

6.1黑板照度均匀度基本情况

boardlxuni <- datanew %>% 
  select(ID1,MG721:MG726) %>% 
  pivot_longer(MG721:MG726,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "黑板照度均匀度",values_drop_na = TRUE)%>% 
  mutate(outcome6=ifelse(黑板照度均匀度>=0.8,"合格","不合格")) %>% 
  select(-class)
kable(boardlxuni)
ID1 room 黑板照度均匀度 outcome6
1219300203 1 0.8 合格
1219300203 2 0.9 合格
1219300203 3 0.9 合格
1219300203 4 0.7 不合格
1219300203 5 0.8 合格
1219300203 6 0.7 不合格
1219300204 1 0.9 合格
1219300204 2 0.6 不合格
1219300204 3 0.8 合格
1219300204 4 0.8 合格
1219300204 5 0.7 不合格
1219300204 6 0.8 合格

6.2黑板照度均匀度合格情况

Counts <- table(boardlxuni$outcome6)
# proportion
## Calculate proportions for each manually
# Use prop.table
prop.Counts <- prop.table(Counts)
# Use kable to make a frequency table
tab_05 <- data.frame(Counts, prop.Counts)
tab_05 <- tab_05[-3]

kable(
  tab_05,
  col.names = c("outcome6","Frequency",  "Proportion"),
  digits = 2,
  caption = "\\label{1}频率表",
  booktabs = T 
) %>%
  kable_styling(latex_options =  "hold_position")
频率表
outcome6 Frequency Proportion
不合格 4 0.33
合格 8 0.67

7.课桌平均照度

7.1课桌平均照度基本情况

desklx <- datanew %>% 
  select(ID1,MG801:MG806) %>% 
  pivot_longer(MG801:MG806,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "课桌平均照度",values_drop_na = TRUE)%>% 
  mutate(outcome7=ifelse(课桌平均照度>=300,"合格","不合格")) %>% 
  select(-class)
kable(desklx)
ID1 room 课桌平均照度 outcome7
1219300203 1 354.6 合格
1219300203 2 245.0 不合格
1219300203 3 417.0 合格
1219300203 4 457.2 合格
1219300203 5 226.4 不合格
1219300203 6 288.4 不合格
1219300204 1 584.3 合格
1219300204 2 612.9 合格
1219300204 3 637.0 合格
1219300204 4 727.8 合格
1219300204 5 749.1 合格
1219300204 6 772.9 合格

7.2课桌平均照度合格情况

Counts <- table(desklx$outcome7)
# proportion
## Calculate proportions for each manually
# Use prop.table
prop.Counts <- prop.table(Counts)
# Use kable to make a frequency table
tab_06 <- data.frame(Counts, prop.Counts)
tab_06 <- tab_06[-3]

kable(
  tab_06,
  col.names = c("outcome7","Frequency",  "Proportion"),
  digits = 2,
  caption = "\\label{1}频率表",
  booktabs = T 
) %>%
  kable_styling(latex_options =  "hold_position")
频率表
outcome7 Frequency Proportion
不合格 3 0.25
合格 9 0.75

8.课桌照度均匀度

8.1课桌照度均匀度基本情况

desklxuni <- datanew %>% 
  select(ID1,MG921:MG926) %>% 
  pivot_longer(MG921:MG926,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "课桌照度均匀度",values_drop_na = TRUE)%>% 
  mutate(outcome8=ifelse(课桌照度均匀度>=0.8,"合格","不合格")) %>% 
  select(-class)
kable(desklxuni)
ID1 room 课桌照度均匀度 outcome8
1219300203 1 0.9 合格
1219300203 2 0.8 合格
1219300203 3 0.9 合格
1219300203 4 0.8 合格
1219300203 5 0.9 合格
1219300203 6 0.8 合格
1219300204 1 0.7 不合格
1219300204 2 0.8 合格
1219300204 3 0.5 不合格
1219300204 4 0.6 不合格
1219300204 5 0.8 合格
1219300204 6 0.9 合格

8.2课桌照度均匀度合格情况

Counts <- table(desklxuni$outcome8)
# proportion
## Calculate proportions for each manually
# Use prop.table
prop.Counts <- prop.table(Counts)
# Use kable to make a frequency table
tab_07 <- data.frame(Counts, prop.Counts)
tab_07 <- tab_07[-3]

kable(
  tab_07,
  col.names = c("outcome8","Frequency",  "Proportion"),
  digits = 2,
  caption = "\\label{1}频率表",
  booktabs = T 
) %>%
  kable_styling(latex_options =  "hold_position")
频率表
outcome8 Frequency Proportion
不合格 3 0.25
合格 9 0.75

9.噪声

9.1噪声基本情况

noise <- datanew %>% 
  select(ID1,MG101:MG106) %>% 
  pivot_longer(MG101:MG106,
               names_to =c("class","room"),
               names_pattern="(.*)(\\d)",
               values_to = "噪声",values_drop_na = TRUE)%>% 
  mutate(outcome9=ifelse(噪声<=50,"合格","不合格"))  %>% 
  select(-class)
kable(noise)
ID1 room 噪声 outcome9
1219300203 1 40.3 合格
1219300203 2 43.2 合格
1219300203 3 40.5 合格
1219300203 4 40.1 合格
1219300203 5 41.2 合格
1219300203 6 42.3 合格
1219300204 1 43.2 合格
1219300204 2 42.1 合格
1219300204 3 41.3 合格
1219300204 4 42.2 合格
1219300204 5 42.7 合格
1219300204 6 43.1 合格

9.2噪声合格情况

Counts <- table(noise$outcome9)
# proportion
## Calculate proportions for each manually
# Use prop.table
prop.Counts <- prop.table(Counts)
# Use kable to make a frequency table
tab_08 <- data.frame(Counts, prop.Counts)
tab_08 <- tab_08[-3]

kable(
  tab_08,
  col.names = c("outcome9","Frequency",  "Proportion"),
  digits = 2,
  caption = "\\label{1}频率表",
  booktabs = T 
) %>%
  kable_styling(latex_options =  "hold_position")
频率表
outcome9 Frequency Proportion
合格 12 1

10.结果汇总

tab <- inner_join(number,area,by=c("ID1","room")) %>% 
  inner_join(dcrate,by=c("ID1","room")) %>% 
  inner_join(boardlx,by=c("ID1","room")) %>%
  inner_join(boardlxuni,by=c("ID1","room")) %>% 
  inner_join(boardrr,by=c("ID1","room")) %>% 
  inner_join(desklx,by=c("ID1","room")) %>% 
  inner_join(desklxuni,by=c("ID1","room")) %>% 
  inner_join(noise,by=c("ID1","room")) %>% 
  as.tibble()
kable(tab)
ID1 room 班级人数 outcome1 人均面积 outcome2 课桌椅分配符合数 outcome3 黑板平均照度 outcome5 黑板照度均匀度 outcome6 反射比 outcome4 课桌平均照度 outcome7 课桌照度均匀度 outcome8 噪声 outcome9
1219300203 1 48 大班 1.51 合格 1 不合格 520.3 合格 0.8 合格 0.13 不合格 354.6 合格 0.9 合格 40.3 合格
1219300203 2 48 大班 1.51 合格 1 不合格 345.0 不合格 0.9 合格 0.17 合格 245.0 不合格 0.8 合格 43.2 合格
1219300203 3 44 大班 1.65 合格 0 不合格 728.0 合格 0.9 合格 0.16 合格 417.0 合格 0.9 合格 40.5 合格
1219300203 4 43 大班 1.69 合格 0 不合格 576.5 合格 0.7 不合格 0.15 合格 457.2 合格 0.8 合格 40.1 合格
1219300203 5 47 大班 1.54 合格 2 不合格 338.3 不合格 0.8 合格 0.16 合格 226.4 不合格 0.9 合格 41.2 合格
1219300203 6 45 大班 1.61 合格 2 不合格 313.5 不合格 0.7 不合格 0.17 合格 288.4 不合格 0.8 合格 42.3 合格
1219300204 1 40 小班 1.31 不合格 2 不合格 732.5 合格 0.9 合格 0.15 合格 584.3 合格 0.7 不合格 43.2 合格
1219300204 2 39 小班 1.35 不合格 0 不合格 494.0 不合格 0.6 不合格 0.11 不合格 612.9 合格 0.8 合格 42.1 合格
1219300204 3 40 小班 1.31 不合格 0 不合格 633.3 合格 0.8 合格 0.14 不合格 637.0 合格 0.5 不合格 41.3 合格
1219300204 4 40 小班 1.32 不合格 1 不合格 728.0 合格 0.8 合格 0.13 不合格 727.8 合格 0.6 不合格 42.2 合格
1219300204 5 40 小班 1.31 不合格 3 不合格 612.3 合格 0.7 不合格 0.14 不合格 749.1 合格 0.8 合格 42.7 合格
1219300204 6 40 小班 1.31 不合格 1 不合格 745.3 合格 0.8 合格 0.12 不合格 772.9 合格 0.9 合格 43.1 合格