Jak używać facet_wrap w r (z przykładami)

Funkcji facet_wrap() można używać do tworzenia wykresów wielopanelowych w ggplot2.

Ta funkcja wykorzystuje następującą podstawową składnię:

 library (ggplot2)

ggplot(df, aes (x_var, y_var)) +
  geom_point() +
  facet_wrap(vars(category_var))

Poniższe przykłady pokazują, jak używać tej funkcji z wbudowanym zbiorem danych mpg w R:

 #view first six rows of mpg dataset
head(mpg)

manufacturer model displ year cyl trans drv cty hwy fl class
										
audi a4 1.8 1999 4 auto(l5) f 18 29 p compact
audi a4 1.8 1999 4 manual(m5) f 21 29 p compact
audi a4 2.0 2008 4 manual(m6) f 20 31 p compact
audi a4 2.0 2008 4 auto(front) f 21 30 p compact
audi a4 2.8 1999 6 auto(l5) f 16 26 p compact
audi a4 2.8 1999 6 manual(m5) f 18 26 p compact

Przykład 1: podstawowa funkcja facet_wrap().

Poniższy kod pokazuje, jak utworzyć wiele wykresów rozrzutu w ggplot2, używając displ jako zmiennej na osi x, hwy jako zmiennej na osi y i class jako zmiennej grupującej:

 ggplot(mpg, aes (displ, hwy)) +
  geom_point() +
  facet_wrap(vars(class))

Przykład 2: Użyj niestandardowych etykiet

Poniższy kod pokazuje, jak używać funkcji facet_wrap() z niestandardowymi etykietami tytułów wątków:

 #define custom labels
plot_names <- c('2seater' = "2 Seater",
                'compact' = "Compact Vehicle",
                'midsize' = "Midsize Vehicle",
                'minivan' = "Minivan",
                'pickup' = "Pickup Truck",
                'subcompact' = "Subcompact Vehicle",
                'suv' = "Sport Utility Vehicle")

#use facet_wrap with custom plot labels
ggplot(mpg, aes (displ, hwy)) +
  geom_point() +
  facet_wrap(vars(class), labeller = as_labeller (plot_names)) 

Przykład 3: Użyj niestandardowych skal

Poniższy kod pokazuje, jak używać funkcji facet_wrap() z niestandardowymi skalami dla każdego pojedynczego wykresu:

 #use facet_wrap with custom scales
ggplot(mpg, aes (displ, hwy)) +
  geom_point() +
  facet_wrap(vars(class), scales=' free ') 

Przykład 4: Użyj polecenia niestandardowego

Poniższy kod pokazuje, jak używać funkcji facet_wrap() z niestandardową kolejnością dla poszczególnych wykresów:

 #define order for plots
mpg <- within(mpg, class <- factor(class, levels=c(' compact ', ' 2seater ', ' suv ',
                                                   ' subcompact ', ' pickup ',
                                                   ' minivan ', ' midsize ')))

#use facet_wrap with custom order
ggplot(mpg, aes (displ, hwy)) +
  geom_point() +
  facet_wrap(vars(class)) 

Zwróć uwagę, że wykresy pojawiają się dokładnie w określonej przez nas kolejności.

Dodatkowe zasoby

Jak zmienić rozmiar czcionki w ggplot2
Jak usunąć legendę w ggplot2
Jak obracać etykiety osi w ggplot2