PREGUNTA 1.

El objetivo es obtener un gráfico similar al siguiente, para lo cual tendrá que usar el siguiente dataframe, el cual posee los datos de los equipos militares usados por Rusia en la invasión a Ucrania.

library(ggplot2)
library(dplyr)

df<-read.csv("https://r.datametria.com/wp-content/uploads/2022/05/russia_losses_equipment.csv",
             header = T)

df$date<-as.Date(df$date)

# aircraft - Aviones.
# helicopter - Helicópteros.
# tank -Tanques.
# drone - Drones.

# Recomendación: 
# Se usó el tema: theme_minimal()

El gráfico deseado es el siguiente:

Solución a la pregunta 1 (8 puntos).

df %>% 
  ggplot(aes(x=date))+
  geom_line(aes(y=helicopter, color="Helicópteros"), size=2)+
  geom_line(aes(y=tank, color="Tanques"), size=2)+
  geom_line(aes(y=drone, color="Drones"), size=2)+
  geom_line(aes(y=aircraft, color="Aviones"), size=2)+
  scale_color_brewer(palette = "Dark2")+
  scale_x_date(date_labels = "%d-%b", date_breaks = "3 days")+
  scale_y_continuous(breaks = seq(0,1500,by=100))+
  labs(title = "EQUIPO MILITAR USADO EN LA INVASIÓN RUSA A UCRARIA",
       x="Fecha",y="Equipo militar (Unidades)",caption = "FUENTE: Kaggle-2022 Ukraine Russia War.")+
  theme_minimal()+
  theme(legend.position = c(.15,.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle=90),
        plot.title = element_text(face = "bold"),
        plot.caption = element_text(face = "bold"),
        panel.grid.major = element_blank())

PREGUNTA 2.

El objetivo es obtener un gráfico similar al siguiente, para lo cual tendrá que usar el siguiente dataframe, el cual posee los datos del FIFA21 con todos los jugadores y sus respectivas características y habilidades. Se pide hacer el gráfico de dispersión de la variable Dribbling y Acceleration.

library(ggrepel) # Para colocar los textos - Usar la función geom_label_repel()
df<-read.csv("https://r.datametria.com/wp-content/uploads/2022/05/FIFA21_official_data.csv",
             header = T, encoding = "UTF-8")

# Recomendación: 
# Se usó el tema: theme_light()

El gráfico deseado es el siguiente:

Solución de la pregunta 2 (12 puntos).

df %>% filter(Dribbling>=80,Acceleration>=80) %>% 
  ggplot(aes(x=Dribbling, y=Acceleration))+
  geom_point(aes(size=Age), color="black",alpha=.4,fill="deepskyblue1", shape=21)+
  scale_size(range = c(1,10), name="Edad del\njugador")+
  geom_vline(xintercept = 95, color="red",linetype="dotdash", size=1)+
  geom_hline(yintercept = 95, color="red",linetype="dashed", size=1)+
  geom_label_repel(data=df %>% filter(Dribbling>95), aes(label=Name))+
  geom_label_repel(data=df %>% filter(Acceleration>95), aes(label=Name),
                   bg="transparent")+
  scale_y_continuous(breaks = seq(80,100,by=1), name="Aceleración")+
  scale_x_continuous(breaks = seq(75,100,by=1), name="Dribbling")+
  labs(caption = "FUENTE: Kaggle - FIFA22 Official Dataset.")+
  theme_light()+
  theme(legend.position = c(.1,.2),
        legend.title = element_text(size=8),
        legend.text = element_text(size=6),
        legend.background = element_rect(fill = "transparent"),
        panel.grid.major = element_blank(),
        plot.caption = element_text(face = "bold"))