pacman::p_load(datasets, pacman, psych, rio, tidyverse)
qplot(Petal.Width, Petal.Length, data = iris)
qplot(Petal.Width, Petal.Length, color = Species, data = iris)
ggplot(data = iris, mapping = aes(x = Petal.Width, Petal.Length)) + geom_point()
ggplot(data = iris, mapping = aes(x = Petal.Width, Petal.Length)) + geom_jitter()
ggplot(data = iris, mapping = aes(x = Petal.Width, Petal.Length, size = Sepal.Length, color = Species)) + geom_jitter(alpha = 0.5)
ggplot(data = iris, mapping = aes(x = Petal.Width, Petal.Length, size = Sepal.Length, color = Species)) + geom_point(size = 3) + geom_smooth(method = lm)
ggplot(iris, mapping = aes(x = Petal.Width, Petal.Length, color = Species)) + geom_point(size = 3) + geom_smooth(method = lm) + geom_density2d(alpha = 0.5) + theme(legend.position = "bottom")