Bienvenida e introducci贸n

1

Todo lo que aprender谩s sobre el lenguaje R

2

Programaci贸n y Data Science

3

R y proyecto econom铆a naranja.

4

Instalando nuestras herramientas

Variables, tipos de datos y estructuras

5

Los primeros c谩lculos con R y variables

6

Tipos de datos

7

Estructura del dataset del proyecto

8

Vectores

9

Matrices

10

Ejercicios con matrices

11

Operadores para comparar y ubicar datos

12

Factores, listas y echar un vistazo al dataset

EDA: Exploratory data analysis

13

Qu茅 es EDA: Exploratory Data Analysis

14

Gr谩ficas de dispersi贸n e histogramas.

15

Box Plot y su interpretaci贸n

16

EDA con dataset proyecto - Gr谩ficas de dispersi贸n.

17

EDA con histogramas.

18

EDA con dataset proyecto - histogramas - ggplot2

19

EDA con box plot- ggplot2

20

EDA con dataset proyecto - box plot- ggplot2 - dplyr

21

EDA con gr谩ficas de dispersi贸n con m谩s de dos variables - ggplot2

22

EDA con dataset proyecto usando gr谩ficas de dispersi贸n con m谩s de dos variables - ggplot2 - plotly

La estad铆stica de los datos

23

Buscando correlaciones con pairs

24

Confirmando correlaciones con la funci贸n cor

25

Buscando correlaciones con pairs en dataset proyecto

26

Confirmando correlaciones con la funci贸n cor en dataset proyecto.

27

Protegi茅ndonos de los peligros del promedio.

28

Eliminando los NA's para hacer los c谩lculos.

29

Estad铆stica y visualizaci贸n aplicada a an谩lisis de datos de mercadeo.

Ajustando los datos

30

Generando tablas, filtrando y seleccionando datos - dplyr-Parte 1

31

Generando tablas, filtrando y seleccionando datos - dplyr-Parte 2

Mejorando la visualizaci贸n

32

Viendo m谩s informaci贸n con facet wrap - Parte 1

33

Viendo m谩s informaci贸n con facet wrap - Parte 2

Organizar visualizaciones y c贸digo con R Markdown

34

Conociendo R Markdown y organizando los hallazgos del an谩lisis en un documento PDF.

Conclusiones Finales

35

Invitaci贸n a continuar recorriendo el mundo del data science.

No tienes acceso a esta clase

隆Contin煤a aprendiendo! 脷nete y comienza a potenciar tu carrera

EDA con box plot- ggplot2

19/35
Recursos

Para realizar EDA con un box plot dentro de R debemos utilizar la funci贸n boxplot, los argumentos que debemos pasarle son:

  • la informaci贸n que vamos a explorar.
  • ylab: t铆tulo para el eje y.
  • main: t铆tulo de la gr谩fica.

Tambi茅n podemos usar ggplot2 para crear un Box Plot.

Aportes 59

Preguntas 14

Ordenar por:

驴Quieres ver m谩s aportes, preguntas y respuestas de la comunidad?

o inicia sesi贸n.

  • Q1 (25% de los datos)

  • Q2 o mediana (el 50% de los datos)

  • Q3 (75% de los datos)

  • Rango intercuart铆lico RIC (Q3鈥換1)

  • Se consideran at铆picos(outliers) los valores inferiores a Q1-1.5路**RIC **o superiores a Q3+1.5路RIC

  • Se pueden considerar valores extremadamente at铆picos aquellos que exceden Q1- 3路**RIC **o Q3+3路RIC.

C L A S E 1 9 馃く
EDA con box plot- ggplot2

.
.
El dataset usado fue mtcars 馃殫
Se aprende en tres ejemplos como graficar boxplot y hacer un par de modificaciones:
.
as.factor() para indicar que el numero es una categoria. Se paso de ver con error la grafica a ver las tres categorias de 4, 6 y 8 cilindros en cada boxplot correspondiente
.
(alpha= ) para cambiar el color de un boxplot en la grafica. Se cambio un azul oscuro por
un gris para ver la linea de la media
.
dataset$variable <- para cambiar la expresi貌n de los datos de una variable. Se paso de TRUE,FALSE a MANUAL, AUTOMATICO
.
.
EJEMPLO 1
"Caballos de fuerza en carros mtcars"
.
ylab = etiqueta en el eje y
main = titulo del boxplot
.

.
.
EJEMPLO 2
"Caballos de fuerza segun cilindros en mtcars"
.
Hay dos ajustes x=as.factor(cyl) y alpha=0.6
.
as.factor para convertir en etiquetas los datos del eje x porque recuerda que en el boxplot se cruza una variable numerica y una categorica
.
alpha=0.6 para modificar el color del boxplot en la categoria de carros con 4 cilindros
.

.
.
EJEMPLO 3
"Millas por galon segun tipo de caja"
.
Se hizo un cambio en la expresi貌n de la variable am de TRUE, FALSE a MANUAL, AUTOMATICO:
.
mtcars$am <- factor(mtcars$am, levels=c(TRUE,FALSE),
labels=c(鈥淢anual鈥, 鈥淎utomatico鈥))

.

Cordial Saludo, en mi caso particular cuando me sale el siguiente error:

Error: Must request at least one colour from a hue palette.

Fue debido a que en el reemplazo de TRUE/FALSE por Manual/Automatico quedo con valores NA. Hice la consulta de lo que habia en ese campo con la instruccion mtcars$am y arrojo lo siguiente:

> mtcars$am
 [1] <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
[16] <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
[31] <NA> <NA>

Para solucionar esto lo que hice fue cargar nuevamente el dataframe() y realizar nuevamente el reemplazo y funciono correctamente. Adjunto mi codigo

En caso de que tengas el siguiente error:

Error: Must request at least one colour from a hue palette.

aseg煤rate que la transformaci贸n de los labels cambien el contenedor de c(TRUE, FALSE) por c(1, 0) ya que el dataset de mtcars en el campo am est谩 con 1 y 0, el comando a ejecutar es:

mtcars$am <- factor(mtcars$am, levels = c(1, 0),
                    labels = c('Manual', 'Automatico'))

A la dimensi贸n de la caja en el sentido vertical, se le conoce como** rango intercuart铆lico**, (y son los datos que se encuentran entre el tercer y el primer cuartil), esta es una medida de dispersi贸n de los datos.

Recordemos que el 25% de los datos est谩n dentro del primer cuartil, el 50% de los datos dentro del** segundo cuartil** (mediana), el 75% dentro del tercer cuartil, y al 100% de los datos se le conoce como cuarto cuartil.

Entonces el rango intercuart铆lico comprende el 50% de los datos (75% - 25%)

En el caso de las gr谩ficas Boxplot (o gr谩ficas de bigote), se hace referencia a la mediana (segundo cuartil) y no a la media, ya que esta no est谩 representada en la gr谩fica, claro se puede agregar.

Si les sale el error:

Error: Must request at least one colour froma hue palette

Significa que cagaron la base de datos, es m谩s, mirenla. Vayan al campo 鈥淎M鈥 y vean que dir谩 鈥淣A鈥, es decir, nulo/vac铆o. Importen de nuevo la base mtcars y vuelvan a ejecutar todo pero esta vez corran antes la parte donde se transforman los labels que el ggplot.

Por alguna raz贸n que desconozco, no tenia cambiado mis valores booleano a true or false as铆 que los cambie en el procedimiento que se le asigno a la variable mtcars$am y me funcion贸

#
ggplot(mtcars,aes(x=am, y=mpg, fill=am))+
   geom_boxplot()+
   labs(x="tipo de caja",y="millas por galon",
        title="Millas por galon segun tipo de caja-mtcars")+
   theme(legend.position = "none")+
   theme(panel.background = element_blank(),
         panel.grid.major = element_blank(),
         panel.grid.minor = element_blank())


#
mtcars$am <- factor(mtcars$am, levels = c(1,0),
                    labels = c("manual","automatico"))

Tuve demasiado demasiado problema para poder sacar ese boxplot. En parte fue porque primero busqu茅 la respuesta en los dos libros que han recomendado compa帽eros anteriormente (R para ciencia de datos y R para principiantes), luego intent茅 ChatGPT y tampoco daba con el chiste. Ya cuando me estaba frustrando me acord茅 de que en los comentarios usualmente publican errores que han tenido compa帽eros anteriormente y la soluci贸n que le dieron, as铆 lo logr茅. No solo me llev贸 a pensar que ya es hora de que actualicen el curso, sino que es muy valiosa la comunidad de Platzi 馃槃

Los bigotes del gr谩fico no son m铆nimo y m谩ximo, por eso el valor extremo que sale arriba es por arriba del bigote. Si as铆 fuera no existiese un valor que sobre salga de los bigotes

Para el error de

<Error: Must request at least one colour from a hue palette>

脷nicamente deben modificar el fill de la siguiente manera

< fill="red">

Estructura final

<ggplot(mtcars, aes(x=am , y=mpg, fill="red"))+
  geom_boxplot()+
  labs(x="Tipo de caja ", y="Millas de galon", title = "Millos por galon")>

Reto cumplido
![](

Codigo:

#
ggplot(mtcars, aes(x=am, y=mpg, fill=am))+
  geom_boxplot()+
  labs(x="Tipos de caja", y="millas por gal贸n",
       title = "Millas por gal贸n seg煤n tipos de caja mtcars")+
  theme(legend.position = "none")+
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())

# Para ajustar las etiquetas de nuestro boxplot. Sin esto. las
# etiquetas de los dos boxplot se llamar铆a FALSE y TRUE 
# en vez de Manual y Autom谩tico
mtcars$am <- factor(mtcars$am, levels=c(TRUE,FALSE),
                    labels = c("Manual", "Autom谩tico")
                    )

Por favor su ayuda para resolver el error:

ggplot(mtcars, aes(x=am, y=mpg, fill=am))+

  • geom_boxplot()+
  • labs(x=鈥淭ipo de caja鈥, y=鈥淢illas por gal贸n鈥,
  •    title = "Millas por gal贸n seg煤n tipo de caja - mtcars")+
    
  • theme(legend.position = 鈥渘one鈥)+
  • theme(panel.background = element_blank(),
  •     panel.grid.major = element_blank(),
    
  •     panel.grid.minor = element_blank())
    

Error: Must request at least one colour from a hue palette.

chicos, es lavels o labels?

El 305 es un valor atipico.
305> Q3+1.5路RIC

Les comparto algo del codigo que utilice para esta clase

#boxplot

boxplot(mtcars$hp,
ylab=鈥渃aballos de fuerza鈥,
main=鈥淐aballos de fuerza en carros mtcars鈥)

#usamos el package ggplot para tener un mejor grafico
#boxplot por separado
ggplot(mtcars, aes(x=as.factor(cyl),y=hp,fill=cyl))+
geom_boxplot(alpha=0.6)+
labs(x=鈥渃ilindros鈥,
y=鈥渃aballos de fuerza鈥,
title=鈥淐aballos de fuerza segun cilindros en mtcars鈥)+
theme(legend.position = 鈥渘one鈥)+
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())

#usamos el package ggplot para tener un mejor grafico
#boxplot por separado
ggplot(mtcars,aes(x=as.factor(am),y=mpg,fill=am))+
geom_boxplot()+
labs(x=鈥淭ipo de caja鈥,
y=鈥渕illas por galon鈥,
title=鈥淢illas por galon segun tipo de caja mtcars鈥)+
theme(legend.position = 鈥渘one鈥)+
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())

#cambiar variables del grafico en el dataset
#ajustando etiquetas en el eje x
mtcars$am <- factor(mtcars$am, levels=c(0,1),
labels=c(鈥淢anual鈥,鈥淎utomatico鈥))

Comparto visualizaci贸n de gr谩fica Boxplot del dataset mtcars:

Soluci贸n para 鈥淓rror: Must request at least one colour from a hue palette.鈥

  • Primero recuerden que el data set original viene con la variable AM con valor de 0 Y 1
  • En clases anteriores la profesora pas贸 esos valores de 0 y 1 a valores booleanos es decir 鈥淭RUE or FALSE鈥.
    Para hacer ello ella us贸:
  • Nosotros lo m谩s probable es que hayamos cerrado la ventana y hubi茅ramos continuado las clases en otro d铆a, pero la profesora lo ha hecho todo en un mismo d铆a al parecer, por lo que ella en esta clase decidi贸 pasar los 鈥淭RUE or FALSE鈥 a variables categ贸ricas 鈥淎utom谩tico鈥, 鈥淢anual鈥 con esto:
  • Y despu茅s de eso ya pueden ejecutar el c贸digo que hizo la profesora:

RESULTADO:

RECOMENDACI脫N: Cierren el data set y hagan paso a paso lo que he escrito. Espero que sea de ayuda 馃槃

Es algo nuevo para mi esto de como funciona los automoviles pero segun lo que eh investigado usare los caballos de fuerza con los motores.

Luego hacer el codigo para el boxplot de motor versus los caballos de fuerza
ggplot(mtcars, aes(x = vs, y = hp, fill = vs))
+ geom_boxplot() +
labs(x = 鈥渢ipo de motor鈥, y = "Caballos de fuerza ",
title = 鈥淐antidad de potencia del motor鈥) +
theme(legend.position = 鈥渘one鈥) +
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())
Entonces el gr谩fico que se tiene es el siguiente:

Se observa que los motores V-shaped son los que tienen mayor rendimiento teniendo mas caballos de fuerza.

ggplot(mtcars,aes(x=am,y=mpg,fill=am))+
  geom_boxplot()+
  labs(x="Tipo de caja", y="millas por gal贸n",
       tittle="Millas por gal贸n seg煤n tipo de caja-mtcars")+
  theme(legend.position = "none")+
  theme(panel.background = element_blank(), 
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())

#Cambiamos la etiqueta y volvemos a cargar el antetior c贸digo
mtcars$am <- factor(mtcars$am, levels=c(TRUE,FALSE),
                    labels=c("Manual","Autom谩tico"))

A qui茅n se le hace parecido a las velas Japonesas de trading

En ese ejemplo los carros con 4 cilindrajes alcanzan un promedio por encima de 18 segundos en los que alcanza un cuarto de milla, los de 5 cilindrajes solo un poco por encima de los 18 segundos y los de 6 cilindrajes por debajo de los 18 segundos.

# Boxplot

boxplot(mtcars$hp,
        ylab = 'caballos de fuerza',
        main = 'Caballos de fuerza en carros')

library(ggplot2)

ggplot(mtcars, aes(x=as.factor(cyl), y=hp, fill = cyl))+
  geom_boxplot(alpha = 0.6)+
  labs(x = 'cilindros',
       y = 'caballos de fuerza',
       title = 'Caballos de fuerza segun cilindros')+
  theme(legend.position = "none")+
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())

ggplot(mtcars,aes(x=am,y=mpg, fill=am))+
  geom_boxplot()+
  labs(x='Tipo de caja',
       y='millas por galon',
       title = 'Millas por galon segun tipo de caja')+
  theme(legend.position = "none")+
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())


mtcars$am <- factor(mtcars$am, levels = c(TRUE, FALSE),
                    labels = c('Manual', 'Automatico'))

luego de haber hechos los cambios de falso, verdadero a Manual y Autom谩tico me sale el error
Error: Must request at least one colour from a hue palette.
para solucionar volv铆 a cargar la base tmcars y cambiar
de esta forma con 0 y 1 a maunual y autom谩tico.
mtcars$am <- factor(mtcars$am, levels = c(1,0),
labels = c(鈥淢anual鈥,鈥淎utom谩tico鈥))
ejecutar nuevamente y se soluciona

as铆 me qued贸 a mi

al intentar ejecutar los boxplot con ggplot, me salta este error:
Error: Must request at least one colour from a hue palette.

Cual seria el analisis de la grafica?

Al hacer el boxplot con ggplot tme sale este error
Error: Must request at least one colour from a hue palette.

Millas por galon segun tipo de motor:

mtcars$vs <- factor(mtcars$vs, levels = c(TRUE, FALSE),
                    labels = c("Straight", "V-shaped"))

ggplot(mtcars, aes(x=vs, y=mpg, fill=vs))+
        geom_boxplot()+
        labs(x="Tipo de motor", y="Millas por galon",
             title = "Millas por galon segun tipo de motor")+
        theme(legend.position = "none")+
        theme(panel.background = element_blank(),
              panel.grid.major = element_blank(),
              panel.grid.minor = element_blank())```

Este es mi codigo y me sale este error que pueder ser?
<ggplot(mtcars, aes(x=as.factor(cyl), y=hp,fill=cyl))+
geom_boxplot(alpha=0.6)+
labs(x=鈥渃ilindros鈥, y=鈥渃aballos de fuerza鈥,
title = 鈥渢est鈥)+
theme(legend.direction = 鈥渘one鈥)+
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())

ERROR: Error in if (!g$title.position %in% c(鈥渢op鈥, 鈥渂ottom鈥, 鈥渓eft鈥, 鈥渞ight鈥)) stop("title position 鈥溾, :
argument is of length zero

Comparto ejercicio paralelo al visto en la clase donde se evalua Cantidad de carburadores por tipo de motor.

ggplot(mtcars.new,aes(x=vs,y=carb, fill=am))+
  geom_boxplot()+
  labs(x="Forma de motor", y="N煤meros de carburador",
       title="Cantidad de carburadores por tipo de motor ")+
  theme(legend.position = "none")+
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())```
<h1>tarea: convierto en factor el atributo la forma del motor: en V o en linea</h1>

mtcars$vs <- factor(mtcars$vs,
levels = c(TRUE, FALSE),
labels = c(鈥淟铆nea鈥, 鈥淰鈥))
ggplot(mtcars,
aes(x = vs,
y = mpg,
fill = vs)) +
geom_boxplot() +
labs(x = 鈥淔orma del Motor鈥,
y = 鈥淢illas por Gal贸n鈥,
title = 鈥淢illas por Gal贸n seg煤n la Forma del Motor鈥) +
theme(legend.position = 鈥渘one鈥) +
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())

驴Podr铆an orientarme, por favor, para comprender porqu茅 me sale el siguiente error si, seg煤n yo, tengo lo mismo que en el video?

> mtcars$am <- factor(mtcars$am, levels=c(TRUE,FALSE),
+                  labels=c("Manual","Autom谩tico"))
Error in mtcars$am : $ operator is invalid for atomic vectors

Observaci贸n:
Mi c贸digo completo es este:

ggplot(mtcars,aes(x=as.logical(am), y=mpg, fill=am))+
geom_boxplot()+
labs(x=鈥淭ipo de caja鈥, y=鈥淢illas por gal贸n鈥,
title=鈥淢illas por gal贸n seg煤n tipo de caja-mtcars鈥)+
theme(legend.position = 鈥渘one鈥)+
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())

mtcars$am <- factor(mtcars$am, levels=c(TRUE,FALSE),
labels=c(鈥淢anual鈥, 鈥淎utom谩tico鈥))

Declar茅 x como logical porque de la manera que aparec铆a en el video no me graficaba los dos boxplots.

Me sale este error haciendo bloxplot, c贸mo lo puedo solucionar:

ggplot(mtcars,aes(x=as.factor(cyl),y=hp, fill=cyl))+

  • geom_bloxplot()+
  • labs(x=鈥渃ilindros鈥, y=鈥渃aballos de fuerza鈥,
  •    tittle="Caballos de fuerza seg煤n cilindros en mtcars")+
    
  • theme(legend.position=鈥渘one鈥)
    Error in geom_bloxplot() : could not find function 鈥済eom_bloxplot鈥

theme(panel.background = element_blank(),

  •   panel.grid.major = element_blank(),
    
  •   panel.grid.minor = element_blank())
    

Peso (lb) segun VS

![](

Hice el boxplot para an谩llisis de las variables vs (configuraci贸n de motor) y hp (caballos de fuerza).

Primero cambie el label de la variable vs con el siguiente c贸digo:

mtcars$vs<-factor(mtcars$vs,levels = c(TRUE,FALSE),labels =c(鈥淢otor en V鈥,鈥淢otor en l铆nea鈥))

Luego modifiqu茅 el ggplot para agregar los puntos de datos y cambiar el color de los boxplots con el siguiente c贸digo:

ggplot(mtcars,aes(x=vs,y=hp,fill=vs))+
geom_boxplot()+geom_jitter()+
labs(x=鈥淒esplazamiento鈥,y=鈥淐aballos de Fuerza鈥,
title = 鈥淒esplazamiento vs. Caballos de fuerza-mtcars鈥)+
scale_fill_manual(breaks = c(鈥淢otor en V鈥, 鈥淢otor en L铆nea鈥),values=c(鈥測ellow鈥,鈥済reen鈥))+
theme(legend.position=鈥渘one鈥)+
theme(panel.background=element_blank(),
panel.grid.major=element_blank(),
panel.grid.minor=element_blank())

Adjunto captura de pantalla

![](

https://es.wikipedia.org/wiki/Diagrama_de_caja
para entender un poco mejor los valores del boxplot.

驴POR QU脡 ME APARECE ESTE ERROR?

Hola.
Me sale este error:
Error in bloxplot(mtcars$hp, ylab = 鈥淐aballos de Fuerza鈥, main = 鈥淐aballos de fuerza en carros mtcars鈥) :
no se pudo encontrar la funci贸n "bloxplot"
Que debo hacer para este y todos los casos donde me salga este tipo de error?
intente con install.package (boxplot) pero no funciona.

Este es el boxplot que hice:

#boxplot
boxplot(mtcars$hp,
        ylab="caballos de fuerza",
        main="caballos de fuerza en carros mtcars")

#categorica en x y numerica en y
# cajas alargadas nos insinuan datos desviados, cajas chatas datos homogeneos
# cerca al promedio

ggplot(mtcars,aes(x=as.factor(cyl),y=hp,fill=cyl))+
  geom_boxplot(alpha=0.6)+
  labs(x="cilindros",y="caballos de fuerza",
       title="Caballos de fuerza segun cilindros en mtcars")+
  theme(legend.position = "none")+
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())


ggplot(mtcars,aes(x=am,y=mpg, fill=am))+
  geom_boxplot()+
  labs(x="tipo de caja", y="millas por galon",
       title="Millas por galon segun tipo de caja -mtcars")+
  theme(legend.position = "none")+
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())

mtcars$am <- factor(mtcars$am, levels=c("TRUE","FALSE"),
                    labels=c("Manual","Automatico"));```

tengo una duda, solo logro graficar una caja.

ggplot(mtcars, aes(x=am, y=mpg, fill=am))+
geom_boxplot()+
labs(x=鈥榯ipo de caja鈥, y=鈥榤illas por galon鈥,
title = 鈥榤illas por galon segun tipo de mtcars鈥)

Como nota, la grafica de la transmision tiene los valores del eje x invertidos, ya que si revisamos los datos para el maximo de millas por galon de un carro automatico es de 33.9
El cual corresponde graficamente al boxplot rojo ( que en la etiqueta dice 鈥楳anual鈥)

El tiempo que tarda en recorrer el 1/4 de milla seg煤n las velocidades en la caja de cambios.

![](

Muy buen clase!

<h1>tengo el siguientes error</h1>

Continuous x aesthetic 鈥 did you forget aes(group=鈥)?

#el c贸digo es el siguiente
ggplot(mtcars,aes(x=am, y=mpg, fill=am))+ geom_boxplot()+
labs(x=鈥渢ipo de caja鈥,y=鈥渕illas por galon鈥,
title=鈥淢illas por galon segun tipo de caja-mtcars鈥)+
theme(legend.position = 鈥渘one鈥)+
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())

#Solicito ayuda, se agradece!

Si se satura de graficos, y les da error pueden ejecutar en consola: dev.off()
https://stackoverflow.com/questions/20155581/persistent-invalid-graphics-state-error-when-using-ggplot2

A todos al que le salga Error: Must request at least one colour from a hue palette.
tiene que volver a cargar el dataset

mtcars <- read.csv(鈥渞uta鈥,header=TRUE)

y colocar

mtcars$am <- factor(mtcars$am, levels=c(0, 1),
labels=c(鈥楳anual鈥, 鈥楢utomatico鈥))

ggplot(mtcars,aes(x=as.factor(cyl),y=hp,fill=cyl))+
    geom_boxplot(aes(fill=factor(cyl)),alpha=0.3)+ #cambiamos de color 
    labs(x="cilindros", y="caballos de fuerza",title="Caballos de fuerza segun cilindro")+
    theme(legend.position = "none")+
    theme(panel.background = element_blank(),panel.grid.major=element_blank(),
          panel.grid.minor=element_blank())```
 #################graficas de boxplot###############
  # primer boxplot 
  boxplot(mtcars$hp,
          ylab="caballos de fuerza",
          main="Caballos de Fuerza en carros mtcars")
  
  #box plot con ggplot
  
  ggplot(mtcars,aes(x=as.factor(cyl),y=hp,fill=cyl))+
         geom_boxplot()+
           labs(x="cilindros", y="caballos de fuerza",title="Caballos de fuerza segun cilindro")+
           theme(legend.position = "none")+
           theme(panel.background = element_blank(),panel.grid.major=element_blank(),
                 panel.grid.minor=element_blank())
  
  
  #box plot con ggplot, cambiar de color
  
  ggplot(mtcars,aes(x=as.factor(cyl),y=hp,fill=cyl))+
    geom_boxplot(aes(fill=factor(cyl)),alpha=0.5)+ #cambiamos de color 
    labs(x="cilindros", y="caballos de fuerza",title="Caballos de fuerza segun cilindro")+
    theme(legend.position = "none")+
    theme(panel.background = element_blank(),panel.grid.major=element_blank(),
          panel.grid.minor=element_blank())
  
  #box plot con ggplot, cambiar el grado de  color
  
  ggplot(mtcars,aes(x=as.factor(cyl),y=hp,fill=cyl))+
    geom_boxplot(alpha=0.6)+ #cambiamos grado de color 
    labs(x="cilindros", y="caballos de fuerza",title="Caballos de fuerza segun cilindro")+
    theme(legend.position = "none")+
    theme(panel.background = element_blank(),panel.grid.major=element_blank(),
          panel.grid.minor=element_blank())
  
  # otra variable
  
  ggplot(mtcars,aes(x=am,y=mpg,fill=am))+
    geom_boxplot(alpha=0.6)+ #cambiamos grado de color 
    labs(x="tipo de caja", y="millas pos galon",
         title="Millas por Gal贸n segun tipo de caja mtcars")+
    theme(legend.position = "none")+
    theme(panel.background = element_blank(),panel.grid.major=element_blank(),
          panel.grid.minor=element_blank())
  
  #### cambiar la variable am por variable factor por automatico y manual
  mtcars$am<-factor(mtcars$am,levels =c(TRUE, FALSE),
                    labels = c("Manual","Autom谩tico"))```

Pregunta: Por qu茅 el outlier no es el m谩ximo en el boxplot?

Explicaci贸n del cambio

Cuando es 0 = Autom谩tico y 1 = Falso

Los datos empiezan en 1 , es decir falso

Se utiliza el siguiente c贸digo para hacer el cambio entre labels

mtcars$am <- factor(mtcars$am, levels = c(0,1), labels = c("AUTOMATICO", "MANUAL"))

El cambio se hace correctamente y al ver el datasheet se puede ver que empieza en falso , es decir en manual

Finalmente obtenemos la siguiente gr谩fica

Mi aporte, gracias a todos por sus comentarios me fueron muy 煤tiles:

escribo esto y no me aparece nada, alguien sabra porque?
boxplot(mtcars,aes(x=am, y=mpg, fill=am))+
geom_boxplot()+
labs(x=鈥渢ipos de caja鈥, y=鈥渕illas por galon鈥,
title=鈥渕illas por galon segun tipo de caja mtcars鈥)
theme(legend.position = 鈥渘one鈥)+
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())

Queda un poco m谩s prolijo con 鈥渢heme_classic()鈥

ggplot(mtcars, aes(x=am, y=mpg, fill=am)) + geom_boxplot() + 
      labs(x="Transmision type", y="miles per gallon", title = "Miles per gallon by transmision type") + 
      theme_classic() 

Cabe destacar de
mtcars$am <- factor(mtcars$am,levels = c(0,1),
labels = c(鈥淎utomatico鈥,鈥淢anual鈥))
que durante la preparaci贸n de los datos debemos analizar la forma en que queremos mostrar los datos por ejemplo para este caso en particular es conveniente tratar la variable am como un factor pues causo conflicto durante la elaboraci贸n del boxplot revisar bien la data su estructura y efectuar la respectiva categorizacion