R可视化02|ggplot2-ggplot2快速绘图
本文介绍如何使用ggplot2快速绘制常用图形，不纠缠底层原理，续前篇：本文速览1、ggplot2内置数据集2、ggplot2快速绘图
绘图必备三要素
aes设置
分面（facet）
几何对象（geom）
图形渲染（print）
图形保存（ggsave）1、ggplot2内置数据集ggplot2包含哪些内置的数据集？library('ggplot2')
data(package = 'ggplot2')#查看ggplot2内置数据集Package Item Title
ggplot2 diamonds Prices of over 50,000 round cut diamonds
ggplot2 economics US economic time series
ggplot2 economics_long US economic time series
ggplot2 faithfuld 2d density estimate of Old Faithful data
ggplot2 luv_colours 'colors()' in Luv space
ggplot2 midwest Midwest demographics
ggplot2 mpg Fuel economy data from 1999 to 2008 for 38 popular models of cars
ggplot2 msleep An updated and expanded version of the mammals sleep dataset
ggplot2 presidential Terms of 11 presidents from Eisenhower to Obama
ggplot2 seals Vector field of seal movements
ggplot2 txhousing Housing sales in TX本文使用mpg数据集，重点介绍：浏览下mpg数据> head(mpg)#看下数据集的前几列
# A tibble: 6 x 11
manufacturer model displyear cyl trans drv cty hwy fl class
<chr> <chr> <dbl> <int> <int> <chr> <chr> <int> <int> <chr> <chr>
1 audi a4 1.81999 4 auto(l5) f 18 29 p comp~
2 audi a4 1.81999 4 manual(~ f 21 29 p comp~
3 audi a4 2 2008 4 manual(~ f 20 31 p comp~
4 audi a4 2 2008 4 auto(av) f 21 30 p comp~
5 audi a4 2.81999 6 auto(l5) f 16 26 p comp~
6 audi a4 2.81999 6 manual(~ f 18 26 p comp~查看下mpg的大小> dim(mpg)#查看mpg的大小
23411mpg数据集每个变量简介manufacturer 生产厂家，如奥迪audi、吉普jeep等
model model name 车型，如奥迪A4、奥迪A6等
displ engine displacement, in litres，发动机排量，单位为每升
year year of manufacture，出厂年份
cyl number of cylinders，气缸数量
trans type of transmission，传输类型，手动还是自动
drv f = front-wheel drive, r = rear wheel drive, 4 = 4wd，驱动类型 ，前轮还是后轮驱动
cty city miles per gallon，每加仑油城市驾驶里程数
hwy highway miles per gallon，每加仑油高速驾驶里程数
fl fuel type，燃油型号
class "type" of car，suv、桑塔纳等2、ggplot2快速绘图绘图必备三要素数据集（data）图像属性（aes）几何对象（geom）画张散点图library('ggplot2')
ggplot(mpg, #数据集（data）
aes(x = displ, y = hwy)) + #图像属性（aes），即指定x、y轴要投影的数据
#data和aes通过ggplot组合在一起，使用+号添加图层（layers）
geom_point()#几何对象（geom），此处为散点图aes设置Colour, size, shape等等ggplot(mpg, aes(displ, cty, colour = class)) + #按变量class分类绘制分类散点图
geom_point()ggplot(mpg, aes(displ, hwy, shape = drv)) + #按变量drv不同绘制不同类不同shape散点图
geom_point()ggplot(mpg, aes(displ, hwy, size = cyl)) + #按变量cyl值大小绘制不同类不同size散点图
geom_point()分面（facet）ggplot(mpg, aes(displ, hwy)) + geom_point() +
facet_wrap(~class)#按照class分面几何对象（geom）p1 <- ggplot(mpg, aes(drv, hwy)) + geom_jitter()
p2 <- ggplot(mpg, aes(drv, hwy)) + geom_boxplot()
p3 <- ggplot(mpg, aes(drv, hwy)) + geom_violin()
p4 <- ggplot(mpg, aes(hwy)) + geom_histogram()
p5 <- ggplot(mpg, aes(hwy)) + geom_freqpoly()
p6 <- ggplot(mpg, aes(manufacturer)) + geom_bar()
p7 <- ggplot(economics, aes(date, unemploy/pop)) + geom_line()#时间序列图
p8 <- ggplot(economics, aes(unemploy/pop, uempmed)) + geom_path() + geom_point()
grid.arrange(p1, p2, p3, p4, p5, p6, p7, p8, nrow = 4)#分行显示子图图形渲染（print）使用print函数print(p8)图形保存（ggsave）p9 <- grid.arrange(p1, p2, p3, p4, p5, p6, p7, p8, nrow = 4)
ggsave("plot.png", p9, width = 5, height = 5)#ggsave保存图形，可是设置图的宽高等参考资料：https://ggplot2-book.org/getting-started.html
页:
[1]