如何使用ggplot2在y軸的任一側繪制條形圖？

我試圖barplot在（至少出現在“YES”或“NO”中）的任一側繪制一個，y-axis而不是將“YES”和“NO”堆疊在一起。首先，我將其轉換data.frame為更長的格式 > 計算mean> ggplot2。

當我運行 ggplot2 代碼時，barplot它與“YES”和“NO”堆疊在一起（見下面的截圖）。我提供了用于繪圖的示例資料。基本上，我想按預期查看情節。我還缺少任何其他步驟嗎？請協助。

dput(Data)
structure(list(SampleID = c("Sample_1", "Sample_2", "Sample_3", 
                            "Sample_4", "Sample_5", "Sample_6"), Sustained_CR = c("NO", "NO", 
                                                                                  "NO", "YES", "YES", "YES"), Gene_A = c(2.245937679, 0, 0, 1.128343065, 
                                                                                                                         0, 0), Gene_CCC = c(83.09969414, 16.10799215, 122.2752332, 57.54549633, 
                                                                                                                                             13.12780895, 62.70159708), Gene_XED = c(6.737813038, 1.006749509, 
                                                                                                                                                                                     12.80978634, 1.128343065, 0, 2.508063883), RNA = c(580.5748901, 
                                                                                                                                                                                                                                        312.0923478, 347.0287571, 292.2408539, 355.7636226, 125.4031942
                                                                                                                                                                                     )), row.names = c("Sample_1", "Sample_2", "Sample_3", "Sample_4", 
                                                                                                                                                                                                       "Sample_5", "Sample_6"), class = "data.frame")

library(tidyverse)
Data_long <- Data[, -c(1)] %>% pivot_longer(cols = -"Sustained_CR",names_to="Gene_Symbols",values_to="Normalized expression values")
sum(is.na(Data_long))
head(Data_long)

## Calculate the mean based on the Gene_Symbols
Data_mean <- Data_long %>% group_by(Gene_Symbols, Sustained_CR) %>% summarize(Norm_exp=mean(`Normalized expression values`, na.rm = T))
print(Data_mean)
Gene_Symbols Sustained_CR Norm_exp
<chr>        <chr>           <dbl>
  1 Gene_A       NO              0.749
2 Gene_A       YES             0.376
3 Gene_CCC     NO             73.8  
4 Gene_CCC     YES            44.5  
5 Gene_XED     NO              6.85 
6 Gene_XED     YES             1.21 
7 RNA          NO            413.   
8 RNA          YES           258.   


ggplot(Data_mean, aes(reorder(Gene_Symbols, -Norm_exp), Norm_exp, fill = Sustained_CR))  
  geom_bar(stat = "identity")  
  coord_flip()  
  xlab("Gene_Symbols")

實際上，我不希望兩邊都有堆積的條形圖。該欄應僅出現在“是”或“否”中。

謝謝你，

圖菲克

uj5u.com熱心網友回復：

當為“否”時，您需要將Norm_exp值設為負數：Sustained_CR

Data_mean %>% 
  mutate(Norm_exp = ifelse(Sustained_CR == "YES", Norm_exp, -Norm_exp)) %>%
  ggplot(aes(reorder(Gene_Symbols, -Norm_exp), Norm_exp, fill = Sustained_CR))  
  geom_col(position = "dodge")  
  coord_flip()  
  xlab("Gene_Symbols")  
  scale_fill_brewer(palette = "Set1")  
  theme_minimal(base_size = 16)  
  scale_y_continuous(labels = abs)

標籤：r ggplot2 tidyverse 条形图 重塑

上一篇：如何為每個集群設定不同的顏色

下一篇：R中的意大利面條圖具有不同的測量時間