Jak zmienić kolor krawędzi aspektów przy użyciu facet_grid

Question

Podczas korzystania z facet_grid, ggplot2 dzieli główne kategorie, które składają się na zmienne aspektów z szerszą niż zwykle białą linią. To służy większości celów. Czasami chcę wyraźniej wskazać podziały między tymi głównymi kategoryzacjami i chciałbym zacienić podział aspektu za pomocą innego koloru. Czy jest jakiś sposób na zrobienie tego? Dzięki.

Answer 1

Chociaż roku późno, uważam, że jest to łatwo naprawić:

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

Spróbuj tego - możesz nim sterować za pomocą strip.background, sformatowanego za pomocą połączenia element_rect.

qplot (Highway, cty dane = mpg) + facet_grid (. ~ Producenta) +
motyw (strip.text.x = element_text (rozmiar = 8, barwa = "Red", k = 90 ), strip.background = element_rect (wypełnić = "granatowy", kolor = nA))

Answer 3

może trzeba użyć ggplot „s tabeli układu i gtable funkcje.

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)