Làm cách nào để thêm nhãn chung vào các khía cạnh trong ggplot2?

Question

Tôi thường có các giá trị số cho faceting. Tôi muốn cung cấp đầy đủ thông tin để diễn giải các giá trị này trong tiêu đề bổ sung, tương tự như tiêu đề trục. Tùy chọn labeller lặp lại nhiều văn bản không cần thiết và không sử dụng được cho các tiêu đề biến dài hơn.

Mọi đề xuất?

Giá trị mặc định:

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) 

Những gì tôi rất thích:

Điều tốt nhất tôi có thể làm trong ggplot:

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

Như đã nêu bởi @Hendy, tương tự như: add a secondary y axis to ggplot2 plots - make it perfect

Answer 1

Khi mới nhất ggplot2 sử dụng gtable nội bộ, nó là khá dễ dàng để thay đổi một con số:

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) 

Tất nhiên, bạn có thể viết một hàm tự động thêm nhãn dải. Phiên bản tương lai của ggplot2 có thể có chức năng này; không chắc chắn mặc dù.

Answer 2

Ngoài các phương pháp vạch ra bởi kohske, bạn có thể thêm một biên giới để các hộp thêm vào bằng cách thay đổi

col=NA 

để

col=gray(0.5), linetype=1 

Ngoài ra, thay đổi

fill=gray(0.5) 

cho

fill=grey(0.8) 

và

gp=gpar(col=gray(1)) 

để

gp=gpar(col=gray(0)) 

Nếu bạn muốn các thanh mới để phù hợp với khía cạnh nhãn

tức

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))) 

Answer 3

Có thể có một cách tốt hơn để làm nhưng bạn có thể:

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