Seattle AirBNB Market

This is an from Seattle’s AirBNB market. Brought to you by Maddy and Rachel. The data is available from this link https://myxavier-my.sharepoint.com/:x:/g/personal/largentm_xavier_edu/EfFRsW9hwq5Bg732pnvA2sABdlJGZY5AWGOVEv5o-X7pAA?download=1.

Loading Data

We are loading the data directly from oneDrive using read_csv()

seattle_homes <- read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/largentm_xavier_edu/EfFRsW9hwq5Bg732pnvA2sABdlJGZY5AWGOVEv5o-X7pAA?download=1")
## Warning: Missing column names filled in: 'X1' [1]
## Parsed with column specification:
## cols(
##   X1 = col_double(),
##   room_id = col_double(),
##   host_id = col_double(),
##   room_type = col_character(),
##   address = col_character(),
##   reviews = col_double(),
##   overall_satisfaction = col_double(),
##   accommodates = col_double(),
##   bedrooms = col_double(),
##   bathrooms = col_double(),
##   price = col_double(),
##   last_modified = col_time(format = ""),
##   latitude = col_double(),
##   longitude = col_double(),
##   location = col_character(),
##   name = col_character(),
##   currency = col_character(),
##   rate_type = col_character()
## )
## Warning: 3957 parsing failures.
## row           col   expected  actual                                                                                                                              file
##   1 last_modified valid date 46:14.7 'https://myxavier-my.sharepoint.com/:x:/g/personal/largentm_xavier_edu/EfFRsW9hwq5Bg732pnvA2sABdlJGZY5AWGOVEv5o-X7pAA?download=1'
##   7 last_modified valid date 45:03.9 'https://myxavier-my.sharepoint.com/:x:/g/personal/largentm_xavier_edu/EfFRsW9hwq5Bg732pnvA2sABdlJGZY5AWGOVEv5o-X7pAA?download=1'
##  16 last_modified valid date 59:19.4 'https://myxavier-my.sharepoint.com/:x:/g/personal/largentm_xavier_edu/EfFRsW9hwq5Bg732pnvA2sABdlJGZY5AWGOVEv5o-X7pAA?download=1'
##  20 last_modified valid date 56:32.6 'https://myxavier-my.sharepoint.com/:x:/g/personal/largentm_xavier_edu/EfFRsW9hwq5Bg732pnvA2sABdlJGZY5AWGOVEv5o-X7pAA?download=1'
##  21 last_modified valid date 58:36.5 'https://myxavier-my.sharepoint.com/:x:/g/personal/largentm_xavier_edu/EfFRsW9hwq5Bg732pnvA2sABdlJGZY5AWGOVEv5o-X7pAA?download=1'
## ... ............. .......... ....... .................................................................................................................................
## See problems(...) for more details.

Summary Statistics

These are some summary statistics for the variables I think are most important

seattle_homes %>% 
  select(reviews,overall_satisfaction,bedrooms,bathrooms,price,rate_type) %>% 
  summary()
##     reviews       overall_satisfaction    bedrooms       bathrooms    
##  Min.   :  0.00   Min.   :2.500        Min.   :0.000   Min.   :0.000  
##  1st Qu.:  4.00   1st Qu.:4.500        1st Qu.:1.000   1st Qu.:1.000  
##  Median : 21.00   Median :5.000        Median :1.000   Median :1.000  
##  Mean   : 47.66   Mean   :4.841        Mean   :1.385   Mean   :1.307  
##  3rd Qu.: 64.00   3rd Qu.:5.000        3rd Qu.:2.000   3rd Qu.:1.500  
##  Max.   :687.00   Max.   :5.000        Max.   :8.000   Max.   :8.000  
##                   NA's   :1473                         NA's   :2      
##      price       rate_type        
##  Min.   :  15   Length:7576       
##  1st Qu.:  65   Class :character  
##  Median :  88   Mode  :character  
##  Mean   : 113                     
##  3rd Qu.: 125                     
##  Max.   :5900                     
##

Visualizations

We were interested to see if there is a significant difference in the average AirBnB price between Seattle, Redmond, and Bellevue