Her bir satırı karşılaştırmak için çizim grafiği?

Question

Aşağıdaki tablo için bir çizim yapmak istiyorum.

     T6  T26 D6  D26 
ENSMUSG00000026427 420  170 197 249 
ENSMUSG00000026436  27  21 54  77 
ENSMUSG00000018189 513 246 429 484 
ENSMUSG00000026470 100  55 82  73 
ENSMUSG00000026696 147  73 182 283 
ENSMUSG00000026568 3620 1571 1264 1746 
ENSMUSG00000026504  95  60 569 428 

Her satırı karşılaştırmak ve her bir sütunu farklı bir renge göre belirtmek istiyorum. X.lab = Gen adı y.Lab =

Answer 1

ben uygun çizim seçimi tam veri kümesi özelliklerine bağlı olduğunu düşünüyorum sayar ve gelen Söyleyebileceğim kadarıyla, kimlikleri olası benzersiz değerlerin sayısı (üzerinde "ENSMUSG *") ve olası değişken sayısı ("T26", "D26", ...). Bununla birlikte, net olan şey, değişkenlerin farklı ölçeklere sahip olmasıdır, bu yüzden aynı grafik üzerinde birleştirilmemelidir ve bu yüzden aşağıda bir yönlü ızgara grafiği seçtim. İşte

Bize göstermek için seçtiğiniz verilerin örneğe göre uygun bir seçim yapar bazı kod şudur:

library(readr) 
library(dplyr) 
library(tidyr) 

df_foo = read.table(textConnection(
    "T6  T26 D6  D26 
ENSMUSG00000026427 420  170 197 249 
ENSMUSG00000026436  27  21 54  77 
ENSMUSG00000018189 513 246 429 484 
ENSMUSG00000026470 100  55 82  73 
ENSMUSG00000026696 147  73 182 283 
ENSMUSG00000026568 3620 1571 1264 1746 
ENSMUSG00000026504  95  60 569 428" 
)) 

# plot the data 
df_foo %>% 
    add_rownames(var = "ID") %>% 
    gather(key = Variable, value = Value, -ID) %>% 
    ggplot(aes(x = ID, y = Value, fill = Variable)) + 
    geom_bar(stat = "identity") + 
    theme_bw() + 
    facet_wrap(~ Variable, scales = "free_y") + 
    theme(axis.text.x = element_text(angle = 50, hjust = 1)) 

# save the plot 
ggsave("results/faceted_bar.png", dpi = 600) 

Not belirttik color yukarıda estetik kesinlikle biz göz önüne alındığında gerekli değildir zaten Variable ile faceting. İşte yukarıdaki kod üretir budur: Bu olabilir

kolayca bu veriler hakkında daha fazla bağlam ve bilgi kazandırdı verileriniz için uygun grafik olmadığını savundu. Başkalarının yorumladığı gibi soruna daha fazla ayrıntı eklemelisiniz.