PARCIAL 1

Es un estudio realizado en Estados Unidos, que relaciona la latitud con la adqusiscion de cancer.

L<-read.csv("Datos2.csv", sep = ";")
j<-as.data.frame(L$Latitude)
library(ggplot2)
n<-c(L$State)
qplot(j, x = L$State) + xlab("ESTADOS") + ylab("LATITUD (°)") + scale_x_discrete(breaks = n) + scale_y_continuous(breaks = seq(15, 65, by = 5), limits = c(15,65)) 

library(ggplot2)
ggplot(L, aes(x = L$Latitude)) + geom_histogram(breaks=seq(20,51.2, by=5.2),binwidth =8,color="black", fill = "dark red") +scale_x_continuous(name = "LATITUD (°)",breaks = seq(20,51.2, by=5.2),limits=c(20,51.2)) +
scale_y_continuous(name = "ESTADOS ",limits=c(0,20),breaks = seq(0,20, by=1)) + ggtitle("HISTOGRAMA LATITUD") + theme(plot.title = element_text(hjust = 0.5)) + 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%")) 

Se observa que la latitud que predomina en Estados unidos esta entre 35.6° y 40.8° que representa el 38% de los estados. Relacionando con el articulo de Australia se observa que son propensos a adquirir el cancer.

j<-as.data.frame(L$Cancer.diagnoses.per.thou)
library(ggplot2)
n<-c(L$State)
qplot(j, x = L$State) + xlab("ESTADOS") + ylab("DIAGNOSTICO DE CANCER POR CADA 1000 PERSONAS") + scale_x_discrete(breaks = n) + scale_y_continuous(breaks = seq(3, 7, by = 0.5), limits = c(3,7)) 

library(ggplot2)
ggplot(L, aes(x = L$Cancer.diagnoses.per.thou)) + geom_histogram(breaks=seq(3.5,7, by=0.5),binwidth =8,color="black", fill = "dark red") +scale_x_continuous(name = "DIAGNOSTICO DE CANCER POR CADA 1000 PERSONAS",breaks = seq(3.5,7, by=0.5),limits=c(3.5,7)) +
scale_y_continuous(name = "ESTADOS ",limits=c(0,19),breaks = seq(0,19, by=1)) + ggtitle("HISTOGRAMA DIAGNOSTICO DE CANCER POR CADA 1000 PERSONAS") + theme(plot.title = element_text(hjust = 0.5)) + annotate("text", x=c(3.75, 4.25,4.75,5.25,5.75,6.25,6.75),y=c(2,5,13,18,14,4,2),label=c("2%", "7.9%","23.5%","33.33%","27.4%","5.9%","2%"))

j<-as.data.frame(L$Pop...65.yo..)
library(ggplot2)
n<-c(L$State)
qplot(j, x = L$State) + xlab("ESTADOS") + ylab("POBLACIÓN MAYOR A 65 AÑOS") + scale_x_discrete(breaks = n) + scale_y_continuous(breaks = seq(7, 18, by = 0.5), limits = c(7,18)) 

ggplot(L,aes(x= L$Pop...65.yo..))+geom_histogram(breaks=seq(7,19, by=2),binwidth =8,color="black", fill = "dark red")+scale_x_continuous(name = "POBLACIÓN MAYOR A 65 AÑOS CON CANCER (%)",breaks = seq(7,19, by=2),limits=c(7,19)) + scale_y_continuous(name = "ESTADOS ",limits=c(0,22),breaks = seq(0,22, by=1)) + ggtitle("HISTOGRAMA POBLACIÓN MAYOR A 65 AÑOS CON CANCER") + theme(plot.title = element_text(hjust = 0.5))  + 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%"))