▶️ Tematyka

  • Załadowanie pakietów i charakterystyka zbioru ‘mtcars’
  • Przygotowanie wykresów
  • Obiekty graficzne, ich wyświetlanie i rozmieszczanie
  • Pakiet patchwork - podstawowe zastosowania
  • Pakiet patchwork - układ wykresów
  • Pakiet patchwork - układ użytkownika
  • Dodanie obszaru z tekstem
  • Tabela z danymi obok wykresu


📘 Załadowanie pakietów i charakterystyka zbioru ‘mtcars’

❕ Załadowanie pakietów

library(ggplot2)
library(patchwork)

️✔️️ Dla konstrukcji wykresów w tej części wykorzystano dostępny w R zbiór mtcars.

🔗 Opis zbioru mtcars

Wyświetlenie informacji o zbiorze mtcars

summary(mtcars)
##       mpg             cyl             disp             hp       
##  Min.   :10.40   Min.   :4.000   Min.   : 71.1   Min.   : 52.0  
##  1st Qu.:15.43   1st Qu.:4.000   1st Qu.:120.8   1st Qu.: 96.5  
##  Median :19.20   Median :6.000   Median :196.3   Median :123.0  
##  Mean   :20.09   Mean   :6.188   Mean   :230.7   Mean   :146.7  
##  3rd Qu.:22.80   3rd Qu.:8.000   3rd Qu.:326.0   3rd Qu.:180.0  
##  Max.   :33.90   Max.   :8.000   Max.   :472.0   Max.   :335.0  
##       drat             wt             qsec             vs        
##  Min.   :2.760   Min.   :1.513   Min.   :14.50   Min.   :0.0000  
##  1st Qu.:3.080   1st Qu.:2.581   1st Qu.:16.89   1st Qu.:0.0000  
##  Median :3.695   Median :3.325   Median :17.71   Median :0.0000  
##  Mean   :3.597   Mean   :3.217   Mean   :17.85   Mean   :0.4375  
##  3rd Qu.:3.920   3rd Qu.:3.610   3rd Qu.:18.90   3rd Qu.:1.0000  
##  Max.   :4.930   Max.   :5.424   Max.   :22.90   Max.   :1.0000  
##        am              gear            carb      
##  Min.   :0.0000   Min.   :3.000   Min.   :1.000  
##  1st Qu.:0.0000   1st Qu.:3.000   1st Qu.:2.000  
##  Median :0.0000   Median :4.000   Median :2.000  
##  Mean   :0.4062   Mean   :3.688   Mean   :2.812  
##  3rd Qu.:1.0000   3rd Qu.:4.000   3rd Qu.:4.000  
##  Max.   :1.0000   Max.   :5.000   Max.   :8.000

📘 Przygotowanie wykresów

Konstrukcja wykresu rozrzutu

ggplot(mtcars,aes(wt, mpg)) + geom_point()

Konstrukcja wykresu rozrzutu - inna forma

ggplot(mtcars) + geom_point(aes(wt, mpg))

📘 Obiekty graficzne, ich wyświetlanie i rozmieszczanie

Konstrukcja obiektów p1 i p2

p1 <- ggplot(mtcars) + geom_point(aes(wt, mpg))
p2 <- ggplot(mtcars) + geom_boxplot(aes(factor(cyl), mpg, fill = factor(gear)))

Wyświetlenie obiektu p1

p1

Wyświetlenie obiektu p2

p2

📘 Pakiet patchwork - podstawowe zastosowania

Wyświetlenie obiektów p1 i p2 obok siebie

p1 + p2

Wyświetlenie obiektów p1 i p2 obok siebie (inny sposób)

p1|p2

Wyświetlenie obiektów p1 (u góry) i p2 (na dole)

p1/p2

Konstrukcja obiektów p3 i p4

p3 <- ggplot(mtcars) + geom_smooth(aes(wt, mpg))
p4 <- ggplot(mtcars) + geom_bar(aes(factor(cyl),fill=factor(gear)))

Wyświetlenie obiektu p3

p3 
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wyświetlenie obiektu p4

p4

Wyświetlenie obiektów p1 (u góry) oraz p2 i p3 (na dole)

p1 / (p2 | p3)
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wyświetlenie obiektów p1, p2, p3 i p4

(p1 | p2 | p3) /
      p4
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wyświetlenie obiektów p1, p2, p3 i p4

p1+p2+p3+p4
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wyświetlenie obiektów p1, p2, p3 i p4 w jednym wierszu

p1| p2| p3| p4
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

📘 Pakiet patchwork - układ użytkownika

Wyświetlenie obiektów p1, p2, p3 i p4

wrap_plots(p1, p2, p3, p4)
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wyświetlenie obiektów p1 i p2

p1+p2

Wyświetlenie obiektów p1 i p2 wraz z dodanymi punktami na wykresach

p1 + p2 + geom_jitter(aes(factor(cyl), mpg))

Konstrukcja obiektu rys i wyświetlenie wykresów p3, p1 i p2

rys <- p3 + p2
p1 + rys
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wyświetlenie wykresów p3, p1 i p2

wrap_plots(rys, p3)
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wprowadzenie wolnego obszaru pomidzy wykresami (spacer)

p1 +  p2 + plot_spacer() +p3 
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wprowadzenie wolnego obszaru pomidzy wykresami (spacer)

p1 +  p2 / plot_spacer() +p3 
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wprowadzenie wolnych obszarów pomidzy wykresami (spacer)

p1 + plot_spacer() + p2 + plot_spacer() + p3 + plot_spacer()
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Zadanie liczby kolumn dla tablicy wykresów

p1 + p2 + p3 + p4 + 
  plot_layout(ncol = 3)
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Zadanie szerokości kolumn dla tablicy wykresów

p1 + p2 + p3 + p4 + 
  plot_layout(widths = c(2, 1))
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Zadanie szerokości kolumn i wysokości dla tablicy wykresów

p1 + p2 + p3 + p4 + 
  plot_layout(widths = c(2, 1), heights = c(5, 1))
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Umieszczanie wykresów zgodnie z zadanym wzorcem - określenie wzorca

layout <- '
A#B
#C#
D#E
'

Umieszczanie wykresów zgodnie z zadanym wzorcem - wstawienie wykresów

wrap_plots(D = p1, C = p2, B = p3, design = layout)
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Wstawianie wykresu w obszarze innego wykresu

p1 + inset_element(p2, left = 0.55, bottom = 0.55, right = 1, top = 1)

📘 Dodanie obszaru z tekstem

❕ Załadowanie biblioteki

library(grid)

Wprowadzenie tekstu

p1 + grid::textGrob('Tekst w oknie obok wykresu. ')

📘 Tabela z danymi obok wykresu

❕ Załadowanie dodatkowych bibliotek

library(gridGraphics)
library(gridExtra)

Umieszczenie tabeli obok wykresu

p1 + gridExtra::tableGrob(mtcars[1:10, c('mpg', 'disp')])

Umieszczenie tabeli obok wykresu

p1 + tableGrob(mtcars[1:10, c('mpg', 'disp','hp','wt')])

Dodanie klasycznego wykresu

p1 + ~plot(mtcars$mpg, mtcars$disp, main = 'Wykres 2')