Data
# View(mtcars)
names(mtcars)
## [1] "mpg" "cyl" "disp" "hp" "drat" "wt" "qsec" "vs" "am" "gear"
## [11] "carb"
Dotplot
a <- ggplot(mtcars)
a + geom_dotplot(
aes(mpg)
)+ geom_freqpoly(
aes(mpg)
)
## Bin width defaults to 1/30 of the range of the data. Pick better value with
## `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Desity plot
a+geom_density(
aes(mpg)
)
Structure
str(mtcars)
## 'data.frame': 32 obs. of 11 variables:
## $ mpg : num 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
## $ cyl : num 6 6 4 6 8 6 8 4 4 6 ...
## $ disp: num 160 160 108 258 360 ...
## $ hp : num 110 110 93 110 175 105 245 62 95 123 ...
## $ drat: num 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
## $ wt : num 2.62 2.88 2.32 3.21 3.44 ...
## $ qsec: num 16.5 17 18.6 19.4 17 ...
## $ vs : num 0 0 1 1 0 1 0 1 1 1 ...
## $ am : num 1 1 1 0 0 0 0 0 0 0 ...
## $ gear: num 4 4 4 3 3 3 3 4 4 4 ...
## $ carb: num 4 4 1 1 2 1 4 2 2 4 ...
scatter plot
a+ geom_point(
aes(mpg,disp)
) + geom_quantile(
aes(mpg,disp)
)
## Smoothing formula not specified. Using: y ~ x
Smooth Graph
a+ geom_point(
aes(mpg,disp)
)+ geom_smooth(
aes(mpg,disp), model=lm
)
## Warning in geom_smooth(aes(mpg, disp), model = lm): Ignoring unknown
## parameters: `model`
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
boxplot
a+ geom_boxplot(
aes(mpg,factor(cyl)
)
)
Graph Update
a+ geom_point(
aes(mpg,disp,
color=factor(cyl),
size=wt,
shape=factor(am))
)
ggtheme
library(ggthemes)
p <- a+ geom_point(
aes(mpg,disp,
color=factor(cyl),
size=wt,
shape=factor(am))
)
plotly
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
ggplotly(p)