去除geom_tile中分離樣本的灰色垂直條紋-有解無憂

嗨，我的資料 (data_long) 如下所示：

 genes  sample  value   Group Type
 A1 O7high  6796.448    G0   A
 AA O7high  4997.250    G0   A
 A3 O7high  9477.100    G0   A
 A4 O7high  6083.558    G0   A   
 A1 08low   075.364     G0   B
 AA 08low   13066.130   G0   B

p <- ggplot(data_long, aes(x=sample, y=value,group=genes,color=Group))    
  geom_tile(aes(fill = as.factor(Type),color = NA,y = 7000), height = Inf, alpha = 0.5)  
  geom_line(aes(linetype=Group,color=Group, size=Group))   
  stat_summary(aes(group = -1), fun=median, geom='line',size=2, color='orange')   
  theme_classic()   
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) 
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))  
  scale_y_sqrt() 
  scale_colour_manual(values=c("black","blue")) 
  scale_size_manual(values=c(0.3,1.5)) 
  scale_linetype_manual(values=c("dashed", "solid")) 
  theme_classic()

p   theme_bw()  
  theme(panel.grid = element_blank(),
        panel.border = element_blank())

我使用上面的代碼來繪制中線并突出顯示我感興趣的一些基因。一切正常，但是當看到情節時，有這些垂直的灰線（分隔每個樣本？）我不知道如何洗掉這些線。我希望相同型別的 geom_tile 沒有任何線條。請讓我知道如何洗掉這些行

去除 geom_tile 中分離樣本的灰色垂直條紋

uj5u.com熱心網友回復：

感謝您使用所需資訊更新您的問題。也許你可以通過移動color = NA到外面來去除灰線aes()，例如

library(tidyverse)
data_long <- read.table(text = "genes  sample  value   Group Type
A1 O7med  6796.448    G0   A
AA O7med  4997.250    G0   A
A3 O7high  9477.100    G0   A
A4 O7high  6083.558    G0   A   
A1 08low   075.364     G0   B
AA 08low   13066.130   G0   B", header = TRUE)

p <- ggplot(data_long, aes(x=sample, y=value,group=genes,color=Group))    
  geom_tile(aes(fill = as.factor(Type), y = 7000), color = NA, height = Inf, alpha = 0.5)  
  geom_line(aes(linetype=Group,color=Group, size=Group))   
  stat_summary(aes(group = -1), fun=median, geom='line',size=2, color='orange')   
  theme_classic()   
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) 
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))  
  scale_y_sqrt() 
  scale_colour_manual(values=c("black","blue")) 
  scale_size_manual(values=c(0.3,1.5)) 
  scale_linetype_manual(values=c("dashed", "solid"))

p   theme_bw()  
  theme(panel.grid = element_blank(),
        panel.border = element_blank())

去除 geom_tile 中分離樣本的灰色垂直條紋

^{由reprex 包(v2.0.1)于 2021 年 10 月 13 日創建}

這適用于您的實際資料集嗎？

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/315827.html

標籤：r ggplot2 美学 geom-tile

上一篇：ggplot中混合斜體和常規字體的多行文本/標簽

下一篇：水平移動Y軸標題ggplot2