PREGUNTAS

PREGUNTA 1:

Para esta pregunta se uso la siguiente base de datos:

bdata= read.csv("http://www.princeton.edu/~otorres/mydataviz.csv", header = TRUE, 
                stringsAsFactors = FALSE) 
bdata<-na.omit(bdata)

a)Graficar la tasa de desempleo para el partido demócrata y otro para el partido republicano.

Primero separamos la tasa de desempleo para Republicanos(repub) y los Democratas(democ)

repub<-bdata$unemp[bdata$party=="Republican"]
democ<-bdata$unemp[bdata$party=="Democrat"]

Para las graficas usamos los datos separados antes(repub y democ)

par(mfcol=c(2,1), mar=c(2,5,2,1))
plot(democ, type="l", col="blue",xlab="",ylab="Tasa de desempleo (%)",xaxt="n",
     bty="l")
title(main="GOBIERNO DEMÓCRATA", adj=0, font=2)
abline(h=5.75, col="red", lty=2,lwd=2)
axis(side=2,c(6,10),c(6,10))
text(10, 9, "- - -",col="red", cex=0.88)
text(25, 9, "Tasa de desempleo\nmedio=5.75%",col="black", cex=0.88,font = 1,adj=0)

plot(repub, type="l", col="blue",xlab="",ylab="Tasa de desempleo (%)",xaxt="n",
     bty="l")
title(main="GOBIERNO REPUBLICANO", adj=0, font=2)
abline(h=5.76, col="red", lty=2,lwd=2)
axis(side=2, c(6,10), c(6,10))
text(355, 9.5, "- - -",col="red", cex=0.88)
text(370, 9.5, "Tasa de desempleo\nmedio=5.75%",col="black", cex=0.8,font = 1,adj=0)

b)Realizar la gráfica del modelo lineal entre el nivel de desempleo y el nivel de aprobación.

Primero separamos el nivel de aprobacion para Republicanos(aprorep) y los Democratas(aprodemoc)

aprorep<-bdata$approve[bdata$party=="Republican"]
aprodemoc<-bdata$approve[bdata$party=="Democrat"]

Para las graficas y la rectas de regresion respectivas usamos los ultimos datos separados(aprorep y aprodemoc) y los datos separados anteriormente(democ y repub)

par(mfcol=c(1,2), mar=c(3,4,5,2))

dm<-cbind(democ,aprodemoc)
dm1<-as.data.frame(dm)

plot( democ, aprodemoc , type="p",col="blue",xlab="Nivel de desempleo"
      ,ylab="Nivel de aprobación", bty="l")
title(main="GOBIERNO DEMÓCRATA", adj=0, font=2)
axis(side=2,c(30,50,70),c(30,50,70))
text(8, 76, "—",col="red", cex=1)
text(8.5, 76, "Linea de\nregresión",col="black", cex=0.75,font = 1,adj=0)
abline(lm(aprodemoc~democ, data = dm1), col="red",lty=1,lwd=2)

rp<-cbind(repub,aprorep)
rp1<-as.data.frame(rp)

plot( repub, aprorep , type="p",col="blue",xlab="Nivel de desempleo"
      ,ylab="Nivel de aprobación", bty="l")
title(main="GOBIERNO REPUBLICANO", adj=0, font=2)
axis(side=2,c(40,60,80),c(40,60,80))
text(8.3, 82, "—",col="red", cex=1)
text(8.8, 82, "Linea de\nregresión",col="black", cex=0.75,font = 1,adj=0)
abline(lm(aprorep~repub, data = rp1), col="red",lty=1,lwd=2)