使用ggdotchart函數(shù)繪制Cleveland點(diǎn)圖
加載所需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)
常用參數(shù)
Arguments
data #所需數(shù)據(jù)框 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 #對(duì)于多類型數(shù)據(jù)是否分面 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 #設(shè)置點(diǎn)的顏色和大小 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 #設(shè)置點(diǎn)的形狀 point shape. See show_point_shapes.
dot.size #點(diǎn)的大小 numeric value specifying the dot size.
sorting #設(shè)定升序還是降序排列 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 #添加其他參數(shù) parameters (color, size, linetype) for the argument 'add'; e.g.: add.params = list(color = "red").
rotate #設(shè)置坐標(biāo)軸水平還是垂直放置 logical value. If TRUE, rotate the graph by setting the plot orientation to horizontal.
title #設(shè)置標(biāo)題 plot main title.
xlab #設(shè)置x軸標(biāo)題 character vector specifying x axis labels. Use xlab = FALSE to hide xlab.
ylab #設(shè)置y軸標(biāo)題character vector specifying y axis labels. Use ylab = FALSE to hide ylab.
facet.by #設(shè)置分組分面 character vector, of length 1 or 2, specifying grouping variables for faceting the plot into multiple panels. Should be in the data.
panel.labs #設(shè)置分面各組的標(biāo)題 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 #設(shè)置列標(biāo)簽 the name of the column containing point labels. Can be also a character vector with length = nrow(data).
font.label #設(shè)置標(biāo)簽字體 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 #是否給標(biāo)簽添加方框 logical value. If TRUE, add rectangle underneath the text, making it easier to read.
ggtheme #設(shè)置畫圖主題 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(), ....
... #設(shè)置其他參數(shù) other arguments to be passed to geom_histogram and ggpar.
使用示例
Examples
# Load data 加載數(shù)據(jù)*
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) *#設(shè)置因子*
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 設(shè)置分組顏色
p2 <- ggdotchart(df, x = "name", y = "mpg",
group = "cyl", color = "cyl",
palette = c('#999999','#E69F00','#56B4E9'),
ggtheme = theme_bw())
p2
p2
# 降序排列，添加x軸標(biāo)簽顏色
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
# 坐標(biāo)軸旋轉(zhuǎn)
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
# 設(shè)置點(diǎn)的大小
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
# 添加標(biāo)簽
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
# 添加標(biāo)簽邊框，避免重疊
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
p7
參考來(lái)源：
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
```
