library(ggplot2)

# dataset = data.frame z polami WartoscBrutto, MarzaNetto, Kategoria, SprzedazID
ggplot(dataset, aes(x = WartoscBrutto, y = MarzaNetto, color = Kategoria)) +
  geom_point(alpha = 0.35, size = 1.6) +
  geom_smooth(method = "lm", se = TRUE) +
  scale_color_brewer(palette = "Set1") +
  labs(
    title = "Korelacja: wartość transakcji a marża (Nordvella)",
    x = "Wartość brutto (PLN)",
    y = "Marża netto (PLN)",
    color = "Kategoria"
  ) +
  theme_minimal(base_size = 12)