darioappsilon

library(ggplot2)

head(mtcars)

darioappsilon

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point()

darioappsilon

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point(size = 5, color = "#0099f9")

darioappsilon

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point(aes(size = qsec, color = cyl))

darioappsilon

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point(size = 5, color = "#0099f9", shape = 17)

darioappsilon

library(ggrepel)

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point(size = 5, color = "#0099f9") + 
  geom_text_repel(label = rownames(mtcars),  size=3.5)

darioappsilon

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point(size = 5, color = "#0099f9") + 
  geom_label_repel(label = rownames(mtcars),  size=3.5)

darioappsilon

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point(size = 5, color = "#0099f9") + 
  theme_classic()

darioappsilon

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point(color = "#0099f9", size = 5) +
  geom_point(aes(size = qsec, color = cyl)) +
  labs(
    title = "Miles per Gallon vs. Horse Power",
    subtitle = "Color - Number of cylinders; Size - 1/4 mile time",
    caption = "Source: MTCars dataset"
  )

darioappsilon

ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point(color = "#0099f9", size = 5) +
  geom_point(aes(size = qsec, color = cyl)) +
  labs(
    title = "Miles per Gallon vs. Horse Power",
    subtitle = "Color - Number of cylinders; Size - 1/4 mile time",
    caption = "Source: MTCars dataset"
  ) + 
  theme(
    plot.title = element_text(color = "#0099f9", size = 20, face = "bold", hjust = 0.5),