Trong ggplot2, làm thế nào tôi có thể thay đổi đường viền của các mặt được chọn?

Question

Lấy đồ thị từ các trang trợ giúp ggplot2:

ggplot(mtcars, aes(factor(cyl))) + geom_bar() + facet_grid(. ~ vs) 

Có thể thay đổi biên giới (màu sắc và/hoặc độ dày) của tấm chỉ được chọn không? Ví dụ, tôi muốn thay đổi đường viền của mặt '1' của biến faceting vs.

Tôi đã thử thêm

theme(panel.border = element_rect(size = 3, colour = "red", fill = NA)) 

nhưng giải pháp mà thay đổi tất cả các biên giới.

Tôi cũng đã suy nghĩ về việc sử dụng geom_rect hoặc geom_polygon nhưng không chắc chắn cách giới hạn nó thành một ô.

tôi stumbled khi thread này vào R danh sách giúp đỡ, nhưng giải pháp không làm việc cho tôi

Bất kỳ đề xuất về cách di chuyển về phía trước sẽ được nhiều đánh giá cao.

Answer 1

Làm thế nào để tô màu bằng màu như thế này?

dd <- data.frame(vs = c(0,1), ff = factor(0:1)) 
ggplot() + geom_rect(data=dd, aes(fill=ff), 
    xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf, alpha=0.15) + 
    geom_bar(data = mtcars, aes(factor(cyl))) + facet_grid(. ~ vs) + 
    scale_fill_manual(values=c(NA, "red"), breaks=NULL) 

Answer 2

Tôi đã cố gắng để thực hiện một biên giới khía cạnh là tốt. Tôi đã làm chỉ là một chút tinh chỉnh các câu trả lời được cung cấp bởi Hadley trong thread đề cập trong câu hỏi như sau:

# Outline colours 
outline <- data.frame( 
    cyl = c(4, 6, 8), 
    outline_color = c('green', 'orange', 'red') 
) 

# Points defining square region for background 
square <- with(mtcars, data.frame( 
    x = c(-Inf, Inf, Inf, -Inf), 
    y = c(-Inf, -Inf, Inf, Inf) 
)) 

ggplot(mtcars, aes(x = mpg, y = wt)) + 
    geom_polygon(aes(x = x,y = y, color = outline_color, fill = NA), data = merge(outline, square)) + 
    geom_point() + 
    scale_fill_identity() + 
    facet_grid(. ~ cyl) 

Tạo đồ thị dưới đây với khác nhau biên giới khía cạnh: