R(Visualise)--ggplot2

Overview

ggplot2 基于the grammar of graphics思想，通过数据集、几何对象和坐标系统建立图形。

所有的ggplot2绘图都以ggplot()开始， 默认由aes()将数据集映射至几何对象。在行尾+添加图层：几何，比例尺，坐标和面等。要将绘图保存，请使用ggsave()

完整的ggplot2图形包括：

• ggplot(data,aes(...)): Create a new ggplot (required)
• geom_<FUNC>(aes(...),data,stat,position): Geometric object (required)
  or stat_<FUNC>(aes(...),data,geom,position): Statistical transformation (required)
• coord_<FUNC>(...): Coordinate systems
• facet_<FUNC>(...): Facetting
• scale_<FUNC>(...): Scales
• theme_<FUNC>(...): Themes

data, aes参数可以在ggplot, geom_<FUNC>, stat_<FUNC>任一函数中加载

aes() 控制数据中的变量映射到几何图形。aes()映射可以在ggplot()和geom图层中设置。常用参数：alpha, color, group, linetype, size

ggsave(filename, plot = last_plot(),path=NULL,width, height, units= c("in", "cm", "mm"))保存ggplot2图形，默认保存最后一个图

qplot(),quickplot(): Quick plot

---

Geoms

用geom函数表现图形，geom中的aes参数映射数据，每一个geom函数添加一个图层。

geom常用几何参数	常量赋值
color/fill	color/fill=NA 消除线条或填充
alpha	0 <= alpha <= 1
linetype	线条形式(1:6)
size	点的尺寸和线的宽度
shape	点的形状(0:25)

基本图形

函数	参数	说明
geom_blank()		空白
geom_curve(aes(yend,xend,curvature)) geom_segment(aes(yend,xend))	x, xend, y, yend, alpha, angle, color, curvature(曲率), linetype, size, arrow	曲线 线段
geom_path(lineend, linejoin, linemitre)	x, y, alpha, color, group, linetype, size(x为分类变量时必须设置group=1)	路径
geom_polygon(aes(group))	x, y, alpha, color, fill, group, linetype, size	多边形
geom_rect(aes(xmin, ymin, xmax, ymax))	xmax, xmin, ymax, ymin, alpha, color, fill, linetype, size	矩形
geom_ribbon(aes(ymin, ymax))	x, ymax, ymin, alpha, color, fill, group, linetype, size	丝带图
geom_abline(aes(intercept, slope))	x, y, alpha, color, linetype, size	斜线
geom_hline(aes(yintercept))	x, y, alpha, color, linetype, size	水平线
geom_vline(aes(xintercept))	x, y, alpha, color, linetype, size	垂直线
geom_segment(aes(yend, xend))	x, y, alpha, color, linetype, size	线段
geom_spoke(aes(angle, radius))	x, y, alpha, color, linetype, size	辐条

them_blank <- theme(axis.text=element_blank(),
                 axis.title = element_blank()
                 axis.ticks=element_blank())

p1=ggplot()+
  geom_spoke(aes(x=0,y=0,angle = 1:8, radius = 5))+
  them_blank+
  ggtitle('geom_spoke')
a <- ggplot(economics, aes(date, unemploy)) 
a + geom_ribbon(aes(ymin=unemploy - 900, ymax=unemploy + 900))+
  them_blank+
  ggtitle('geom_ribbon')
a + geom_path(lineend="butt", linejoin="round", linemitre=1)+
  them_blank+
  ggtitle('geom_path')

单变量

stat参数 : bin/count/identity

• 若x为连续变量：stat= ”bin”
• 若x离散变量：stat = “count”或stat = “identity”

continuous	参数	说明
geom_area()	x, y, alpha, color, fill, linetype, size，stat={identity,bin}	面积图
geom_density(kernel = “gaussian”)	x, y, alpha, color, fill, group, linetype, size, weight, adjust=1/2(调整带宽倍率), stat={density,count,scaled (密度估计值)}	核密度图
geom_dotplot()	x, y, alpha, color, fill	点状分布图
geom_freqpoly()	x, y, alpha, color, group, linetype, size	频率多边形(类似直方图)
geom_histogram(binwidth)	x, y, alpha, color, fill, linetype, size, weight	直方图
geom_qq(aes(sample))	x, y, alpha, color, fill, linetype, size, weight	qq图(检测正态分布)
discrete
geom_bar()	x, alpha, color, fill, linetype, size, weight, stat={count,prop (分组比例)}	柱状图

c <- ggplot(mpg, aes(hwy)); c2 <- ggplot(mpg) 
c + geom_density()+
  them_blank+
  ggtitle('geom_density')
c + geom_dotplot() +
  them_blank+
  ggtitle('geom_dotplot')
c + geom_freqpoly()+
  them_blank+
  ggtitle('geom_freqpoly')

双变量

continuous x continuous y	参数	说明
geom_jitter(height , width)	x, y, alpha, color, fill, shape, size	抖点图（避免重合），stat = “identity”
geom_point()	x, y, alpha, color, fill, shape, size, stroke	散点图stat = “identity”
geom_quantile()	x, y, alpha, color, group, linetype, size, weight	四分位图
geom_rug(sides)	x, y, alpha, color, linetype, size,sides(地毯位置)	地毯图
geom_smooth()	x, y, alpha, color, fill, group, linetype, size, weight	拟合曲线，自动计算变量：y/ymin/ymax/se(标准误)

geom_smooth(method = "auto", formula = y ~ x)

参数：
method: eg. “lm”, “glm”, “gam”, “loess”, “rlm”
formula :eg. y ~ x, y ~ poly(x, 2), y ~ log(x)
se : 是否绘制置信区间（默认为TRUE）
level : 用的置信区间水平（默认为95%）

if(!require(quantreg)) install.packages("quantreg")#四分位图必须的包
e <- ggplot(mpg, aes(cty, hwy))
e + geom_jitter(height = 2, width = 2)  +
  them_blank+
  ggtitle('geom_jitter')
e + geom_quantile() +
  them_blank+
  ggtitle('geom_quantile')
e + geom_smooth()+
  geom_rug(sides = "bl")+
  them_blank+
  ggtitle('geom_smooth')

两连续变量分布图	参数	说明
geom_density2d()	x, y, alpha, colour, group, linetype, size, fill=…level…(自动计算变量)	分布密度
geom_bin2d(binwidth)	x, y, alpha, color, fill, linetype, size, weight	矩形箱，stat = “bin2d”
geom_hex()	x, y, alpha, colour, fill, size	六角仓，stat = “binhex”

if(!require(hexbin)) install.packages("hexbin")#六角仓必须的包
df <- data.frame(x=rnorm(1000,0,100),y=rnorm(1000,10,50))

h <- ggplot(df, aes(x, y))
h + geom_bin2d() +
  them_blank+
  ggtitle('geom_bin2d')
h + geom_hex()+
  them_blank+
  ggtitle('geom_hex')
h + geom_density2d() +
  them_blank+
  ggtitle('geom_density2d')

两连续变量函数图	参数	说明
geom_area()	x, y, alpha, color, fill, linetype, size	面积图
geom_line()	x, y, alpha, color, group, linetype, size	折线图
geom_step(direction = “hv”)	x, y, alpha, color, group, linetype, size	阶梯图

recent <- economics[economics$date > as.Date("2013-01-01"), ]
p <- ggplot(recent, aes(date, unemploy))

p + geom_area() +
  them_blank+
  ggtitle('geom_area')
p + geom_line()+
  them_blank+
  ggtitle('geom_line')
p + geom_step(direction = "hv") +
  them_blank+
  ggtitle('geom_step')

discrete x continuous y	参数	说明
geom_col()	x, y, alpha, color, fill, group, linetype, size	柱状图
geom_boxplot()	x, y, lower, middle, upper, ymax, ymin, alpha, color, fill, group, linetype, shape, size, weight, notch(是否缺口), width,outlier	箱线图
geom_dotplot(binaxis = “y”, stackdir = “center”)	x, y, alpha, color, fill, group	点状分布图（不重合）
geom_violin(scale = “area”)	x, y, alpha, color, fill, group, linetype, size, weight	小提琴图
ggforce::geom_sina()		点状小提琴图

p <-  ggplot(mpg, aes(class, hwy)) 

p +geom_col() +
  them_blank+
  ggtitle('geom_col')
p +geom_boxplot()+
  them_blank+
  ggtitle('geom_line')
p +geom_dotplot(binaxis = "y", stackdir = "center") +
  them_blank+
  ggtitle('geom_dotplot')
p +geom_violin(scale = "area")+
  them_blank+
  ggtitle('geom_violin')
p +ggforce::geom_sina()+
  them_blank+
  ggtitle('geom_sina')

discrete x discrete y	参数	说明
geom_count()	x, y, alpha, color, fill, shape, size, stroke	计数图

ggplot(diamonds, aes(cut, color))+
  geom_count()

三变量

函数	参数	说明
geom_contour(aes(z))	x, y, z, alpha, colour, group, linetype, size, weight,bins(等高线数量),binwidth(等高线宽度)	等高线图， …level…(轮廓高度，自动计算变量)
geom_raster(aes(fill))	x,y,alpha,fill	光栅(热力图)
geom_tile(aes(fill))	x, y, alpha, color, fill, linetype, size, width	瓦片(热力图)

p <-  ggplot(faithfuld, aes(waiting, eruptions))

p +geom_contour(aes(z = density)) +
  them_blank+
  ggtitle('geom_contour')
p +geom_raster(aes(fill = density), hjust=0.5, vjust=0.5, interpolate=FALSE) +
  them_blank+
  ggtitle('geom_raster')
p + geom_tile(aes(fill = density)) +
  them_blank+
  ggtitle('geom_tile')
p + geom_raster(aes(fill = density)) +
  geom_contour(aes(z = density),colour = "white")+
  them_blank+
  ggtitle('raster+contour') #图层顺序很重要

文本

函数	参数	说明
geom_text(aes(label), nudge_x, nudge_y, check_overlap = TRUE)	x, y, label, alpha, angle, color, family, fontface, hjust, lineheight, size, vjust
geom_label(aes(label), nudge_x, nudge_y, check_overlap = TRUE)	x, y, label, alpha, angle, color, family, fontface, hjust, lineheight, size, vjust	有背景框

参数：
nudge_x, nudge_y: 微调
check_overlap：是否过重叠
vjust,hjust: 对齐方式(0:1)
angle: 角度
lineheight：行间距
family: 字体
size: 字体大小
fontface: 字体格式(1:4, plain标准,bold加粗,italic斜体,bold.italic)

ggrepel包 : 文字不重叠
ggrepel:: geom_label_repel()
ggrepel:: geom_text_repel()

df=data.frame(x=c(1,1,3),y=c(3,2,1),t=c('A','B','C'))

e=ggplot(df,aes(x,y))
e + geom_label(aes(label = t)) +
  them_blank+lims(x=c(0,5),y=c(0,5))+
  ggtitle('geom_label')
e + geom_text(aes(label = t)) +
  them_blank+lims(x=c(0,5),y=c(0,5))+
  ggtitle('geom_text')

误差可视化

函数	参数	说明
geom_crossbar(fatten)	x, y, ymax, ymin, alpha, color, fill, group, linetype, size
geom_errorbar()	x, ymax, ymin, alpha, color, group, linetype, size, width (also geom_errorbarh())
geom_linerange()	x, ymin, ymax, alpha, color, group, linetype, size
geom_pointrange()	x, y, ymin, ymax, alpha, color, fill, group, linetype, shape, size

aes(ymin,ymax) : ymin,ymax需要在aes参数内赋值

df <- data.frame(
  trt = factor(c('A', 'A', 'B', 'B')),
  resp = c(1, 5, 3, 4),
  group = factor(c(1, 2, 1, 2)),
  upper = c(1.1, 5.3, 3.3, 4.2),
  lower = c(0.8, 4.6, 2.4, 3.6)
)

dodge <- position_dodge(width=0.9) #位置微调
p <- ggplot(df, aes(trt, resp, fill = group,ymin = lower, ymax = upper))+
  geom_col(position = dodge)
  
p + geom_crossbar(fatten = 2,position = dodge) +
  ggtitle('geom_crossbar')
p + geom_errorbar(position = dodge, width = 0.25) +
  ggtitle('geom_errorbar')
p +geom_linerange(position = dodge) +
  ggtitle('geom_linerange')
p +geom_pointrange(position = dodge) +
  ggtitle('geom_pointrange')

地图

函数	参数	说明
geom_map(aes(map_id), map)	map_id, alpha, color, fill, linetype, size	地图

参数：
map_id：id/region
map: data.frame(x/long, y/lat, id/region) 或sp空间数据
Tips:
sf::st_read 读取sp或json文件
sf::st_transform 转换sf文件
地图素材：
矢量地图素材链接
shp数据地图：GitHub ,GADM
Json数据地图：阿里云, 百度Echarts

if(!require(maps)) install.packages("maps") # 载入地图包（版本过老）
data <- data.frame(murder = USArrests$Murder,state = tolower(rownames(USArrests)))

map <- maps::map_data("state")
ggplot(data, aes(fill = murder))+
  geom_map(aes(map_id = state), map = map) + 
  expand_limits(x = map$long, y = map$lat)

---

Stats

ggplot2还提供一种替代方案，建立一个图层用stat计算新变量 (e.g., count, prop)作图。

• 改变geom函数的stat默认值，如geom_bar(stat="count")
• 调用stat_<FUNC>，如 stat_count(geom="bar")
• 用..name..的语法格式，将stat计算变量映射到几何对象，如stat_density2d(aes(fill = ..level..), geom = "polygon")

函数	参数	计算变量	说明
stat_bin(binwidth, origin)	x, y	…count…, …ncount…, …density…, …ndensity…
stat_count(width = 1)	x, y	…count…, …prop…
stat_density(adjust = 1, kernel = “gaussian")	x, y	…count…, …density…, …scaled…
stat_bin_2d(bins, drop = TRUE)	x, y, fill	…count…, …density…
stat_bin_hex(bins)	x, y, fill	…count…, …density…
stat_density_2d(contour = TRUE, n = 100)	x, y, color, size	…level…
stat_ellipse(level, segments, type = “t”)			计算正常置信度椭圆
stat_contour(aes(z))	x, y, z, order	…level…
stat_summary_hex(aes(z), bins, fun = max)	x, y, z, fill	…value…	六边形
stat_summary_2d(aes(z), bins, fun = mean)	x, y, z, fill	…value…	矩形
stat_boxplot(coef)	x, y	…lower…, …middle…, …upper…, …width… , …ymin…, …ymax…
stat_ydensity(kernel = “gaussian”, scale = “area")	x, y	…density…, …scaled…, …count…, …n…, …violinwidth…, …width…
stat_ecdf(n)	x, y	…x…, …y…	计算经验累积分布
stat_quantile(quantiles = c(0.1, 0.9), formula = y ~ log(x), method = “rq”)	x, y	…quantile…
stat_smooth(method = “lm”, formula = y ~ x, se=T, level=0.95)	x, y	…se…, …x…, …y…, …ymin…, …ymax…
stat_function(aes(x = -3:3), n = 99, fun = dnorm, args = list(sd=0.5))	x	…x…, …y…	计算每个x值的函数
stat_identity(na.rm = TRUE)			保持原样
stat_qq(aes(sample=1:100), dist = qt, dparam=list(df=5))	sample, x, y	…sample…, …theoretical…
stat_sum()	x, y, size	…n…, …prop…
stat_summary(fun.data = “mean_cl_boot”)			将y值汇总在唯一x中
stat_summary_bin(fun.y = “mean”, geom = “bar”)			将y值汇总在分箱x中
stat_unique()			删除重复项

set.seed(1492)
df <- data.frame(
  x = rnorm(100)
)
ggplot(df, aes(x)) + geom_density()+
  stat_function(fun = dnorm, colour = "red")+
  ggtitle('density vs. function')

ggplot(faithful, aes(waiting, eruptions, color = eruptions > 3)) +
  geom_point() +
  stat_ellipse(type = "norm", linetype = 2) +
  stat_ellipse(type = "t")+
  ggtitle('stat_ellipse')

Scales

Scales传递数据给几何对象，改变图形的默认标尺。

p <- ggplot(mpg, aes(fl)) +
  geom_bar(aes(fill = fl))

p + scale_fill_manual( 
# scale: scale, fill: 几何对象, manual: 预处理的scale类型
  values = c("skyblue", "royalblue", "blue","navy"), #scale参数
  limits = c("d", "e", "p", "r"), #限制范围
  breaks =c("d", "e", "p", "r"), #breaks to use in legend/axis
  labels = c("D", "E", "P", "R"), #labels to use in legend/axis
  name = "fuel") #legend/axis 标题

常用标尺格式

type: color,size,fill,shape,linetype,alpha,etc

scale_<type>_continuous() #连续变量映射
scale_<type>_discrete() #离散变量映射
scale_<type>_identity() #原始数据直接映射
scale_<type>_manual(value=c(…)) #自定义值范围

坐标轴标尺

X & Y location scales	说明
lims(x,y)/xlim()/ylim()
scale_x_continuous(breaks, labels,limits)	刻度,标签,值的范围
scale_x_discrete(breaks, labels,limits)
scale_x_date(date_breaks , date_labels)	日期间隔（“2 weeks”），日期显示格式（%m/%d）
scale_x_datetime()	时间日期，参数同date
scale_x_log10()	log10 标尺
scale_x_reverse()	x轴方向颠倒
scale_x_sqrt()

Color and fill scales

Continuous	说明
scale_fill_distiller(palette = “Blues”)
scale_fill_gradient(low,high)	渐变色调控
scale_fill_gradient2(low,mid,high,midpoint)	2极渐变色
scale_fill_gradientn(values)	n极渐变色
Discrete
scale_fill_hue()	离散色阶
scale_fill_brewer(palette = “Blues”)	调色板
scale_fill_grey(start, end)	灰色调

调色板离散色阶palette选择：
RColorBrewer::display.brewer.all()
连续色阶选择：
Also: rainbow(), heat.colors(), terrain.colors(), cm.colors()
RColorBrewer::brewer.pal()

#离散色阶
p <- ggplot(mpg, aes(fl)) +
  geom_bar(aes(fill = fl))

p +scale_fill_brewer(palette = "Blues")+
  ggtitle('scale_fill_brewer')
p + scale_fill_grey(start = 0.2, end = 0.8,na.value = "red") +
  ggtitle('scale_fill_grey')

#连续色阶
p <- ggplot(mpg, aes(hwy))+ 
  geom_dotplot(aes(fill = ..x..))

p + scale_fill_distiller(palette = "Blues")  +
  ggtitle('scale_fill_distiller')
p + scale_fill_gradient(low="red", high="yellow")  +
  ggtitle('scale_fill_gradient')
p + scale_fill_gradient2(low="red", high="blue", mid = "white", midpoint = 25) +
  ggtitle('scale_fill_gradient2')
p +scale_fill_gradientn(colours=topo.colors(6)) +
  ggtitle('scale_fill_gradientn')

Shape and size scales

shape	说明
scale_shape()	形状
scale_shape_manual(values)
size
scale_size()	大小
scale_radius(range)	半径

shape:

df <- data.frame(x=1:10,y=sample(1:10,10),
                 s1=rnorm(10),
                 s2=sample(1:4,10,replace = TRUE))
p <- ggplot(df, aes(x, y))+
  geom_point(aes(shape = factor(s2), size = s1, color=factor(s2)))
p + scale_shape_manual(values = c(3:7))
p + scale_radius(range = c(1,6)) 

Coordinate Systems

Coordinate Systems	参数	说明
coord_cartesian()	xlim,ylim	笛卡尔坐标（默认）
coord_fixed()	radio,xlim,ylim	具有固定纵横比的直角坐标
coord_flip	xlim,ylim	x和y翻转(笛卡尔坐标)
coord_polar	theta, start, direction	极坐标
coord_trans()	xtrans, ytrans，xlim,ylim	变换笛卡尔坐标系，xtrans, ytrans接收函数名
coord_quickmap() coord_map(projection = “ortho”,orientation )	projection, orienztation, xlim, ylim	地图投影 projections:{mercator (default), azequalarea, lagrange, etc.}

ggplot(mpg, aes(fl)) + them_blank+
  geom_bar()+
  coord_polar(theta = "x", direction=1)

world <- map_data("world")
worldmap <- ggplot(world, aes(x = long, y = lat, group = group)) +
  geom_path() +
  scale_y_continuous(breaks = (-2:2) * 30) +
  scale_x_continuous(breaks = (-4:4) * 45)
worldmap + coord_map("ortho", orientation = c(41, -74, 0))

Position Adjustments

Position adjustments 对geoms进行位置调整。

geom参数赋值字符串

字符串: identity,jitterdodge (同时闪避和抖动),nudge(微距点固定距离)

geom	position
geom_bar/aera/density	dodge(并排), stack/fill(堆叠)
geom_point	jitter(减少点重叠)
geom_label	nudge(轻推来自点的标签)

geom参数赋值position函数

position函数	说明
position_dodge(width)	抖动宽度(geom默认width=0.9,调用此函数时,width应设为0.9)
position_identity()	不调整
position_jitter(width , height )
position_jitterdodge()
position_nudge(x = 0, y = 0)	平移距离
position_stack(vjust = 1)	对齐方式
position_fill(vjust = 1)

p <- ggplot(mpg, aes(fl, fill = drv))

p +  geom_bar(position = "dodge")+
  ggtitle('position = "dodge"')
p +  geom_bar(position = "fill")+
  ggtitle('position = "fill"')
p +   geom_bar(position = "stack")+
  ggtitle('position = "stack"')

Themes

theme(…)
设置主题包括title,axis,legend, panel, background,etc

主题函数	说明
theme_bw(base_size,base_family)	黑白主题
theme_grey()	灰色主题（默认）
theme_dark()	黑色主题
theme_void()	空主题
theme_minimal()	最小主题
ggtech::theme_tech()	技术主题

控制theme元素函数(作为主题组件的参数出现)：

元素函数	说明
element_blank	清空
element_rect(fill,color,size,linetype)	边框和背景
element_text(family,face, color, size,hjust, vjust,angle,lineheight, margin, debug)	文字，参数：lineheight(行高), margin(边缘), debug(是否矩形背景)
element_line(color,size,linetype,lineend,arrow)	Line end style (round, butt, square)，添加箭头: grid::arrow(angle,length,ends=“last”/“first”/“both”)

Faceting

刻面通过类别变量将图形分块显示。

刻面函数	说明
facet_grid(var.row~var.col,scales,labeller)	网格图，单变量时var.row或var.col用点填充
facet_wrap(~var+var,nrow,ncol,scales,labeller)	将1d的面板卷成2d网格(nrow*ncol)
ggforce::facet_zoom(x, y, xy, split = FALSE, zoom.size = 2)	子集zoom，x,y,xy 赋值（逻辑值）：选取x轴，y轴，xy交叉子集

t <- ggplot(mpg, aes(cty, hwy)) + geom_point() 
t + facet_grid(year ~ fl) 
# ggforce::facet_zoom
ggplot(iris, aes(Petal.Length, Petal.Width, colour = Species)) +
    geom_point() +
    ggforce::facet_zoom(x = Species == "versicolor")

**scales参数：**坐标刻度自由
“fixed”(default，坐标尺度统一), “free”(坐标尺度自由)，“free_x”,“free_y”

labeller参数: 调整刻面标签

Annotations and Labels

Labels	说明
ggtitle(label, subtitle = NULL)	图标题
labs(x,y,title,subtitle,caption)	x/y轴标题
xlab(label)/ylab(label)	x/y轴标题

Annotations	说明
annotate(geom,…)	geom注释，其余参数为geom参数
annotate(“text”,x,y,label, parse=FALSE)	文本注释
annotate(“pointrange”, x , y, ymin, ymax)
annotate(“rect”, xmin, xmax, ymin, ymax)	矩形注释
annotate(“segment”,x, xend, y, yend, arrow)	线段注释

文本注释参数parse：是否数学表达式, 更多公式语法可参考?plotmath
线段注释参数arrow: 添加箭头grid::arrow(angle,length,ends=”last” / ”first”/”both”)

Legends

theme(legend.position = "none"/"bottom"/"top"/"left"/"right") 在主题中设置 Legend
guides(…)设置legends几何组件：colorbar, legend, or none (no legend)

guide函数	作为scale或guides()的参数设置
guide_colorbar(title,label…)	连续型变量
guide_legend(title,label…)	离散型变量

Vector helpers

函数	说明
stats::recoder(x_char,x_num,order=FALSE)	重排序,返回factor/ord.factor
cut_interval(x,n,length)	n组有相同宽度的观测值
cut_number(x,n)	n组有相同数量的观测值
cut_width(x,width,center,boundary, closed = c(“right”,“left”))

混合图

gridExtra包可以将多个ggplot2对象组合到一张图中

gridExtra::grid.arrange(plot1,plot2,…,nrow,ncol)

ggplot2 extensions

ggplot2现在具有官方扩展机制，ggplot2 extensions官方站点跟踪并列出了R用户在社区中开发的ggplot2扩展。目的是使R用户可以轻松找到已开发的扩展。部分扩展如下

• gganimate：用ggplot2创建简单的动画
• ggforce：饼图
• ggradar：雷达图
• plotROC ：ROC曲线
• ggiraph: html交互
• ggalt：为ggplot2补充Coordinate Systems, Geoms, Statistical Transformations, Scales & Fonts
• ggtree: 树状图
• geomnet: 网格图(关系图)
• ggthemes：主题
• ggtech：科技主题
• ggTimeSeries：时间序列可视化
• ggcorrplot: 基于ggplot2包以及corrplot包的相关系数矩阵可视化
• GGally：ggplot2扩展，矩阵图，生存图，网格图等
• survminer：ggplot2扩展，生存分析模型绘图