ggpattern
ggpattern: ggplot2 with geometric texture amd images
library(tidyverse)
library(ggforce)
library(patchwork)
if(!require(ggpattern))
install.packages("ggpattern")
library(ggpattern)
if(!require(gridpattern))
install.packages("gridpattern")
library(gridpattern)
if(!require(ggh4x))
install.packages("ggh4x")
library(ggh4x)
df <- data.frame(
group = factor(c("Cool", "But", "Use", "Less"),
levels = c("Cool", "But", "Use", "Less")),
value = c(25, 25, 25, 25)
)
ggplot(df, aes(x="", y = value, pattern = group, pattern_angle = group))+
geom_bar_pattern(
width = 1,
stat = "identity",
fill = 'white',
colour = 'black',
pattern_aspect_ratio = 1,
pattern_density = 0.3
) +
theme_void(14) +
theme(
legend.key.size = unit(.5, 'cm')
)
df <- tibble(
name = c("CA","CB","CC"),
细辛脂素_mean=c(0.776,0.803,0.684),
细辛脂素_sd=c(0.059,0.026,0.011),
芝麻脂素_mean=c(0.812,0.506,0.487),
芝麻脂素_sd =c(0.086,0.008,0.052),
)
# 合并两个数据集以便绘图
df_long <- df %>%
pivot_longer(cols = c(-name), names_to = c("compound", ".value"), names_sep = "_")
# df_long$signif <- c("a","a","a","b","a","b")
# 创建条形图并设置填充图案
ggplot(df_long, aes(x = name, y = mean, pattern = compound)) +
geom_bar_pattern(
stat = "identity",
position = position_dodge(0.9),
width = 0.7,
# aes(fill = compound),
fill = 'white',
color = 'black',
pattern_density = 0.1,
pattern_spacing = 0.02
) +
geom_errorbar(aes(ymin = mean - sd, ymax = mean + sd),
width = 0.2,
position = position_dodge(0.9)) +
labs(
title = "不同基原细辛的细辛脂素与芝麻脂素含量",
x = "",
y = "含量",
pattern = "Compound"
) +
scale_pattern_manual(values = c("细辛脂素" = "stripe", "芝麻脂素" = "circle"))+
scale_y_continuous(expand = c(0,0))+
ggpubr::theme_pubr()+
theme(
plot.title = element_text(hjust = .5),
legend.title = element_blank()
)
names_magick_stripe
#> [1] "crosshatch" "crosshatch30" "crosshatch45" "horizontal"
#> [5] "horizontal2" "horizontal3" "hs_bdiagonal" "hs_cross"
#> [9] "hs_diagcross" "hs_fdiagonal" "hs_horizontal" "hs_vertical"
#> [13] "left30" "left45" "right30" "right45"
#> [17] "vertical" "vertical2" "vertical3"
names_hex
#> [1] "hex" "hex1" "hex2" "hex3" "hex_skew"
names_pattern
#> [1] "ambient" "aRtsy" "circle" "crosshatch"
#> [5] "fill" "gradient" "hatch" "image"
#> [9] "line" "magick" "none" "pch"
#> [13] "placeholder" "plasma" "polygon_tiling" "regular_polygon"
#> [17] "rose" "stripe" "text" "wave"
#> [21] "weave" 'stripe' (default), 'crosshatch', 'pch', 'circle', 'none'
p1 <- ggplot(df, aes(group, value )) +
geom_col_pattern(pattern = "stripe",
fill= "white", # 条形背景色
color="red", # 条形边框色
pattern_fill = "skyblue", # 几何纹理填充色
pattern_colour="darkgreen",
pattern_angle =30, # 旋转角度
pattern_linetype= 3 ,# 笔划stroke 线型
pattern_size= 1.2, #笔画线宽
) +
ggtitle("线条：stripe")
p2 <- ggplot(df, aes(group, value )) +
geom_col_pattern(pattern = "crosshatch",
fill= "white", # 条形背景色
color="red", # 条形边框色
pattern_fill = "red", # 几何纹理填充色
pattern_colour="green",
pattern_angle =30 , # 角度
pattern_spacing= 0.2
) +
ggtitle("交叉平行线：crosshatch")
p3 <- ggplot(df, aes(group, value )) +
geom_col_pattern(pattern = "pch",
fill= "white", # 条形背景色
color="red", # 条形边框色
pattern_colour="green",
pattern_angle =30,
pattern_density = 1,
) +
ggtitle("点：pch")
p4 <- ggplot(df, aes(group, value )) +
geom_col_pattern(pattern = "circle",
fill= "white", # 条形背景色
color="red", # 条形边框色
pattern_colour="darkgreen",
pattern_fill = "skyblue",
pattern_angle =30, # 角度
pattern_density = 1,
pattern_spacing= 0.2, # 间距
) +
ggtitle("圈：circle")
(p1+p2)/(p3+p4)
x_hex <- 0.5 + 0.5 * cos(seq(2 * pi / 4, by = 2 * pi / 6, length.out = 6))
y_hex <- 0.5 + 0.5 * sin(seq(2 * pi / 4, by = 2 * pi / 6, length.out = 6))
grid::grid.newpage()
wave_sine <- grid.pattern_wave(x_hex, y_hex, colour = "black", type = "sine",
fill = c("red", "blue"), density = 0.4,
spacing = 0.15, angle = 0,
amplitude = 0.05, frequency = 1 / 0.20)
# zig-zag pattern is a wave of "type = triangle"
grid::grid.newpage()
wave_triangle <- grid.pattern_wave(x_hex, y_hex, colour = "black",
type = "triangle",
fill = c("red", "blue"), density = 0.4,
spacing = 0.15, angle = 0, amplitude = 0.075)
pattern_type= ,
pattern_subtype=
names_weave
#> [1] "basket" "matt" "matt_irregular"
#> [4] "plain" "rib_warp" "satin"
#> [7] "twill" "twill_elongated" "twill_herringbone"
#> [10] "twill_zigzag"ggplot(df, aes(group, value)) +
geom_col_pattern(
aes(pattern_fill2=group, pattern_type=group),
pattern = 'weave',
colour = 'black',
pattern_density = 1.0,
pattern_fill = 'grey',
pattern_key_scale_factor = 0.5,
) +
theme_bw() +
labs(title = "Some 'weave' types") +
scale_pattern_type_manual(values=c('plain','matt', 'twill_herringbone',
"twill_zigzag",'satin')) +
theme(legend.key.size = unit(1.5, 'cm'))
ggplot(df, aes(group, value)) +
geom_col_pattern(aes(fill=group, pattern=group, pattern_type=group),colour='black') +
theme_bw() +
labs(title = "Use 'stripe' and 'weave' patterns") +
theme(legend.key.size = unit(1.5, 'cm')) +
scale_pattern_manual(values=c('stripe', 'weave', 'weave','stripe', 'weave')) +
scale_pattern_type_manual(values=c(NA, 'basket', 'matt', NA, 'twill_elongated'))
library(ggplot2)
library(ggpattern)
ToothGrowth$dose <- factor(ToothGrowth$dose)
ggplot(ToothGrowth, aes(dose)) +
geom_bar_pattern(
aes(
fill = dose,
pattern = dose,
pattern_type = dose
),
pattern_frequency = 5,
colour = 'black'
) +
theme_bw() +
labs(title = "Use 'stripe' and 'wave' patterns") +
theme(legend.key.size = unit(1.5, 'cm')) +
scale_pattern_manual(values = c('stripe', 'wave', 'wave')) +
scale_pattern_type_manual(values = c(NA, 'triangle', 'sine'))
library(tidyverse)
library(ggh4x)
library(ggpattern)
set.seed(233)
table1 <- tibble(
x=letters[1:4] %>% rep(each=16,length.out=192),
y=abs(rnorm(192,50,10)),
f=LETTERS[1:4] %>% rep(each=4,length.out=192),
g="g1"
)
table2 <- tibble(
x=letters[1:4] %>% rep(each=16,length.out=192),
y=abs(rnorm(192,50,10)) %>% sort(),
f=LETTERS[1:4] %>% rep(each=4,length.out=192),
g="g2"
)
table3 <- tibble(
x=letters[1:4] %>% rep(each=16,length.out=192),
y=abs(rnorm(192,50,10)),
f=LETTERS[1:4] %>% rep(each=4,length.out=192),
g="g3"
)
tableAll <- bind_rows(table1,table2,table3)
p1 <- tableAll %>% ggplot(aes(interaction(x, g),y,pattern=f)) +
stat_summary(geom=GeomColPattern,
fun = mean,
position = position_dodge(width = 1.2),
pattern_spacing = 0.025,
fill = 'white',
colour = 'black',) +
stat_summary(geom="errorbar",
fun.data = mean_se,
position = position_dodge(width = 1.2)) +
scale_x_manual(values = c(1:4+seq(0,1,length.out=4),6:9+1+seq(0,1,length.out=4),11:14+2+seq(0,1,length.out=4)),guide = guide_axis_nested()) +
scale_y_continuous(expand = expansion(mult = c(0,0)),
breaks = seq(0,80,by=10),) +
labs(x=NULL,y=NULL,pattern=NULL) +
guides(pattern=guide_legend(nrow = 1)) +
coord_cartesian(ylim = c(0,70)) +
theme_classic() +
theme(legend.position = "inside",
legend.position.inside = c(.83,.95),
axis.ticks.length.x = unit(0,"mm"),
axis.ticks.length.y = unit(-1,"mm"),
ggh4x.axis.nestline = element_line(color=NA))
p1