欢迎关注R语言数据分析指南
❝本节来介绍一款R包「gguidance」，其主要可以用来自定义设置图例及刻度条，在实际操作中非常的实用，下面小编来简单介绍几个案例来做展示，希望各位观众老爷能够喜欢，更多详细文档请参考作者官方文档。
❞
官方文档
❝https://github.com/teunbrand/gguidance
❞
关注下方公众号下回更新不迷路
加载R包
install.package("pak")
pak::pak("tidyverse/ggplot2")
pak::pak("teunbrand/gguidance@main")
library(gguidance)
绘制主图
p <- ggplot(mpg, aes(displ, hwy)) +
geom_point() +
labs(
x = "Engine displacement",
y = "Highway miles per gallon") +
theme(axis.line = element_line())
设置图例布局
p + aes(colour = paste(cyl, year)) +
guides(colour = "legend_cross")
设置图例颜色
p + aes(colour = class) +
guides(colour = "legend_string")
设置图例两端形状
p + aes(colour = cty) +
scale_colour_viridis_c(guide = "colourbar_cap")
设置图例为小提琴
p + aes(colour = cty) +
scale_colour_viridis_c(guide = guide_colour_violin(density = mpg$cty))
设置图例为直方图
p + aes(colour = cty) +
scale_colour_viridis_c(
guide = guide_colour_histogram(hist = hist(mpg$cty, breaks = 10))
)
刻度添加文本
p + guides(x = guide_axis_extend(subtitle = c("Less", "More")))
设置刻度类型
p + guides(x = "axis_minor")
p + guides(x = "axis_cap")
boxplot <- ggplot(mpg, aes(class, displ)) +
geom_boxplot() +
labs(
x = "Type of car",
y = "Engine displacement"
)
boxplot +
guides(x = guide_axis_nested(
range_start = c(0.5, 3.5),
range_end = c(4.5, 6.5),
range_name = c("First range", "Second range"),
bracket = "square"
))
组合表格与图
my_table <- lapply(split(mpg[, c("displ", "cty", "hwy")], mpg$class), colMeans)
my_table <- as.data.frame(do.call(rbind, my_table))
my_table[] <- lapply(my_table, scales::number, accuracy = 0.01)
my_table$class <- rownames(my_table)
boxplot +
guides(x = guide_axis_table(table = my_table, key_col = class))
添加阴影
boxplot + coord_guided("grid_zebra") +
theme(panel.grid.major.x = element_line(alpha("grey50", 0.1)))
❝本节介绍到此结束，有需要学习个性化数据可视化的朋友，欢迎到小编的「淘宝店铺」 「R语言数据分析指南」购买「2023年度会员文档」同步更新中「售价149元」，内容主要包括各种「高分论文的图表分析复现以及一些个性化图表的绘制」均包含数据+代码；按照往年数据小编年产出约在150+以上
❞
购买后微信发小编订单截图即邀请进新的会员交流群，小编的文档为按年售卖，只包含当年度的「除系列课程外」的文档，有需要往年文档的朋友也可下单购买，需要了解更多信息的朋友欢迎交流咨询。
淘宝扫一扫
2023会员群案例展示
