Paquetes

Cargo el Dataset

df2 <- read_csv("prevalencia caries campamentos 2017 (2).csv")
str(df2)

Creo una nueva columna con la suma de CEO y ceo

Comparo entre campamentos

Grafico para niños de 6 años por componentes del ceo

Grafico para niños de 6 años por componente del COP

Grafico para niños de 12 años por componente del COP

LS0tCnRpdGxlOiAiMjAxN19DYW1wYW1lbnRvc19ncmFmaWNvcyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyBQYXF1ZXRlcwpgYGB7ciwgaW5jbHVkZSA9IEYsIGVjaG8gPSBGfQpQYWNrYWdlcyA8LSBjKCJ0aWR5dmVyc2UiLCAiZm9yY2F0cyIsICJzdHJpbmdyIiwgImJyb29tIikKbGFwcGx5KFBhY2thZ2VzLCBsaWJyYXJ5LCBjaGFyYWN0ZXIub25seSA9IFRSVUUpCnJtKFBhY2thZ2VzKQpgYGAKIyBDYXJnbyBlbCBEYXRhc2V0CmBgYHtyfQpkZjIgPC0gcmVhZF9jc3YoInByZXZhbGVuY2lhIGNhcmllcyBjYW1wYW1lbnRvcyAyMDE3ICgyKS5jc3YiKQpzdHIoZGYyKQpgYGAKCiMgQ3JlbyB1bmEgbnVldmEgY29sdW1uYSBjb24gbGEgc3VtYSBkZSBDRU8geSBjZW8KYGBge3J9CmRmMyA8LSBkZjIgJT4lIAogIG11dGF0ZShDRU8gPSBDICsgRSArIE8sIGNlbyA9IGMgKyBlICsgbyApCmBgYAoKIyBDb21wYXJvIGVudHJlIGNhbXBhbWVudG9zCmBgYHtyIFRhYmxhIHBvciBjYW1wYW1lbnRvfQpvcHRpb25zKGRpZ2l0cz0xKQoKCmRmMyAlPiUgCiAgZ3JvdXBfYnkoYE51bWVybyBDQU1QQU1FTlRPYCkgJT4lIAogIHN1bW1hcmlzZShuID0gbigpLCAKICAgICAgICAgICAgIk1lYW5fQ0VPIiA9IG1lYW4oQ0VPKSwgCiAgICAgICAgICAgICJTRCBDRU8iID0gc2QoQ0VPKSwKICAgICAgICAgICAgIk1lYW5fY2VvIiA9IG1lYW4oY2VvKSwgCiAgICAgICAgICAgICJTRCBjZW8iID0gc2QoY2VvKSkKYGBgCmBgYHtyfQpkZjMgJT4lIAogIGdyb3VwX2J5KENBTVBBTUVOVE8pICU+JSAKICBzdW1tYXJpc2UobiA9IG4oKSwgCiAgICAgICAgICAgICJNZWFuX0NFTyIgPSBtZWFuKENFTyksIAogICAgICAgICAgICAiU0QgQ0VPIiA9IHNkKENFTyksCiAgICAgICAgICAgICJNZWFuX2NlbyIgPSBtZWFuKGNlbyksIAogICAgICAgICAgICAiU0QgY2VvIiA9IHNkKGNlbykpCmBgYAoKYGBge3IgTG9uZyBERn0KbG9uZ19kZjEgPC0gZGYzICU+JQogIHNlbGVjdChgTnVtZXJvIENBTVBBTUVOVE9gLCBgU0VYTyAoTS9GKWAsIEVEQUQsIEMsIEUsIE8gLCBjLCBlLCBvLCBDRU8sIGNlbykgJT4lIAogIGdhdGhlcihDLCBFLCBPLCBrZXkgPSAiVGlwbyBDRU8iLCB2YWx1ZSA9ICJWYWxvciBDRU8iKSAlPiUgCiAgZ2F0aGVyKGMsIGUsIG8sIGtleSA9ICJUaXBvIGNlbyIsIHZhbHVlID0gIlZhbG9yIGNlbyIpCmBgYAojR3JhZmljbyBwYXJhIG5pw7FvcyBkZSA2IGHDsW9zIHBvciBjb21wb25lbnRlcyBkZWwgY2VvCmBgYHtyfQpsb25nX2RmMSAlPiUgCiAgIyBzdHJfcmVwbGFjZShsb25nX2RmJENBTVBBTUVOVE8sICJQZWxsdWh1aW4gMiIsICJQZWxsdWh1aW4gMSIpICU+JSAgQ09SUkVHSVIhIQogIGZpbHRlcihFREFEID09IDYpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBgTnVtZXJvIENBTVBBTUVOVE9gLCB5ID0gYFZhbG9yIGNlb2AsIGZpbGwgPSBgVGlwbyBjZW9gKSkgKyAKICBnZW9tX2NvbCgpICsgCiAgY29vcmRfZmxpcCgpCmBgYAojR3JhZmljbyBwYXJhIG5pw7FvcyBkZSA2IGHDsW9zIHBvciBjb21wb25lbnRlIGRlbCBDT1AKYGBge3J9CmxvbmdfZGYxICU+JSAKICAjIHN0cl9yZXBsYWNlKGxvbmdfZGYkQ0FNUEFNRU5UTywgIlBlbGx1aHVpbiAyIiwgIlBlbGx1aHVpbiAxIikgJT4lICBDT1JSRUdJUiEhCiAgZmlsdGVyKEVEQUQgPT0gNikgJT4lIAogIGdncGxvdChhZXMoeCA9IGBOdW1lcm8gQ0FNUEFNRU5UT2AsIHkgPSBgVmFsb3IgQ0VPYCwgZmlsbCA9IGBUaXBvIENFT2ApKSArIAogIGdlb21fY29sKCkgKyAKICBjb29yZF9mbGlwKCkKYGBgCiMjR3JhZmljbyBwYXJhIG5pw7FvcyBkZSAxMiBhw7FvcyBwb3IgY29tcG9uZW50ZSBkZWwgQ09QCmBgYHtyfQpsb25nX2RmMSAlPiUgCiAgZmlsdGVyKEVEQUQgPT0gMTIpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBgTnVtZXJvIENBTVBBTUVOVE9gLCB5ID0gYFRpcG8gQ0VPYCwgZmlsbCA9IGBUaXBvIENFT2ApKSArIAogIGdlb21fY29sKCkgKyAKICBjb29yZF9mbGlwKCkgCmBgYAoKCg==