Ggplot2'deki yönlere nasıl genel bir etiket eklersiniz?

Yüz oluşturma için genellikle sayısal değerlere sahibim. Eksen başlıklarına benzer şekilde ek bir başlıkta bu fasetleme değerlerini yorumlamak için yeterli bilgi sağlamak istiyorum. Etiketleyici seçenekleri çok fazla gereksiz metni tekrarlar ve daha uzun değişken başlıklar için kullanılamaz.

Herhangi bir öneri?

Varsayılan:

test<-data.frame(x=1:20, y=21:40, facet.a=rep(c(1,2),10), facet.b=rep(c(1,2), each=20))
qplot(data=test, x=x, y=y, facets=facet.b~facet.a)

Ne isterdim:

Ggplot'ta yapabileceğim en iyi şey:

qplot(data=test, x=x, y=y)+facet_grid(facet.b~facet.a, labeller=label_both)

@Hendy tarafından belirtildiği gibi, şuna benzer: ggplot2 grafiklerine ikincil bir y ekseni ekleyin - onu mükemmel hale getirin

En son olarak ggplot2kullanımları gtableiçten, bir rakam değiştirmek oldukça kolaydır:

library(ggplot2)
test <- data.frame(x=1:20, y=21:40, 
                   facet.a=rep(c(1,2),10), 
                   facet.b=rep(c(1,2), each=20))
p <- qplot(data=test, x=x, y=y, facets=facet.b~facet.a)

# get gtable object
z <- ggplotGrob(p)

library(grid)
library(gtable)
# add label for right strip
z <- gtable_add_cols(z, unit(z$widths[[7]], 'cm'), 7)
z <- gtable_add_grob(z, 
                     list(rectGrob(gp = gpar(col = NA, fill = gray(0.5))),
                          textGrob("Variable 1", rot = -90, gp = gpar(col = gray(1)))),
                     4, 8, 6, name = paste(runif(2)))

# add label for top strip
z <- gtable_add_rows(z, unit(z$heights[[3]], 'cm'), 2)
z <- gtable_add_grob(z, 
                     list(rectGrob(gp = gpar(col = NA, fill = gray(0.5))),
                          textGrob("Variable 2", gp = gpar(col = gray(1)))),
                     3, 4, 3, 6, name = paste(runif(2)))

# add margins
z <- gtable_add_cols(z, unit(1/8, "line"), 7)
z <- gtable_add_rows(z, unit(1/8, "line"), 3)

# draw it
grid.newpage()
grid.draw(z)

Elbette, şerit etiketlerini otomatik olarak ekleyen bir işlev yazabilirsiniz. Ürününün gelecekteki bir sürümü ggplot2bu işleve sahip olabilir; Yine de emin değilim.

Bunu yapmanın daha iyi bir yolu olabilir, ancak şunları yapabilirsiniz:

fac1 = factor(rep(c('a','b'),10))
fac2 = factor(rep(c('a','b'),10))
data = data.frame(x=1:10, y=1:10, fac1=fac1, fac2=fac2)
p = ggplot(data,aes(x,y)) + ggplot2::geom_point() + 
facet_grid(fac1~fac2)
p + theme(plot.margin = unit(c(1.5,1.5,0.2,0.2), "cm"))
grid::grid.text(unit(0.98,"npc"),0.5,label = 'label ar right', rot = 270) # right
grid::grid.text(unit(0.5,"npc"),unit(.98,'npc'),label = 'label at top', rot = 0)   # top

Kohske tarafından özetlenen yönteme ek olarak, değiştirerek eklenen kutulara bir kenarlık ekleyebilirsiniz.

col=NA

-e

col=gray(0.5), linetype=1

Ayrıca değiştir

fill=gray(0.5)

için

fill=grey(0.8)

ve

gp=gpar(col=gray(1))

-e

gp=gpar(col=gray(0))

Yeni çubukların faset etiketleriyle eşleşmesini istiyorsanız

yani

z <- gtable_add_grob(z, 
      list(rectGrob(gp = gpar(col = gray(0.5), linetype=1, fill = gray(0.8))),
      textGrob("Variable 1", rot = -90, gp = gpar(col = gray(0)))),
      4, 8, 6, name = paste(runif(2)))