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

Tôi thường có các giá trị số cho các khía cạnh. Tôi muốn cung cấp đầy đủ thông tin để giải thích các giá trị khía cạnh này trong tiêu đề bổ sung, tương tự như tiêu đề trục. Các tùy chọn người ghi nhãn 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.

Bất kỳ đề xuất?

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)

Điều tôi 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ư được chỉ ra bởi @Hendy, tương tự như: thêm trục y phụ vào các ô ggplot2 - làm cho nó hoàn hảo

Vì phiên bản mới nhất được ggplot2sử dụng gtabletrong nội bộ nên việc sửa đổi một figure khá dễ dàng:

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 các nhãn dải. Phiên bản tương lai của ggplot2có thể có chức năng này; không chắc chắn mặc dù.

Có thể có một cách tốt hơn để làm điều đó, 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

Ngoài phương pháp được nêu bởi kohske, bạn có thể thêm đường viền vào các hộp được thêm bằng cách thay đổi

col=NA

đến

col=gray(0.5), linetype=1

Ngoài ra, hãy thay đổi

fill=gray(0.5)

cho

fill=grey(0.8)

và

gp=gpar(col=gray(1))

đến

gp=gpar(col=gray(0))

Nếu bạn muốn các thanh mới khớp với các nhãn khía cạnh

I E

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