r - 如何使用数值为构面网格中的每个绘图设置背景颜色
问题描述
我想为每个单独的情节的背景着色以突出相关性。整个想法是几个时间序列的自相关矩阵图。
在此之后,我几乎可以通过我的超级简化示例轻松理解它的工作:
library(tidyverse)
set.seed(214)
n <- 1000
df <- tibble(v1 = runif(n), v2 = runif(n)*0.1 + v1, v3 = runif(n)*0.2 + v2, v4 = runif(n)*0.3 + v3, v5 = runif(n)*0.4 + v4, v6 = runif(n)*0.5 + v5)
C <- crossing(w1 = 1:length(df), w2 = 1:length(df)) # Alle Kombinationsmöglichkeiten
CM <- array(0, dim = c(length(df), length(df))) #Correlation Matrix
FACET_LIST <- lapply(1:nrow(C), function(c) { # c <- 14 C[c,]
tibble(a1 = unlist(df[, C$w1[c]], use.names = FALSE),
a2 = unlist(df[, C$w2[c]], use.names = FALSE),
name1 = names(df[, C$w1[c]]),
name2 = names(df[, C$w2[c]])
)
})
FACET <- do.call(rbind.data.frame, FACET_LIST)
FACET$name1 <- as_factor(FACET$name1)
FACET$name2 <- as_factor(FACET$name2)
for (i in seq_along(df)) {
for (j in seq_along(df)) {
CM[i,j] <- cor(df[i], df[j], use = "complete.obs")
}
}
dat_text <- data.frame(
name1 = rep(names(df), each = length(names(df))),
name2 = rep(names(df), length(names(df))),
R2 = paste(round(as.vector(CM) * 100, 1), "%")
)
p <- ggplot()
p <- p + geom_point(data=FACET, aes(a1, a2), size = 0.5)
p <- p + stat_smooth(data=FACET, aes(a1, a2), method = "lm")
p <- p + facet_grid(vars(name1), vars(name2)) + coord_fixed()
p <- p + geom_rect(data = dat_text, aes(fill = R2), xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf, alpha = 0.3)
p <- p + geom_text(data = dat_text, aes(x = 0.3, y = 1.2, label = R2))
p <- p + scale_fill_brewer(palette = "Greens")
p
我正在寻找最后一行工作。它总是给我默认颜色。
编辑:
解决方案
因此,在您的帮助下,我找到了解决方案。首先,该dat_text$R2
列必须是原因数字。添加 % 符号会将其转换为被解释为离散比例的字符。
dat_text <- tibble(
name1 = rep(names(df), each = length(names(df))),
name2 = rep(names(df), length(names(df))),
R2 = round(as.vector(CM) * 100, 1)
)
geom_text
可以在调用中添加百分号。然后,scale_fill_gradient
通话效果很好。我找不到将比例从 0% 固定到 100%,但最终这可能会更好。否则,背景颜色之间几乎没有区别。
p <- ggplot()
p <- p + geom_point(data=FACET, aes(a1, a2), size = 0.5)
p <- p + stat_smooth(data=FACET, aes(a1, a2), method = "lm")
p <- p + facet_grid(vars(name1), vars(name2)) + coord_fixed()
p <- p + geom_rect(data = dat_text, aes(fill = R2), xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf, alpha = 0.3)
p <- p + geom_text(data = dat_text, aes(x = 0.3, y = 1.2, label = paste0(R2,"%")))
p <- p + scale_fill_gradient(low = "black", high = "darkgreen", aesthetics = "fill")
p
推荐阅读
- php - 使用 php 清理外部 xml 文件
- docker - 带有 dockerized Web 应用程序的 Iptables 规则 - 无法阻止传入流量
- sql - 从多个表中插入多个值
- prolog - 级别([X|_],X,1)。如何获得树上给定值的级别?
- c++ - PyRun_SimpleString() 函数慢吗?
- javascript - 将条件导入中返回的承诺范围更改为 React 中的不同变量
- sql - 资产负债表报表的动态 T-SQL 数据透视查询
- linux - 当一个进程忙于在用户空间运行时,是否可以被信号中断
- python - warnings.filterwarning 问题(您知道的可重复性极低)
- javascript - Javascript中的addEventListener“点击”不起作用