這個問題最初在這里發布，但尚未找到解決方案。在這里，我想詢問任何解決著色問題的方法，同時保持整體繪圖布局，可能使用 ggplot2 或其他方式。簡而言之，我想繪制類似于條形碼圖的內容，條形高度反映行列差異，條形寬度反映跨列的行總和。test.matrix <- matrix(c(70, 120, 65, 140, 13, 68, 46, 294, 52, 410), ncol=2, byrow=TRUE)rownames(test.matrix) <- c("BC.1", "BC.2", "GC", "MO", "EB")colnames(test.matrix) <- c("12m","3m")test.matrix <- as.table(test.matrix)test.matrix 12m 3mBC.1 70 120BC.2 65 140GC 13 68MO 46 294EB 52 410plot(test.matrix)布局_NO_顏色這正是我需要的布局，但是我無法找到一種方法來為跨列的不同行著色，它只為跨行的列著色。color.ct <- c("gold","yellowgreen","navy","royalblue","orangered")names(x = color.ct) <- rownames(test.matrix)color.ct BC.1 BC.2 GC MO EB "gold" "yellowgreen" "navy" "royalblue" "orangered" plot(test.matrix, col= color.ct)布局顏色是否有任何 R 或 python 解決方案可以解決這個問題并獲得與上面完全相同的繪圖布局，但條形根據提供的顏色向量著色？
1 回答
郎朗坤
TA貢獻1921條經驗 獲得超9個贊
也許可以嘗試使用以下方法ggplot2和tidyverse函數：
library(tidyverse)
#Code
test.matrix %>% as.data.frame.matrix %>% rownames_to_column('Var') %>%
pivot_longer(-Var) %>%
mutate(name=factor(name,levels = rev(unique(name)),ordered = T)) %>%
ggplot(aes(x=name,y=value,fill=Var))+
geom_bar(stat='identity',color='black',position='fill')+
coord_flip()+
scale_fill_manual(values=c('BC.1'="gold",'BC.2'="yellowgreen",
'GC'="navy",'MO'="royalblue",'EB'="orangered"))+
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())
輸出：
另一種選擇可以是：
#Code 2
test.matrix %>% as.data.frame.matrix %>% rownames_to_column('Var') %>%
pivot_longer(-Var) %>%
mutate(name=factor(name,levels = rev(unique(name)),ordered = T)) %>%
ggplot(aes(x=name,y=value,fill=Var))+
geom_bar(stat='identity',color='black')+
coord_flip()+
facet_wrap(name~.,scales = 'free',strip.position = 'left',ncol = 1)+
scale_fill_manual(values=c('BC.1'="gold",'BC.2'="yellowgreen",
'GC'="navy",'MO'="royalblue",'EB'="orangered"))+
theme(axis.text.y = element_blank(),
axis.ticks.y = element_blank())
輸出：
添加回答
舉報
0/150
提交
取消