Se realizó un estudio en el cual se hizo un analisis en los 51 estados de Estados Unidos. Este analisis se basó en datos obtenidos del censo del 2011 en dicho pais.

A continuación la lista de estados:

Dat<-read.csv("mat_exa.csv")
library(ggplot2)
Dat$State
 [1] Alabama              Alaska               Arizona             
 [4] Arkansas             California           Colorado            
 [7] Connecticut          Delaware             District of Columbia
[10] Florida              Georgia              Hawaii              
[13] Idaho                Illinois             Indiana             
[16] Iowa                 Kansas               Kentucky            
[19] Louisiana            Maine                Maryland            
[22] Massachusetts        Michigan             Minnesota           
[25] Mississippi          Missouri             Montana             
[28] Nebraska             Nevada               New Hampshire       
[31] New Jersey           New Mexico           New York            
[34] North Carolina       North Dakota         Ohio                
[37] Oklahoma             Oregon               Pennsylvania        
[40] Rhode Island         South Carolina       South Dakota        
[43] Tennessee            Texas                Utah                
[46] Vermont              Virginia             Washington          
[49] West Virginia        Wisconsin            Wyoming             
51 Levels: Alabama Alaska Arizona Arkansas California ... Wyoming

La siguiente gráfica muestra la cantidad de diagnosticos de cancer por cada 1000 habitantes en cada estado.

Pobla<-Dat$CanDiag
barplot(Pobla, main = "Diagnósticos por cada 1000 personas", xlab = " ",
        ylab="Cantidad de diagnósticos")

La siguiente gráfica muestra el porcentaje de personas mayores de 65 años en cada estado.

Pobla<-Dat$Pop65
Pob.n<-Dat$State
Pob.l<-Dat$State
barplot(Pobla, main = "Porcentaje de personas mayores de 65 años.",
        ylab="% Población mayor")

Se buscaba un mejor entendimiento sobre una discusión ilustrada en WarpPLS con las hipotesis de que a mayor latitud (ubicación del estado), mayor cantidad de casos de cancer; y que a mayor edad, lo mismo.

Analisis en WarpPLS

Analisis en WarpPLS

En efecto, el analisis mostró que mayores latitudes son asociadas a una mayor incidencia en el cancer debido a la baja exposicion humana a la luz el sol.

De igual manera, se muestra que hay una relación entre mayor edad y el cancer.

LS0tDQp0aXRsZTogIkV4YW1lbiBTZW1pbmFyaW8gZGUgQ29uc3RydWNjaW9uZXMiDQphdXRob3I6ICJKLiBTZWJhc3RpYW4gQ29sbGF6b3MgQS4sIENvZDogMDc1MTIxMCwgQ2VsOiAzMDE3ODg5MTU5Ig0KZGF0ZTogIjAxIGRlIEp1bmlvIGRlIDIwMTguIg0KDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpTZSByZWFsaXrzIHVuIGVzdHVkaW8gZW4gZWwgY3VhbCBzZSBoaXpvIHVuIGFuYWxpc2lzIGVuIGxvcyA1MSBlc3RhZG9zIGRlIEVzdGFkb3MgVW5pZG9zLiBFc3RlIGFuYWxpc2lzIHNlIGJhc/MgZW4gZGF0b3Mgb2J0ZW5pZG9zIGRlbCBjZW5zbyBkZWwgMjAxMSBlbiBkaWNobyBwYWlzLg0KDQpBIGNvbnRpbnVhY2nzbiBsYSBsaXN0YSBkZSBlc3RhZG9zOg0KDQpgYGB7cn0NCkRhdDwtcmVhZC5jc3YoIm1hdF9leGEuY3N2IikNCmxpYnJhcnkoZ2dwbG90MikNCkRhdCRTdGF0ZQ0KYGBgDQoNCkxhIHNpZ3VpZW50ZSBncuFmaWNhIG11ZXN0cmEgbGEgY2FudGlkYWQgZGUgZGlhZ25vc3RpY29zIGRlIGNhbmNlciBwb3IgY2FkYSAxMDAwIGhhYml0YW50ZXMgZW4gY2FkYSBlc3RhZG8uDQoNCmBgYHtyfQ0KUG9ibGE8LURhdCRDYW5EaWFnDQpiYXJwbG90KFBvYmxhLCBtYWluID0gIkRpYWdu83N0aWNvcyBwb3IgY2FkYSAxMDAwIHBlcnNvbmFzIiwgeGxhYiA9ICIiLA0KICAgICAgICB5bGFiPSJDYW50aWRhZCBkZSBkaWFnbvNzdGljb3MiKQ0KYGBgDQoNCkxhIHNpZ3VpZW50ZSBncuFmaWNhIG11ZXN0cmEgZWwgcG9yY2VudGFqZSBkZSBwZXJzb25hcyBtYXlvcmVzIGRlIDY1IGHxb3MgZW4gY2FkYSBlc3RhZG8uDQoNCmBgYHtyfQ0KUG9ibGE8LURhdCRQb3A2NQ0KYmFycGxvdChQb2JsYSwgbWFpbiA9ICJQb3JjZW50YWplIGRlIHBlcnNvbmFzIG1heW9yZXMgZGUgNjUgYfFvcy4iLA0KICAgICAgICB5bGFiPSIlIFBvYmxhY2nzbiBtYXlvciIpDQpgYGANCg0KU2UgYnVzY2FiYSB1biBtZWpvciBlbnRlbmRpbWllbnRvIHNvYnJlIHVuYSBkaXNjdXNp824gaWx1c3RyYWRhIGVuIFdhcnBQTFMgY29uIGxhcyBoaXBvdGVzaXMgZGUgcXVlIGEgbWF5b3IgbGF0aXR1ZCAodWJpY2FjafNuIGRlbCBlc3RhZG8pLCBtYXlvciBjYW50aWRhZCBkZSBjYXNvcyBkZSBjYW5jZXI7IHkgcXVlIGEgbWF5b3IgZWRhZCwgbG8gbWlzbW8uDQoNCiFbQW5hbGlzaXMgZW4gV2FycFBMU10od2FycHBscy5qcGcpDQoNCkVuIGVmZWN0bywgZWwgYW5hbGlzaXMgbW9zdHLzIHF1ZSBtYXlvcmVzIGxhdGl0dWRlcyBzb24gYXNvY2lhZGFzIGEgdW5hIG1heW9yIGluY2lkZW5jaWEgZW4gZWwgY2FuY2VyIGRlYmlkbyBhIGxhIGJhamEgZXhwb3NpY2lvbiBodW1hbmEgYSBsYSBsdXogZWwgc29sLg0KDQpEZSBpZ3VhbCBtYW5lcmEsIHNlIG11ZXN0cmEgcXVlIGhheSB1bmEgcmVsYWNp824gZW50cmUgbWF5b3IgZWRhZCB5IGVsIGNhbmNlci4NCg==