我想為 corrplot 的每一“行”添加一種顏色，但我還沒有找到任何解決方案。
我的代碼如下所示：
#install.packages("corrplot")
library("corrplot")
df <- matrix(runif(60, 20, 30), 8)
Labels <- c("var1", "var2", "var3", "var4", "var5", "var6", "var7", "var8")
LabelColRow <- c("red", "blue", "green", "yellow", "purple", "black", "grey")
rownames(df) <- Labels
colnames(df) <- Labels
corrplot(df,
is.corr = FALSE,
method = "circle",
mar = c(2, 1, 3, 1),
addgrid.col = "NA",
cl.pos = "n",
tl.cex = 0.75,
tl.col = "black",
tl.srt = 360,
tl.offset = 0.9,
tl.pos = "lt"
)
所以基本上我希望 var1 的“行”為紅色，var2 的行為藍色，等等。
編輯：
uj5u.com熱心網友回復：
它看起來不像corrplot提供按行著色的功能。另一種方法是在ggplot. 更多的作業，當然，但它允許靈活地為行著色。
作為解決方案的開始：
df %>%
as.data.frame() %>%
rowid_to_column() %>%
pivot_longer(-rowid) %>%
ggplot()
geom_point(aes(x = name, y = rowid, size = value, colour = factor(rowid)) )
geom_text(aes(x = name, y = rowid, label = round(value,0)))
scale_size(range = c(0, 20))
scale_colour_manual(values = c("blue", "green", "red", "orange", "grey", "purple", "darkblue", "black", "green"))
guides(colour = "none", size = "none")
labs(x = NULL, y = NULL)
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/324570.html