8  Dopracowanie i eksport

Dopracowany wykres nie oznacza dekoracyjnego wykresu. Oznacza taki, który szybko odpowiada na pytanie, ma opisane jednostki, czytelne etykiety i da się go użyć w raporcie bez ręcznego poprawiania w edytorze graficznym.

library(tidyverse)
library(here)
library(ggrepel)

source(here("R", "theme_course.R"))
theme_set(theme_course())

8.1 Etykiety i wyróżnienie

nba <- readr::read_csv(here("datasets", "nba.csv"), show_col_types = FALSE) |>
  filter(minutes > 0) |>
  mutate(
    conference = recode(conference, East = "Wschód", West = "Zachód"),
    points_per_minute = points / minutes
  )

top_scorers <- nba |>
  slice_max(points, n = 10)

p_nba <- nba |>
  ggplot(aes(x = assists, y = points, colour = conference)) +
  geom_point(alpha = 0.65, size = 2) +
  ggrepel::geom_text_repel(
    data = top_scorers,
    aes(label = player),
    size = 3,
    min.segment.length = 0,
    show.legend = FALSE
  ) +
  scale_colour_course_d(name = "Konferencja") +
  labs(
    title = "Etykiety dodajemy tylko tam, gdzie pomagają w interpretacji",
    subtitle = "Wyróżniono 10 zawodników z najwyższą liczbą punktów",
    x = "Asysty",
    y = "Punkty",
    caption = "Źródło: datasets/nba.csv"
  )

p_nba

Rysunek 8.1: Zawodnicy NBA według asyst i punktów.

8.2 Eksport

Do eksportu statycznych grafik używamy ggsave() i urządzenia ragg, które daje powtarzalne renderowanie tekstu i linii.

dir.create(here("outputs"), showWarnings = FALSE)

ggsave(
  filename = here("outputs", "nba-points-assists.png"),
  plot = p_nba,
  device = ragg::agg_png,
  width = 8,
  height = 5,
  units = "in",
  dpi = 300
)

8.3 Lista kontroli jakości

• Czy tytuł mówi wniosek, a nie tylko nazwę typu wykresu?
• Czy osie mają jednostki?
• Czy kolory mają znaczenie i są wyjaśnione legendą?
• Czy wykres działa w skali szarości albo nie opiera się wyłącznie na kolorze?
• Czy zakres osi nie ukrywa ważnej części danych?
• Czy podpis wskazuje źródło?
• Czy w Quarto dodany jest fig-alt?

8.4 Zadanie

Wróć do jednego wykresu z poprzednich rozdziałów i popraw go pod publikację: tytuł, podtytuł, osie, podpis, paleta, wielkość punktów lub szerokość linii.