Ayudantía 4

Vista previa del material en texto

Ayudantía n°4
12 de abril
EN esta sesión…
- Reforzar lo visto en clase 4
- proporciones de columna y de fila
- Star Wars
Proporciones y gráficos de barra
data <- ceramica
data1 <- data.frame(data) 
data1$porcentCosta <- (prop.table(data1$"Costa"))*100
data1$porcentInterior <- (prop.table(data1$"Interior"))*100
data1$porcentAltiplano <- (prop.table(data1$"Altiplano"))*100
Proporciones y gráficos de barra
data2 <- data.frame(Sitio=rep(c("Costa", "Interior", "Altiplano"), each=2), Categoria=c("Incisa", "Modelada", 
"Incisa","Modelada", "Incisa", "Modelada"), Porcentaje=c(48.33, 51.67, 33.33, 66.67, 32.43, 67.57))
ggplot(data=data2, aes(x=Sitio, y=Porcentaje, fill=Categoria))+geom_bar(stat="identity", 
position=position_dodge())+scale_y_continuous(limits=c(0,100))+theme_minimal()+theme(text=element_text(size=12))+sca
le_fill_manual(values=c("purple","blue"))
base de datos
Para la función crosstab debemos trabajar con una base 
de datos que sólo tenga variables categóricas. Sin 
números. Esta la podemos crear en R, creando vectores y 
luego unirlos en un data frame.
sitio <- c(rep("Costa",60),rep("Interior",66),rep("Altiplano",37))
categoria <- c(rep("Incisa",29),rep("Modelada",31),rep("Incisa",22),rep("Modelada",44),
rep("Incisa",12),rep("Modelada",25))
data<- data.frame(sitio, categoria)
Ejemplo
Función crosstab 
library(descr)
Función crosstab 
library(descr)