gráfico de dispersão, correlação, linha

ggplot(data6, aes(x = ppltrst, y = img_avg)) +
  geom_point()

ggplot(data6, aes(x = ppltrst, y = img_avg)) +
  geom_point(position = "jitter")
#It is typically used to better visualize overlapping values, such as integer covariates. 
#This helps grasp where the density of observations is high.
Diana H