Gráficas Piches

library(readxl)
bd <- read_excel("~/Desktop/base_Piches.xlsx")
View(bd)

library(dplyr)
library(ggplot2)
library(tidyr)
library(janitor)
library(mice)

bd1 <- bd %>% select(Profile, Network, Interacciones, No_publicACIONES, Total_RCC)

g1 <- ggplot(data = bd1,
       aes(x = Interacciones, y = Profile, color = Network, shape= Network, size = Interacciones)) +
  geom_point(alpha = 0.6) +
  labs(x = "Interações das publicações",
       y = "Perfil do usuário",
       color = "Rede social", 
       shape = "Rede social", 
       size = "Magnitude ")
g1 + theme(text = element_text(family = "Times New Roman"))

g2 <- ggplot(data = bd1,
       aes(x = No_publicACIONES, y = Profile, color = Network, shape= Network, size = No_publicACIONES)) +
  geom_point(alpha = 0.6) +
  labs(x = "Número de publicações",
       y = "Perfil do usuário",
       color = "Rede social", 
       shape = "Rede social", 
       size = "Magnitude ")
g2 + theme(text = element_text(family = "Times New Roman"))

g3 <- ggplot(data = bd1,
       aes(x = Total_RCC, y = Profile, color = Network, shape= Network, size = Total_RCC)) +
  geom_point(alpha = 0.6) +
  labs(x = "Número total de reações, comentários e compartilhamentos",
       y = "Perfil do usuário",
       color = "Rede social", 
       shape = "Rede social", 
       size = "Magnitude ")
g3 + theme(text = element_text(family = "Times New Roman"))