2026_tesis medicacion_karol robles y evelyn godoy
#packages
#df
df <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vQemOtZbu_CvhcI1SHK1_af9aKbLI1F2xrkiW_h-dwJb_9jbQJsZeDFP2y2DuiPNVbzzlIc6amxr3yD/pub?gid=0&single=true&output=csv")#reformat df
#Tabla
#grafica
#para jeringa
#Para lima
#Pendiente el analisis de subgrupo, estadistico
# install.packages("rcompanion")
install.packages("rcompanion")
Warning in install.packages :
package ‘rcompanion’ is not available (for R version 4.0.2)LS0tCnRpdGxlOiAiMjAyNl90ZXNpcyBtZWRpY2FjaW9uX2thcm9sIHJvYmxlcyB5IGV2ZWx5biBnb2RveSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQojcGFja2FnZXMKYGBge3J9CmxpYnJhcnkoInRpZHl2ZXJzZSIpCmBgYAojZGYKYGBge3J9CmRmIDwtIHJlYWRfY3N2KCJodHRwczovL2RvY3MuZ29vZ2xlLmNvbS9zcHJlYWRzaGVldHMvZC9lLzJQQUNYLTF2UWVtT3RaYnVfQ3ZoY0kxU0hLMV9hZjlhS2JMSTFGMnhya2lXX2gtZHdKYl85amJRSnNaZURGUDJ5MkR1aVBOVmJ6emxJYzZhbXhyM3lEL3B1Yj9naWQ9MCZzaW5nbGU9dHJ1ZSZvdXRwdXQ9Y3N2IikKYGBgCiNyZWZvcm1hdCBkZgpgYGB7cn0KZGZfbG9uZyA8LSBkZiAlPiUKICBwaXZvdF9sb25nZXIoCiAgICBjb2xzID0gYyhDZXJ2aWNhbCwgTWVkaW8sIEFwaWNhbCksCiAgICBuYW1lc190byA9ICJ6b25hIiwKICAgIHZhbHVlc190byA9ICJwdW50YWplIgogICkKYGBgCgojVGFibGEKYGBge3J9Cgp0YWJsYV9jb21wbGV0YSA8LSBkZl9sb25nICU+JQogIAogIGdyb3VwX2J5KHRpcG9fbWVkaWNhY2lvbiwKICAgICAgICAgICBjcml0ZXJpbywKICAgICAgICAgICB6b25hLAogICAgICAgICAgIHB1bnRhamUpICU+JQogIAogIHN1bW1hcmlzZSgKICAgIEZyZWN1ZW5jaWEgPSBuKCksCiAgICAuZ3JvdXBzID0gImRyb3AiCiAgKSAlPiUKICAKICBncm91cF9ieSh0aXBvX21lZGljYWNpb24sCiAgICAgICAgICAgY3JpdGVyaW8sCiAgICAgICAgICAgem9uYSkgJT4lCiAgCiAgbXV0YXRlKAogICAgUG9yY2VudGFqZSA9IHJvdW5kKAogICAgICAoRnJlY3VlbmNpYS9zdW0oRnJlY3VlbmNpYSkpKjEwMCwKICAgICAgMQogICAgKSwKICAgIAogICAgUmVzdWx0YWRvID0gcGFzdGUwKAogICAgICBGcmVjdWVuY2lhLAogICAgICAiICgiLAogICAgICBQb3JjZW50YWplLAogICAgICAiJSkiCiAgICApCiAgKSAlPiUKICAKICBzZWxlY3QoCiAgICB0aXBvX21lZGljYWNpb24sCiAgICBjcml0ZXJpbywKICAgIHpvbmEsCiAgICBwdW50YWplLAogICAgUmVzdWx0YWRvCiAgKSAlPiUKICAKICBwaXZvdF93aWRlcigKICAgIG5hbWVzX2Zyb20gPSBwdW50YWplLAogICAgdmFsdWVzX2Zyb20gPSBSZXN1bHRhZG8sCiAgICB2YWx1ZXNfZmlsbCA9ICIiCiAgKSAlPiUKICAKICAjIE9SREVOQVIgQ09MVU1OQVMKICBzZWxlY3QoCiAgICB0aXBvX21lZGljYWNpb24sCiAgICBjcml0ZXJpbywKICAgIHpvbmEsCiAgICBgMGAsCiAgICBgMWAsCiAgICBgMmAKICApICU+JQogIAogIHJlbmFtZSgKICAgIFB1bnRhamVfMCA9IGAwYCwKICAgIFB1bnRhamVfMSA9IGAxYCwKICAgIFB1bnRhamVfMiA9IGAyYAogICkgJT4lCiAgCiAgYXJyYW5nZSgKICAgIHRpcG9fbWVkaWNhY2lvbiwKICAgIGNyaXRlcmlvLAogICAgem9uYQogICkKCnRhYmxhX2NvbXBsZXRhCgpgYGAKCiNncmFmaWNhCmBgYHtyfQpnZ3Bsb3QoZGZfbG9uZywgYWVzKHggPSBjcml0ZXJpbywgZmlsbCA9IGZhY3RvcihwdW50YWplKSkpICsKICBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKwogIGZhY2V0X3dyYXAofiB0aXBvX21lZGljYWNpb24pICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzID0gc2NhbGVzOjpwZXJjZW50KSArCiAgbGFicygKICAgIHRpdGxlID0gIkRpc3RyaWJ1Y2nDs24gcG9yY2VudHVhbCBkZSBwdW50YWplcyBzZWfDum4gY3JpdGVyaW8geSB0aXBvIGRlIG1lZGljYWNpw7NuIiwKICAgIHggPSAiQ3JpdGVyaW8iLAogICAgeSA9ICJQb3JjZW50YWplIiwKICAgIGZpbGwgPSAiUHVudGFqZSIKICApICsKICB0aGVtZV9taW5pbWFsKCkKYGBgCgpgYGB7cn0KIyBHcmFmaWNvIGVzdGlsbyBHcmFwaFBhZCBibGFuY28geSBuZWdybwpnZ3Bsb3QoZGZfbG9uZywKICAgICAgIGFlcyh4ID0gY3JpdGVyaW8sCiAgICAgICAgICAgZmlsbCA9IGZhY3RvcihwdW50YWplKSkpICsKCiAgZ2VvbV9iYXIocG9zaXRpb24gPSAiZmlsbCIsCiAgICAgICAgICAgY29sb3IgPSAiYmxhY2siLAogICAgICAgICAgIHdpZHRoID0gMC43KSArCgogIGZhY2V0X3dyYXAofiB0aXBvX21lZGljYWNpb24pICsKCiAgc2NhbGVfZmlsbF9ncmV5KAogICAgc3RhcnQgPSAwLjksCiAgICBlbmQgPSAwLjMsCiAgICBuYW1lID0gIlB1bnRhamUiCiAgKSArCgogIHNjYWxlX3lfY29udGludW91cygKICAgIGxhYmVscyA9IHNjYWxlczo6cGVyY2VudCwKICAgIGV4cGFuZCA9IGMoMCwwKQogICkgKwoKICBsYWJzKAogICAgeCA9ICJDcml0ZXJpbyIsCiAgICB5ID0gIlBvcmNlbnRhamUiCiAgKSArCgogIHRoZW1lX2NsYXNzaWMoYmFzZV9zaXplID0gMTQpICsKCiAgdGhlbWUoCiAgICBzdHJpcC5iYWNrZ3JvdW5kID0gZWxlbWVudF9ibGFuaygpLAogICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiKSwKICAgIGF4aXMudGV4dCA9IGVsZW1lbnRfdGV4dChjb2xvciA9ICJibGFjayIpLAogICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiKSwKICAgIGxlZ2VuZC50aXRsZSA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiKSwKICAgIHBhbmVsLnNwYWNpbmcgPSB1bml0KDEsICJsaW5lcyIpCiAgKQpgYGAKYGBge3J9CmRmX2xvbmckem9uYSA8LSBmYWN0b3IoCiAgZGZfbG9uZyR6b25hLAogIGxldmVscyA9IGMoCiAgICAiQ2VydmljYWwiLAogICAgIk1lZGlvIiwKICAgICJBcGljYWwiCiAgKSwKICBvcmRlcmVkID0gVFJVRQopCgojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQojIEdSQUZJQ08gTEVOVFVMTwojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQoKbGVudHVsbyA8LSBkZl9sb25nICU+JQogIGZpbHRlcih0aXBvX21lZGljYWNpb24gPT0gIkxlbnR1bG8iKQoKZ2dwbG90KAogIGxlbnR1bG8sCiAgYWVzKAogICAgeCA9IGNyaXRlcmlvLAogICAgZmlsbCA9IGZhY3RvcihwdW50YWplKQogICkKKSArCgogIGdlb21fYmFyKAogICAgcG9zaXRpb24gPSAiZmlsbCIsCiAgICBjb2xvciA9ICJibGFjayIKICApICsKCiAgZmFjZXRfd3JhcCgKICAgIH4gZmFjdG9yKAogICAgICB6b25hLAogICAgICBsZXZlbHMgPSBjKAogICAgICAgICJDZXJ2aWNhbCIsCiAgICAgICAgIk1lZGlvIiwKICAgICAgICAiQXBpY2FsIgogICAgICApCiAgICApLAogICAgbnJvdyA9IDEKICApICsKCiAgc2NhbGVfZmlsbF9ncmV5KAogICAgc3RhcnQgPSAwLjksCiAgICBlbmQgPSAwLjMsCiAgICBuYW1lID0gIlB1bnRhamUiCiAgKSArCgogIHNjYWxlX3lfY29udGludW91cygKICAgIGxhYmVscyA9IHNjYWxlczo6cGVyY2VudAogICkgKwoKICBsYWJzKAogICAgdGl0bGUgPSAiTGVudHVsbyIsCiAgICB4ID0gIkNyaXRlcmlvIiwKICAgIHkgPSAiUG9yY2VudGFqZSIKICApICsKCiAgdGhlbWVfY2xhc3NpYyhiYXNlX3NpemUgPSAxNCkgKwoKICB0aGVtZSgKCiAgICAjIGVsaW1pbmFyIHJlY3VhZHJvIGdyaXMKICAgIHN0cmlwLmJhY2tncm91bmQgPSBlbGVtZW50X2JsYW5rKCksCgogICAgIyB0ZXh0byBwYW5lbAogICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dCgKICAgICAgZmFjZSA9ICJib2xkIiwKICAgICAgc2l6ZSA9IDEyCiAgICApLAoKICAgIGxlZ2VuZC50aXRsZSA9IGVsZW1lbnRfdGV4dCgKICAgICAgZmFjZSA9ICJib2xkIgogICAgKQogICkKCgpgYGAKI3BhcmEgamVyaW5nYQpgYGB7cn0KamVyaW5nYSA8LSBkZl9sb25nICU+JQogIGZpbHRlcih0aXBvX21lZGljYWNpb24gPT0gIkplcmluZ2EiKQoKZ2dwbG90KAogIGplcmluZ2EsICAjIENhbWJpw6kgJ0plcmluZ2EnIHBvciAnamVyaW5nYScgKG1pbsO6c2N1bGEpCiAgYWVzKAogICAgeCA9IGNyaXRlcmlvLAogICAgZmlsbCA9IGZhY3RvcihwdW50YWplKQogICkKKSArCiAgZ2VvbV9iYXIoCiAgICBwb3NpdGlvbiA9ICJmaWxsIiwKICAgIGNvbG9yID0gImJsYWNrIgogICkgKwogIGZhY2V0X3dyYXAoCiAgICB+IGZhY3RvcigKICAgICAgem9uYSwKICAgICAgbGV2ZWxzID0gYygKICAgICAgICAiQ2VydmljYWwiLAogICAgICAgICJNZWRpbyIsCiAgICAgICAgIkFwaWNhbCIKICAgICAgKQogICAgKSwKICAgIG5yb3cgPSAxCiAgKSArCiAgc2NhbGVfZmlsbF9ncmV5KAogICAgc3RhcnQgPSAwLjksCiAgICBlbmQgPSAwLjMsCiAgICBuYW1lID0gIlB1bnRhamUiCiAgKSArCiAgc2NhbGVfeV9jb250aW51b3VzKAogICAgbGFiZWxzID0gc2NhbGVzOjpwZXJjZW50CiAgKSArCiAgbGFicygKICAgIHRpdGxlID0gIkplcmluZ2EiLAogICAgeCA9ICJDcml0ZXJpbyIsCiAgICB5ID0gIlBvcmNlbnRhamUiCiAgKSArCiAgdGhlbWVfY2xhc3NpYyhiYXNlX3NpemUgPSAxNCkgKwogIHRoZW1lKAogICAgIyBlbGltaW5hciByZWN1YWRybyBncmlzCiAgICBzdHJpcC5iYWNrZ3JvdW5kID0gZWxlbWVudF9ibGFuaygpLAogICAgIyB0ZXh0byBwYW5lbAogICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dCgKICAgICAgZmFjZSA9ICJib2xkIiwKICAgICAgc2l6ZSA9IDEyCiAgICApLAogICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KAogICAgICBmYWNlID0gImJvbGQiCiAgICApCiAgKQoKYGBgCiNQYXJhIGxpbWEKYGBge3J9CmxpbWEgPC0gZGZfbG9uZyAlPiUKICBmaWx0ZXIodGlwb19tZWRpY2FjaW9uID09ICJMaW1hIikKCmdncGxvdCgKICBsaW1hLCAgIyBDYW1iacOpICdKZXJpbmdhJyBwb3IgJ2xpbWEnCiAgYWVzKAogICAgeCA9IGNyaXRlcmlvLAogICAgZmlsbCA9IGZhY3RvcihwdW50YWplKQogICkKKSArCiAgZ2VvbV9iYXIoCiAgICBwb3NpdGlvbiA9ICJmaWxsIiwKICAgIGNvbG9yID0gImJsYWNrIgogICkgKwogIGZhY2V0X3dyYXAoCiAgICB+IGZhY3RvcigKICAgICAgem9uYSwKICAgICAgbGV2ZWxzID0gYygKICAgICAgICAiQ2VydmljYWwiLAogICAgICAgICJNZWRpbyIsCiAgICAgICAgIkFwaWNhbCIKICAgICAgKQogICAgKSwKICAgIG5yb3cgPSAxCiAgKSArCiAgc2NhbGVfZmlsbF9ncmV5KAogICAgc3RhcnQgPSAwLjksCiAgICBlbmQgPSAwLjMsCiAgICBuYW1lID0gIlB1bnRhamUiCiAgKSArCiAgc2NhbGVfeV9jb250aW51b3VzKAogICAgbGFiZWxzID0gc2NhbGVzOjpwZXJjZW50CiAgKSArCiAgbGFicygKICAgIHRpdGxlID0gIkxpbWEiLAogICAgeCA9ICJDcml0ZXJpbyIsCiAgICB5ID0gIlBvcmNlbnRhamUiCiAgKSArCiAgdGhlbWVfY2xhc3NpYyhiYXNlX3NpemUgPSAxNCkgKwogIHRoZW1lKAogICAgIyBlbGltaW5hciByZWN1YWRybyBncmlzCiAgICBzdHJpcC5iYWNrZ3JvdW5kID0gZWxlbWVudF9ibGFuaygpLAogICAgIyB0ZXh0byBwYW5lbAogICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dCgKICAgICAgZmFjZSA9ICJib2xkIiwKICAgICAgc2l6ZSA9IDEyCiAgICApLAogICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KAogICAgICBmYWNlID0gImJvbGQiCiAgICApCiAgKQpgYGAKI1BlbmRpZW50ZSBlbCBhbmFsaXNpcyBkZSBzdWJncnVwbywgZXN0YWRpc3RpY28gCmBgYHtyfQpsaWJyYXJ5KGRwbHlyKQoKIyBJdGVyYXIgcG9yIGNhZGEgdGlwbyBkZSBtZWRpY2FjacOzbgpkZl9sb25nICU+JQogIGdyb3VwX2J5KHRpcG9fbWVkaWNhY2lvbikgJT4lCiAgc3VtbWFyaXNlKAogICAgdGVzdCA9IGxpc3Qoa3J1c2thbC50ZXN0KHB1bnRhamUgfiB6b25hKSkKICApCmBgYApgYGB7cn0KbGlicmFyeShnZ3Bsb3QyKQoKZ2dwbG90KGRmX2xvbmcsIGFlcyh4ID0gem9uYSwgeSA9IHB1bnRhamUsIGZpbGwgPSB0aXBvX21lZGljYWNpb24pKSArCiAgZ2VvbV9ib3hwbG90KCkgKwogIGxhYnModGl0bGUgPSAiQW1wbGl0dWQgc2Vnw7puIHRpcG8gZGUgbWVkaWNhY2nDs24geSB6b25hIiwKICAgICAgIHggPSAiWm9uYSIsIHkgPSAiQW1wbGl0dWQgLyBQdW50YWplIikgKwogIHRoZW1lX2NsYXNzaWMoYmFzZV9zaXplID0gMTQpCmBgYAoKYGBge3J9CiMgaW5zdGFsbC5wYWNrYWdlcygicmNvbXBhbmlvbiIpCmluc3RhbGwucGFja2FnZXMoInJjb21wYW5pb24iKQpsaWJyYXJ5KHJjb21wYW5pb24pCnNjaGVpcmVyUmF5SGFyZShwdW50YWplIH4gdGlwb19tZWRpY2FjaW9uICsgem9uYSwgZGF0YSA9IGRmX2xvbmcpCmBgYAoKCgo=