ggpubr包系列学习教程(五)

使用ggdotchart函数绘制Cleveland点图


加载所需R包

library(ggpubr)

基本用法:

Usage

ggdotchart(data, x, y, group = NULL, combine = FALSE, color = "black",
 palette = NULL, shape = 19, size = NULL, dot.size = size,
 sorting = c("ascending", "descending"), add = c("none", "segment"),
 add.params = list(), x.text.col = TRUE, rotate = FALSE, title = NULL,
 xlab = NULL, ylab = NULL, facet.by = NULL, panel.labs = NULL,
 short.panel.labs = TRUE, select = NULL, remove = NULL, order = NULL,
 label = NULL, font.label = list(size = 11, color = "black"),
 label.select = NULL, repel = FALSE, label.rectangle = FALSE,
 ggtheme = theme_pubr(), ...)
 theme_cleveland(rotate = TRUE)

常用参数

Arguments

data #所需数据框 a data frame

x, y #变量x和y x and y variables for drawing.

group  #分组变量 an optional column name indicating how the elements of x are grouped.

combine  #对于多类型数据是否分面 logical value. Default is FALSE. Used only when y is a vector containing multiple variables to plot. If TRUE, create a multi-panel plot by combining the plot of y variables.

color, size  #设置点的颜色和大小 points color and size.

palette  #自定义颜色画板 the color palette to be used for coloring or filling by groups. Allowed values include "grey" for grey color palettes; brewer palettes e.g. "RdBu", "Blues", ...; or custom color palette e.g. c("blue", "red"); and scientific journal palettes from ggsci R package, e.g.: "npg", "aaas", "lancet", "jco", "ucscgb", "uchicago", "simpsons" and "rickandmorty".

shape  #设置点的形状 point shape. See show_point_shapes.

dot.size #点的大小 numeric value specifying the dot size.

sorting  #设定升序还是降序排列 a character vector for sorting into ascending or descending order. Allowed values are one of "descending" and "ascending". Partial match are allowed (e.g. sorting = "desc" or "asc"). Default is "descending".

add  #character vector for adding another plot element (e.g.: dot plot or error bars). Allowed values are one or the combination of: "none", "dotplot", "jitter", "boxplot", "point", "mean", "mean_se", "mean_sd", "mean_ci", "mean_range", "median", "median_iqr", "median_mad", "median_range"; see ?desc_statby for more details.

add.params #添加其他参数 parameters (color, size, linetype) for the argument 'add'; e.g.: add.params = list(color = "red").

rotate #设置坐标轴水平还是垂直放置 logical value. If TRUE, rotate the graph by setting the plot orientation to horizontal.

title  #设置标题 plot main title.

xlab #设置x轴标题 character vector specifying x axis labels. Use xlab = FALSE to hide xlab.

ylab #设置y轴标题character vector specifying y axis labels. Use ylab = FALSE to hide ylab.

facet.by #设置分组分面 character vector, of length 1 or 2, specifying grouping variables for faceting the plot into multiple panels. Should be in the data.

panel.labs #设置分面各组的标题 a list of one or two character vectors to modify facet panel labels. For example, panel.labs = list(sex = c("Male", "Female")) specifies the labels for the "sex" variable. For two grouping variables, you can use for example panel.labs = list(sex = c("Male", "Female"), rx = c("Obs", "Lev", "Lev2") ).

short.panel.labs #logical value. Default is TRUE. If TRUE, create short labels for panels by omitting variable names; in other words panels will be labelled only by variable grouping levels.

select #选择需要展示的变量 character vector specifying which items to display.

remove #移除不需要展示的变量 character vector specifying which items to remove from the plot.

order  #选定变量的排列顺序 character vector specifying the order of items.

label  #设置列标签 the name of the column containing point labels. Can be also a character vector with length = nrow(data).

font.label #设置标签字体 a list which can contain the combination of the following elements: the size (e.g.: 14), the style (e.g.: "plain", "bold", "italic", "bold.italic") and the color (e.g.: "red") of labels. For example font.label = list(size = 14, face = "bold", color ="red"). To specify only the size and the style, use font.label = list(size = 14, face = "plain").

repel  #是否避字体免重叠 a logical value, whether to use ggrepel to avoid overplotting text labels or not.

label.rectangle  #是否给标签添加方框 logical value. If TRUE, add rectangle underneath the text, making it easier to read.

ggtheme  #设置画图主题 function, ggplot2 theme name. Default value is theme_pubr(). Allowed values include ggplot2 official themes: theme_gray(), theme_bw(), theme_minimal(), theme_classic(), theme_void(), ....

...   #设置其他参数 other arguments to be passed to geom_histogram and ggpar.

使用示例

Examples

# Load data 加载数据*
data("mtcars")
df <- mtcars
head(df)
## mpg cyl disp hp drat wt qsec vs am gear carb
## Mazda RX4  21.0  6 160 110 3.90 2.620 16.46 0 1 4 4
## Mazda RX4 Wag  21.0  6 160 110 3.90 2.875 17.02 0 1 4 4
## Datsun 710 22.8  4 108 93 3.85 2.320 18.61 1 1 4 1
## Hornet 4 Drive 21.4  6 258 110 3.08 3.215 19.44 1 0 3 1
## Hornet Sportabout 18.7  8 360 175 3.15 3.440 17.02 0 0 3 2
## Valiant  18.1  6 225 105 2.76 3.460 20.22 1 0 3 1
df$cyl <- as.factor(df$cyl) *#设置因子*
df$name <- rownames(df) *#添加一新列name*
head(df[, c("wt", "mpg", "cyl")], 3)
## wt mpg cyl
## Mazda RX4  2.620 21.0  6
## Mazda RX4 Wag 2.875 21.0  6
## Datsun 710 2.320 22.8  4
# Basic plot
p0 <- ggdotchart(df, x = "name", y ="mpg")
p0
p0
p1 <- ggdotchart(df, x = "name", y ="mpg",
 ggtheme = theme_bw())
p1
p1
# Change colors by group cyl 设置分组颜色
p2 <- ggdotchart(df, x = "name", y = "mpg",
 group = "cyl", color = "cyl",
 palette = c('#999999','#E69F00','#56B4E9'),
 ggtheme = theme_bw())
p2
p2
# 降序排列,添加x轴标签颜色
p3 <- ggdotchart(df, x = "name", y = "mpg",
 group = "cyl", color = "cyl",
 palette = c('#999999','#E69F00','#56B4E9'),
 sorting = "descending",
 ggtheme = theme_bw(),
 x.text.col = TRUE)
p3
p3
# 坐标轴旋转
p4 <- ggdotchart(df, x = "name", y = "mpg",
 group = "cyl", color = "cyl",
 palette = c('#999999','#E69F00','#56B4E9'),
 rotate = TRUE,
 sorting = "descending",
 ggtheme = theme_bw(),
 y.text.col = TRUE )
p4
p4
# 设置点的大小
p5 <- ggdotchart(df, x = "name", y = "mpg",
 group = "cyl", color = "cyl", size = "cyl",
 palette = c('#999999','#E69F00','#56B4E9'),
 rotate = TRUE,
 sorting = "descending",
 ggtheme = theme_bw(),
 y.text.col = TRUE )
p5
p5
# 添加标签
p6 <- ggdotchart(df, x = "name", y = "mpg", size="cyl",
 group = "cyl", color = "cyl", label = "name",
 font.label = list(size=10,color="red",face="bold"),
 palette = c('#999999','#E69F00','#56B4E9'),
 rotate = TRUE,
 sorting = "descending",
 ggtheme = theme_bw(),
 y.text.col = TRUE )
p6
p6
# 添加标签边框,避免重叠
p7 <- ggdotchart(df, x = "name", y = "mpg", size="cyl", repel = T,
 group = "cyl", color = "cyl", label = "name", label.rectangle = T,
 font.label = list(size=10,color="red",face="bold"),
 palette = c('#999999','#E69F00','#56B4E9'),
 rotate = TRUE,
 sorting = "descending",
 ggtheme = theme_bw(),
 y.text.col = TRUE )
p7

p7

参考来源:

https://www.rdocumentation.org/packages/ggpubr/versions/0.1.4/topics/ggdotchart

sessionInfo()
## R version 3.5.1 (2018-07-02)
## Platform: x86_64-apple-darwin15.6.0 (64-bit)
## Running under: OS X El Capitan 10.11.3
## 
## Matrix products: default
## BLAS: /Library/Frameworks/R.framework/Versions/3.5/Resources/lib/libRblas.0.dylib
## LAPACK: /Library/Frameworks/R.framework/Versions/3.5/Resources/lib/libRlapack.dylib
## 
## locale:
## [1] zh_CN.UTF-8/zh_CN.UTF-8/zh_CN.UTF-8/C/zh_CN.UTF-8/zh_CN.UTF-8
## 
## attached base packages:
## [1] stats  graphics grDevices utils  datasets methods  base     
## 
## other attached packages:
## [1] bindrcpp_0.2.2  ggpubr_0.1.7.999 magrittr_1.5  ggplot2_3.0.0   
## 
## loaded via a namespace (and not attached):
## [1] Rcpp_0.12.18  rstudioapi_0.7  bindr_0.1.1 knitr_1.20      
## [5] tidyselect_0.2.4 munsell_0.5.0 colorspace_1.3-2 R6_2.2.2        
## [9] rlang_0.2.2 stringr_1.3.1 plyr_1.8.4  dplyr_0.7.6     
## [13] tools_3.5.1 grid_3.5.1  gtable_0.2.0  withr_2.1.2     
## [17] htmltools_0.3.6 assertthat_0.2.0 yaml_2.2.0  lazyeval_0.2.1  
## [21] rprojroot_1.3-2 digest_0.6.16 tibble_1.4.2  crayon_1.3.4    
## [25] purrr_0.2.5 ggrepel_0.8.0 glue_1.3.0  evaluate_0.11   
## [29] rmarkdown_1.10  labeling_0.3  stringi_1.2.4 compiler_3.5.1  
## [33] pillar_1.3.0  scales_1.0.0  backports_1.1.2 pkgconfig_2.0.2
```![Unknown.png](https://upload-images.jianshu.io/upload_images/8723194-5dac97e4c8791137.png?imageMogr2/auto-orient/strip%7CimageView2/2/w/1240)
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 201,681评论 5 474
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 84,710评论 2 377
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 148,623评论 0 334
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 54,202评论 1 272
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 63,232评论 5 363
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 48,368评论 1 281
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 37,795评论 3 393
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 36,461评论 0 256
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 40,647评论 1 295
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,476评论 2 317
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 37,525评论 1 329
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 33,226评论 3 318
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 38,785评论 3 303
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,857评论 0 19
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 31,090评论 1 258
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 42,647评论 2 348
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 42,215评论 2 341

推荐阅读更多精彩内容