Parcial R

Se realizó un estudio en 51 de los estados de Estado Unidos para ver la relacion que tiene el cancer en las personas con la latitud en las que se encuentran.

CANCER<-read.csv("CANCER.csv", stringsAsFactors = F, header= TRUE)

Los estados estudiados se enumeran a continuación:

(CANCER[,1])

 [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"             

ggplot(CANCER,aes(x=CANCER[,2]))+geom_histogram(breaks=seq(20,51.2, by=5.2),binwidth =8,color="black", fill = "green")+scale_x_continuous(name = "Latitud",breaks = seq(20,51.2, by=5.2),limits=c(20,51.2)) +
        scale_y_continuous(name = "Cantidad de Estados estudiados ",limits=c(0,20),breaks = seq(0,20, by=1)) +
        ggtitle("Histograma de Latitudes") +annotate("text", x=c(22.6,27.8,33,38.2,43.4,48.6),y=c(2,2,11,20,17,4),label=c("2%","2%","20%","38%","32%","6%"))

La grafica anterior muestra intervalos de latitudes de los 51 estado estudiados exceptuando la latitud de Alaska que es un outlaier con una latitud de 61.39 Grados.

De los 51 estudiados el mayor rango de latitudes (con un 38%) a las que se encuentran estos estados estan entre 35.6 y 40.8 Grados.

ggplot(CANCER,aes(x=CANCER[,3]))+geom_histogram(breaks=seq(4,7, by=0.5),binwidth =8,color="black", fill = "blue")+scale_x_continuous(name = "cantidad de personas con cancer por cada 1000",breaks = seq(4,7, by=0.5),limits=c(4,7)) +
        scale_y_continuous(name = "Cantidad de Estados estudiados ",limits=c(0,20),breaks = seq(0,20, by=1)) +
        ggtitle("Histograma de personas con cancer") +annotate("text", x=c(4.25,4.75,5.25,5.75,6.25,6.75),y=c(5,13,18,14,4,2),label=c("7.9%","23.5%","33.33%","27.4%","5.9%","2%"))

NA

Como se puede observar en la anterior grafica la mayor tasa de personas con cancer en Estados Unidos se encuentra entre 5 y 5.5 (por cada mil personas) obteniendo un 33.33% en relacion a los 51 estados estudiados.

ggplot(CANCER,aes(x=CANCER[,4]))+geom_histogram(breaks=seq(7,19, by=2),binwidth =8,color="black", fill = "red")+scale_x_continuous(name = "porcentaje de personas con cancer mayor de 65 años",breaks = seq(7,19, by=2),limits=c(7,19)) +
        scale_y_continuous(name = "Cantidad de Estados estudiados ",limits=c(0,21),breaks = seq(0,21, by=1)) +
        ggtitle("Histograma de personas con cancer") +annotate("text", x=c(8,10,12,14,16,18),y=c(4,7,11,21,10,4),label=c("5.9%","11.8%","20%","39%","17.6%","5.9%"))

del rango de 13-15% de las personas mayores de 65 años con cancer, son el porcentaje mas propenso a que mas veces se dio en el estudio de los 51 estados con un porcentaje sobre los demas rangos del 39%. lo que indica que la mayor parte de personas mayores a 65 años propensas a sufrir cancer (por cada mil personas) en estados unidos se encuentran en un rango del 13-15% del total de personas con cancer.