R Notebook : ggplot2

1
2
3
4
5
6
7

Data
Aesthetics
Geometries #几何对象
Facets
Statistics
Coordinates #坐标系
Themes

1
2
3

install.packages("ggplot2")

library(ggplot2)

1
2
3

data(mpg)
# if data is from outside: data <- read.table(file, header=T, row.names=NULL, sep=",)
data(economics)

1
2

ggplot (mpg, aes (x = displ, y = hwy)) +
geom_point()

1
2
3

ggplot(mpg, aes(displ, hwy)) +
geom_point() +
geom_smooth(method= "lm")

1
2

ggplot(mpg, aes (displ, hwy, colour=class)) +
geom_point()

1
2
3

ggplot(mpg, aes(displ, hwy)) +
geom_point() +
facet_wrap(~class)

1
2

ggplot(mpg, aes(drv, hwy)) +
geom_boxplot()

1
2

ggplot(mpg, aes(drv, hwy)) +
geom_violin()

1
2
3

ggplot(mpg, aes(drv, hwy)) +
geom_violin(trim=FALSE, fill='orange', color='red') +
geom_boxplot(width=0.1) + theme_minimal()

1
2

ggplot(mpg, aes(hwy)) +
geom_histogram()

1
2

ggplot(mpg, aes(hwy)) +
geom_freqpoly()

1
2

ggplot(mpg, aes(manufacturer)) +
geom_bar()

1
2

ggplot(economics, aes(date, unemploy / pop)) +
geom_line()

1
2

ggplot(economics, aes(date, uempmed)) +
geom_line()

1
2
3

ggplot(economics, aes(unemploy / pop, uempmed)) +
geom_path() +
geom_point()

1
2

ggplot(faithfuld, aes(eruptions, waiting)) +
geom_contour(aes(z = density, colour = ..level..))

1
2

ggplot(faithfuld, aes(eruptions, waiting)) +
geom_raster(aes(fill = density))

1
2
3
4

norm <- ggplot(df, aes(x, y)) + xlab(NULL) + ylab(NULL)
norm + geom_point (alpha = 1 / 3)
norm + geom_point (alpha = 1 / 5)
norm + geom_point (alpha = 1 / 10)

1
2
3
4

different theme
theme_classic()
theme_minimal()
theme_economist()+ scale_colour_economist()