###LIBRERIAS

library(dplyr)
library(tidyr)
library(ggplot2)

#OPCION - 1 Seleccion Directa

df<-starwars%>%
  filter(name != "Jabba Desilijic Tiure")%>%
  drop_na(height,mass)

#OPCION -2 Seleccion en Rango

df<-starwars%>%
  filter(mass<200)%>%
  drop_na(height,mass)

Grafivo v1

Predominantemente encontramos una proporcion mayor de personajes “Hombre” con multiples atributos fenotipicos. En el caso de los personajes “Mujer” las caracteristicas de peso y no tienden a oscilar mucho.

FACET GRID

ggplot(df,
       aes(x=mass,
           y=height,
           color=sex))+
  geom_point(size=4,alpha=0.7)+
  geom_smooth(method="lm", se=FALSE, linetype="dashed")+
  facet_wrap(~species,scales="free")+
  scale_color_manual(
    values= c("female"="#6EB8FF",
             "male"="#141414",
             "none"="#FF6868",
             "NA"="#000000")
  )+
  labs(
    title="Relacion entre Masa y Peso",
    subtitle="Dataset Starwars",
    x="Masa del personaje",
    y="Altura del personaje",
    color="Sexo del Personaje")