Zadanie 1.

Podsumuj najpopularniejsze statystyki cen sprzedazy nieruchomosci wg. typu dla miasta Sacramento.

podsumowanie_cen <- dane %>% 
  group_by(type) %>% 
  filter(city == "SACRAMENTO") %>% 
  summarise(
    średnia_cena = mean(price, na.rm=TRUE),
    mediana = median(price),
    max_cena = max (price),
    minimum = min (price),
    liczba = n(),
    średnia_cena_m2 = mean ( price / latitude)
  )