r - 删除列标签的背景颜色,同时保持绘图背景颜色 ggpairs
问题描述
我已经定义了一个函数来设置 ggpairs 中的背景以匹配两个变量之间的相关程度。但是,我还想从沿绘图外部运行的变量标签中删除灰色背景,但如果不删除相关颜色,我将无法做到这一点。
library(GGally)
# Loads some data
mtcars <- dput(mtcars)[,1:6]
# Defines function to color according to correlation
cor_func <- function(data, mapping, method, symbol, ...){
x <- eval_data_col(data, mapping$x)
y <- eval_data_col(data, mapping$y)
corr <- cor(x, y, method=method, use='complete.obs')
colFn <- colorRampPalette(c("brown1", "white", "dodgerblue"),
interpolate ='spline')
fill <- colFn(100)[findInterval(corr, seq(-1, 1, length = 100))]
ggally_text(
label = paste(symbol, as.character(round(corr, 2))),
mapping = aes(),
xP = 0.5, yP = 0.5,
color = 'black',
...) +
theme_void() +
theme(panel.background = element_rect(fill = fill))
}
# Following the suggestion by @Jonni
pm <- ggpairs(mtcars,
upper = list(continuous = wrap(cor_func,
method = 'spearman', symbol = expression('\u03C1 ='))),
lower = list(continuous = function(data, mapping, ...) {
ggally_smooth_lm(data = data, mapping = mapping) +
theme(panel.background = element_blank())}),
diag = list(continuous = function(data, mapping, ...) {
ggally_densityDiag(data = data, mapping = mapping) +
theme(panel.background = element_blank())}
))
pm
# All of these methods looses the correlation color in addition
# to the background color of the labels
pm + theme(strip.background = element_rect(fill = "white"))
pm + theme(strip.background = element_rect(fill = NA))
pm + theme(strip.background = element_blank())
# This only looses the correlation colors
pm + theme(panel.grid.major = element_blank(), panel.grid.minor =
element_blank())
这是第一次调用 plot 产生的带有颜色的图(仍然具有灰色标签背景):
解决方案
::EDITED:: 这对我来说可以从构面标签中删除灰色。在函数中取出theme_void(),最后指定个性化主题。
mtcars <- dput(mtcars)[,1:6]
# Defines function to color according to correlation
cor_func <- function(data, mapping, method, symbol, ...){
x <- eval_data_col(data, mapping$x)
y <- eval_data_col(data, mapping$y)
corr <- cor(x, y, method=method, use='complete.obs')
colFn <- colorRampPalette(c("brown1", "white", "dodgerblue"),
interpolate ='spline')
fill <- colFn(100)[findInterval(corr, seq(-1, 1, length = 100))]
ggally_text(
label = paste(symbol, as.character(round(corr, 2))),
mapping = aes(),
xP = 0.5, yP = 0.5,
color = 'black',
...
) + #removed theme_void()
theme(panel.background = element_rect(fill = fill))
}
pm <- ggpairs(mtcars,
upper = list(continuous = wrap(cor_func,
method = 'spearman', symbol = expression('\u03C1 ='))),
lower = list(continuous = function(data, mapping, ...) {
ggally_smooth_lm(data = data, mapping = mapping) +
theme(panel.background = element_blank())}),
diag = list(continuous = function(data, mapping, ...) {
ggally_densityDiag(data = data, mapping = mapping) +
theme(panel.background = element_blank())}
))
mytheme = theme(strip.background = element_rect(fill = "white"),panel.grid.major = element_blank(), panel.grid.minor = element_blank())
pm + mytheme
可能不需要定义主题,但如果您必须制作多个主题,可能会很有用
推荐阅读
- robotframework - 机器人框架 API 测试 - 未找到创建会话关键字
- mysql - 仅按输入的顺序排序,而不是按时间戳排序
- javascript - 如何在 Jest 中模拟猫鼬模式方法?
- ios - AppTrackingTransparency 权限是强制性的吗?
- r - R中的数据框重组从宽格式到两列
- node.js - 节点命令正常工作,但 npm 命令根本不工作
- python - Too many combinations
- ios - 如何在单个标签中获得多个单词点击
- c++ - 声明静态函数错误:“'静态'只能在类定义中指定”
- javascript - 禁用按钮时如何在 RTL 中调用 onPress 处理程序?