Làm thế nào để thay đổi màu sắc của các đường viền khía cạnh khi sử dụng facet_grid

Question

Khi sử dụng facet_grid, ggplot2 chia các danh mục chính tạo nên các biến khía cạnh với một đường trắng rộng hơn bình thường. Điều này phục vụ hầu hết các mục đích tốt. Đôi khi tôi muốn hiển thị rõ ràng hơn các phân chia giữa các phân loại chính này và muốn làm bóng phân chia khía cạnh với một màu khác. Có cách nào làm được việc này không? Cảm ơn.

Answer 1

Mặc dù một năm cuối, tôi thấy đây là một sửa chữa dễ dàng:

ggplot(mpg, aes(cty, hwy, color = factor(year)))+ 
    geom_point()+ 
    facet_grid(cyl ~ drv) + 
    theme(panel.margin=unit(.05, "lines"), 
     panel.border = element_rect(color = "black", fill = NA, size = 1), 
     strip.background = element_rect(color = "black", size = 1)) 

Answer 2

Hãy thử điều này - bạn có thể kiểm soát điều này với strip.background, được định dạng bằng cuộc gọi element_rect.

qplot (Hwy, cty, data = mpg) + facet_grid (. ~ Nhà sản xuất) +
chủ đề (strip.text.x = element_text (size = 8, color = "red", góc = 90), strip.background = element_rect (điền = "DARKBLUE", color = NA))

Answer 3

Bạn có thể cần phải sử dụng ggplot 's bảng bố trí và gtable chức năng.

library(ggplot2) 
library(gtable) 
library(grid) 

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point() + 
    facet_grid(am ~ cyl) 
## Get the plot grob 
gt <- ggplotGrob(p) 

## Check the layout 
gtable_show_layout(gt) # Vertical gaps are in columns 5 and 7 
         # and span rows 4 to 9 
         # Horizontal gap is in row 8 
         # and spans columns 4 to 9 


## To automate the selection of the relevant rows and columns: 
## Find the panels in the layout 
## (t, l, b, r refer to top, left, bottom, right); 
## The gaps' indices are one to the right of the panels' r index (except the right most panel); 
## and one below the panels' b index (except the bottom most panel); 
## Rmin and Rmax give the span of the horizontal gap; 
## Bmin and Bmax give the span of the vertical gap; 
## cols and rows are the columns and row indices of the gaps. 

panels = subset(gt$layout, grepl("panel", gt$layout$name), t:r) 

# The span of the horizontal gap 
Rmin = min(panels$r) 
Rmax = max(panels$r) + 1 

#The span of the vertical gap 
Bmin = min(panels$t) - 1 
Bmax = max(panels$t) 

# The columns and rows of the gaps 
cols = unique(panels$r)[-length(unique(panels$r))] + 1 
rows = unique(panels$t)[-length(unique(panels$t))] + 1 

# The grob - orange rectangle 
g = rectGrob(gp = gpar(col = NA, fill = "orange")) 

## Add orange rectangles into the vertical and horizontal gaps 
gt <- gtable_add_grob(gt, 
     rep(list(g), length(cols)), 
     t=Bmin, l=cols, b=Bmax) 

gt <- gtable_add_grob(gt, 
     rep(list(g), length(rows)), 
     t=rows, l=Rmin, r=Rmax) 

## Draw it 
grid.newpage() 
grid.draw(gt)