library(ggplot2)
library(tidyverse)
mtcars
dim(mtcars)
head(mtcars)
?qplot
qplot(data = mtcars, x = wt, y = mpg) +
ggtitle(" sjdklfd skdjskfl dsfs") +
theme(plot.title = element_text(hjust = 0.5)) +
xlab("x") +
ylab("y")
grep("^geom", objects("package:ggplot2"), value = TRUE)
qplot(mpg, wt, data = mtcars, color = factor(cyl),
geom = c("point", "line"))
qplot(mpg, wt, data = mtcars, color = cyl,
geom = c("point", "line"))
p <- qplot(data = mtcars, x = wt, y = mpg, shape = factor(cyl)) +
scale_shape_manual("Number of\n Clylinder", values = c(3, 5, 8)) +
scale_color_manual(values = c("red", "blue", "green"))
qplot(data = mtcars, x = wt, y = mpg, color = factor(gear)) +
#facet_grid(gear~.)
facet_grid(gear~cyl, label = label_both)
qplot(factor(mtcars$cyl), geom = "bar")
qplot(factor(mtcars$cyl), geom = "blank", fill = factor(mtcars$am),
xlab = "", ylab = "", main = "sdfsdfsf") +
geom_bar(position = "dodge") +
scale_x_discrete(label = c("V4", "V6", "V8"))+
scale_y_continuous(breaks = seq(0, 12, 2)) +
theme_bw() +
coord_flip()+
scale_fill_grey(name = "Trans.",
labels = c("auto", "manual"))
ggplot() +
geom_point(data = mtcars, mapping = aes( x = wt, y = mpg, shape = factor(cyl)),
size = 3)+
geom_smooth(data = mtcars, mapping = aes( x = wt, y = mpg),
method = 'lm')
ggplot(data = mtcars, aes(x=wt, y = mpg)) +
geom_point(aes(color = factor(cyl)))+
geom_smooth(method = 'lm')
