gg

#сопоставляем данные о ценах аренды квартир и количеством квартир предложенных по определенной цене, можем заметить, что наибольшее количество квартир предложено по цене от 15 до 50 тысяч рублей. Следовательно можем сделать вывод, что на рынке недвижимости Санкт-Петербурга преобладает предложение бюджетной недвижимости.

library(ggplot2)
ggplot(X, aes(x=Price)) + geom_histogram(bins=100)

#Так же интересной информацией для анализа представляется зависимость арендной платы от района города. Можем заметить, что самые дорогие квартиры в Центральном, Петроградском и Адмиралтейском районе. На уровень ниже, но все таки выделяясь из общей массы квартир идут предложения в Выборгском, Василеостровском, Курортном и Московском районах. Предложения в оставшихся неназванными районах можно отнести к бюджетному сегменту.

ggplot(X) + aes(x=Price,y=District_ad) + geom_line()

#Интересно будет также посмотреть на то предложение квартир с каким количеством комнат преобладает на рынке аренды недвижимости. Можем заметить что наибольшее число предложений приходится на однокомнатные, двухкомнатные и трехкомнатные квартиры.

#график содержащий иллюстрирующий информацию из предыдущего пункта, только в более удобном 3D формате.

library(plotrix)
pie3D(gg,labels=labels,main = "предложение квартир", explode=0.2)

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.