Preferencias de actividad deportiva y cultural en una muestra de 30 alumnos actividad <- c(‘Dibujo’, ‘Tiro con Arco’, ‘Baile’, ‘Voleybol’, ‘Futbol’, ‘Americano’, ‘Natación’, ‘Tahitiano’, ‘Natación’, ‘Tiro con Arco’, ‘Futbol’, ‘Americano’, ‘Basquetbol’, ‘Banda de Guerra’, ‘Voleybol’, ‘Futbol’, ‘Oratoria’, ‘Tahitiano’, ‘Box’, ‘Futbol’, ‘Voleybol’, ‘Natación’, ‘Pesas’, ‘Fotografía’, ‘Basquetbol’, ‘Dibujo’, ‘Ajedrez’, ‘Dibujo’, ‘Fotografia’, ‘Voleybol’,‘Halterofilia’, ‘Atletismo’, ‘Basquetbol’, ‘Dibujo’, ‘Box’, ‘Atletismo’, ‘Dibujo’, ‘Ajedrez’) actividad

frecuencia <- table(actividad) frecuencia

n = length(actividad) n

barplot(frecuencia) # Gráfica de barras

frec.relativa <- frecuencia / n frec.relativa

frec.porc <- frec.relativa * 100 frec.porc

Quiero los datos en una tablita bonita

tablafrecuencia <- transform(frecuencia) tablafrecuencia

Nuevas columnas en tablafrecuencia

tablafrecuencia\(frec.relativa = frec.relativa tablafrecuencia\)frec.porcentual = frec.porc

tablafrecuencia