我想創建一個三角形矩陣，將其順時針旋轉 45 度，并在旋轉的三角形矩陣的兩側附加顏色條。這是我的代碼：
# The data
library(tidyverse)
x <- 1:10
y <- 1:10
data <- expand.grid(X=x, Y=y)
data$X <- as.numeric(data$X)
data$Y <- as.numeric(data$Y)
data$Z <- 1:(10*10)
# Create upper triangular matrix
zz <- t(matrix(data$Z, 10, 10))
zz[lower.tri(zz)] <- NA
data$zz <- c(t(zz))
# Use "-Y" so that the first row of data is plotted in the first row
p1 <- ggplot(data, aes(X, -Y, fill= zz))
geom_tile()
# scale_fill_gradient(low="blue", high="red")
scale_fill_gradient(low = "#132B43", high = "#56B1F7", space = "Lab", na.value="white")
theme_bw()
theme(axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank())
這是p1，看起來不錯：
我希望將此矩陣順時針旋轉 45 度。我按照
這是我想要的：
由于我希望p1順時針旋轉45 度，所以對角線應該是垂直的，并且三角矩陣內不應該有缺失值。怎么做輪換？
此外，我想在熱圖的兩側添加顏色條，如下圖中粉紅色圓圈顏色條所示：
我的資料有 10 列和 10 行，我希望使用 5 種不同顏色為我自己的熱圖繪制像上面一樣的顏色條，每種顏色跨越兩個相鄰的行/列。如何添加？
uj5u.com熱心網友回復：
p1_fmt <- p1 guides(fill = "none") coord_equal()
tri_file <- tempfile()
ggsave(tri_file, p1_fmt, width = 3, height = 3, device = "png")
p1_guide <- cowplot::get_legend(p1)
guide_file <- tempfile()
ggsave(guide_file, p1_guide, width = 1, height = 1.5, device = "png")
library(magick)
tri <- image_read(tri_file) %>%
image_rotate(45) %>%
image_trim()
guide <- image_read(guide_file)
image_append(c(tri, guide))
uj5u.com熱心網友回復：
zz %>%
as.data.frame() %>%
mutate(row = 11 - row_number()) %>%
pivot_longer(-row, names_to = "col") %>%
filter(!is.na(value)) %>%
# slice(1:12) %>%
mutate(col = parse_number(col),
col_new = col - 5 - (row col)/2,
row_new = row - (10 - col)) %>%
ggplot(aes(col_new, row_new, fill = value))
geom_tile(width = 1)
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/328491.html