# Wariant lekki: gdy punktów jest za dużo i wykres się zlewa,
# zastąp chmurę gęstością 2D (kafelki heksagonalne)
library(ggplot2)

ggplot(dataset, aes(x = WartoscBrutto, y = MarzaNetto)) +
  geom_hex(bins = 40) +
  scale_fill_gradient(low = "#fdd", high = "#E02D33") +
  labs(title = "Gęstość: wartość a marża", x = "Wartość brutto (PLN)", y = "Marża netto (PLN)") +
  theme_minimal()