Se analizan datos suministrados por una encuesta realizada en google forms, respecto a su sexo,telefono y edad.

encuesta: https://forms.gle/HW62PfwMSudQGGHVA

Metodologia(codigo)

df=read.csv(“https://docs.google.com/spreadsheets/d/e/2PACX-1vQTOFA_pENeSpTM3uhEcrFzoSzS6pKqI0V99jQoP6UX8dr5ay3pOeuULTviVmMtyuYOmGh_z8vNWHPu/pub?output=csv”)

attach(df)

names(df)

tabla1=table(sexo,telefono)

tabla1

frecuencia relativa fila

tabla2=prop.table(tabla1, margin=1)

tabla2

el 18% de los hombres tiene un celular iphone, mientras que un 37% tienen samsung y un 44% tiene un xiaomi, en el caso de las mujeres el 34% de ellas tiene iphone, el 30% samsung y el 34% xiaomi #### frecuencia relativa columna

tabla3=prop.table(tabla1, margin=2)

tabla3

de todas las persoas encuestadas hombres que poseen iphone equivale a 38% mientras que las mujeres equivalen al 61% #### representación grafica de la tabla de contingencia

col=c(“green”,“blue”)

barplot(tabla3,col=col)

legend(legend=c(“hombre”,“mujer”),fill=col, x=3, y=1)

esta tabla muestra el numero de hombres y mujeres encuestados

Tabla cruzada de variables continuas vs categóricas

library(crosstable)

library(dplyr) crosstable(df, col= edad, by=telefono) %>% as_flextable(keep_id=TRUE) C=crosstable(df, col= edad, by=telefono)

representación gráfica

library(ggplot2)

p <- ggplot(df, aes(x=telefono, y=edad, col=telefono, fill=telefono)) + # fill=name allow to automatically dedicate a color for each group geom_violin()

p

la mayor frecuencia la posee iphone ya que es la mas ancha de las 3, mientras que samsung posee un mayor rango