Data visualization of Airbnb Prices in Washington, DC

library(readxl)
df <- read_excel("Airbnb_DC_25.csv")

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.2.0     ✔ readr     2.1.6
✔ forcats   1.0.1     ✔ stringr   1.6.0
✔ ggplot2   4.0.2     ✔ tibble    3.3.1
✔ lubridate 1.9.5     ✔ tidyr     1.3.2
✔ purrr     1.2.1     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(readxl)
library(ggplot2)
library(dbplyr)

Attaching package: 'dbplyr'

The following objects are masked from 'package:dplyr':

    ident, sql

df <-read_excel("Airbnb_DC_25.csv")

airbnb_summary<-df %>%
  group_by(neighbourhood)%>%
  summarize(avg_price=mean(price, na.rm=TRUE))

airbnb_summary

# A tibble: 39 × 2
   neighbourhood                                                       avg_price
   <chr>                                                                   <dbl>
 1 Brightwood Park, Crestwood, Petworth                                    117. 
 2 Brookland, Brentwood, Langdon                                           130. 
 3 Capitol Hill, Lincoln Park                                              188. 
 4 Capitol View, Marshall Heights, Benning Heights                          97.6
 5 Cathedral Heights, McLean Gardens, Glover Park                          241. 
 6 Cleveland Park, Woodley Park, Massachusetts Avenue Heights, Woodla…     151. 
 7 Colonial Village, Shepherd Park, North Portal Estates                   236. 
 8 Columbia Heights, Mt. Pleasant, Pleasant Plains, Park View              136. 
 9 Congress Heights, Bellevue, Washington Highlands                        134. 
10 Deanwood, Burrville, Grant Park, Lincoln Heights, Fairmont Heights      114. 
# ℹ 29 more rows

ggplot(airbnb_summary, aes(x=reorder(neighbourhood, avg_price), y=avg_price, fill=neighbourhood))+
  geom_bar(stat="identity")+
  labs(
    tittle="Average Airbnb Price by Neighborhood in Washington DC",
    x="Neighborhood",
    y="Average Price ($)",
    fill="Neighborhood",
    caption="Source: Airbnb_DC_25 dataset"
  )+
  theme_minimal()+
  theme(axis.text.x=element_text(angle=45, hjust=1))

Ignoring unknown labels:
• tittle : "Average Airbnb Price by Neighborhood in Washington DC"

This visualization shows the average Airbnb price across different neighbourhood in Washington DC. The data was grouped by neighborhood and the average listing price was calculated for each area, then displayed in a bar chart. The chart helps compare how prices vary between neighborhoods. One noticeable pattern is that some neighborhoods have significantly higher average prices than others, suggesting that the location has a strong influence on Airbnb pricing in the city.