ggplot kutu çizgilerini çizgiler ve çoklu faktör kullanarak bağlayın

Question

Birden fazla faktör için ggplot2 boxplots'u geom_lines ile bağlamaya çalışıyorum. Şimdiye kadar bütün kutucukları çizgilerle birleştirmek için başarabiliyordum, resme bakın. Ancak, tek kutuları karşılık gelen faktörlere bağlamak istiyorum.

benim değişken FL için Örneğin, ben kalan değişkenlerle bağlamadan, sadece bu iki Boxplot bağlamak istiyorum. Benzer şekilde, RW değişkeni için, bu iki cinsiyet kutu plotunu kalan diğerleri olmadan bağlar.

library("MASS") 
data(crabs) 
melt_crabs <- melt(crabs,id.var=c("sp","sex","index")) 
ggplot(melt_crabs, aes(x = variable, y = value)) + geom_line(aes(group = index), size = 0.05, alpha = 0.7) + geom_boxplot(aes(fill = sp), alpha = 0.5) + facet_grid(sex~.) 

Bunu nasıl yapacağını bilen var mı? Umarım kendime en açık yolu açıklarım.

Çok teşekkürler ve iyi dilek,

Answer 1

. Cevabını inşa etmek, çünkü belirli bir değişken için, parseller artık yan yana değil, her birini kendi ayrı arsalarına koymak isteyebilirsiniz. Bu içinde facet_grid çağrıya yalnızca küçük çimdik ile kolayca olabilir @ Stibu kod:

ggplot(melt_crabs, aes(x = interaction(sex, variable), y = value)) + 
    geom_boxplot(aes(fill = sex), alpha = 0.5) + 
    geom_line(aes(group = interaction(index, variable)), 
      alpha = 0.5, colour = "darkgrey") + 
    facet_grid(sp~variable,scales="free_x") + 
    scale_x_discrete(labels = "") 

Ayrıca

Ben, bu değil mi alta üst şeridini taşımak istiyorsanız bazı kazma vermedi' t bu zor. kodunu uyarlanması: How to display strip labels below the plot when faceting?

Biz alıyorum:

p<-ggplot(melt_crabs, aes(x = interaction(sex, variable), y = value)) + 
    geom_boxplot(aes(fill = sex), alpha = 0.5) + 
    geom_line(aes(group = interaction(index, variable)), 
      alpha = 0.5, colour = "darkgrey") + 
    facet_grid(sp~variable,scales="free_x") + 
    scale_x_discrete(labels = "") 

# Convert the plot to a grob 
gt <- ggplotGrob(p) 

# Get the positions of the panels in the layout: t = top, l = left, ... 
panels <-c(subset(gt$layout, name == "panel", select = t:r)) 

# Get the strip grob & x-axis label grob 
stripGrob = gtable_filter(gt, "strip-top") 

#Replace x-axis ticks with strip 
gt = gtable_add_grob(gt, stripGrob, t = max(panels$b)+1, l = min(panels$l), r = max(panels$r)) 

# remove the old strip 
gt = gt[-(min(panels$t)-1), ] 

grid.newpage() 
grid.draw(gt) 

Answer 2

Sana üretilen tam olarak arsa noktaları bağlamak için yol bilmiyorum. Ama sana benzer bir şeyi nasıl yapacağını gösterebilirim.

zorluk kutudiyagramlar bir çift ait tüm noktalar aynı x koordinatı paylaşmak olmasıdır (yani, variable için aynı değeri). Bu nedenle, her bir kutu plotunun kendi x değerine sahip olacağı şekilde 0-koordinat olarak interaction(sex, variable) kullandım. Bununla birlikte, eşleştirilmiş kutuların daha az görülebilir olduğu anlamına gelir. Diğer taraftan, bağlantı hatları diğer yönde çalışır.

Çizgileri çizmek için, bunlar interaction(index, variable) ile gruplandırılmıştır; bu, index ve variable için aynı değerleri paylaştıklarında veri noktalarının bağlandığı anlamına gelir.

kadar konuşma yeter, burada kod:

ggplot(melt_crabs, aes(x = interaction(sex, variable), y = value)) + 
    geom_boxplot(aes(fill = sex), alpha = 0.5) + 
    geom_line(aes(group = interaction(index, variable)), 
       alpha = 0.5, colour = "darkgrey") + 
    facet_grid(sp~.) + 
    scale_x_discrete(labels = rep(levels(melt_crabs$variable), each = 2)) 

Stibu cevabı İstenen çıktıyı almak için hızlı ve basit yoludur kesinlikle @