Обобщающие данные, которые будут показаны в ggplot2

Question

Цель: выберите 3 лучших района в каждом городе и покажите распределение их цен. Фрейм данных: данные | Колонки: «Город», «Соседство», «Цена». Вот мой код:

 data %>% 
      group_by(Neighbourhood) %>% 
      summarise(MedPrice = median(Price, na.rm = TRUE)) %>%
      ggplot(data, aes(x=Property_type, y=Price)) + 
      geom_point(col="tomato2", size=3) +   # Draw points
      geom_segment(aes(x=Property_type, 
                       xend=Property_type, 
                       y=min(Price), 
                       yend=max(Price)), 
                   linetype="dashed", 
                   size=0.1) +   # Draw dashed lines
      labs(title="Dot Plot", 
           subtitle="Property Type and Price", 
           caption="Image: 5") +  
      coord_flip()

Я знаю, что код неправильный, но это лучшее, что я могу придумать на данный момент. .