TP Final
ROCIO FERRARI
7/6/2020
——————————————– ANALISIS DE OFERTA ———————————————–
## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.## Warning: Use of `tbl_plot$frequency` is discouraged. Use `frequency` instead.## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.
## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.## Warning: Use of `tbl_plot$frequency` is discouraged. Use `frequency` instead.## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.
## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.## Warning: Use of `tbl_plot$frequency` is discouraged. Use `frequency` instead.## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.
## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.## Warning: Use of `tbl_plot$frequency` is discouraged. Use `frequency` instead.## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.
## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.## Warning: Use of `tbl_plot$frequency` is discouraged. Use `frequency` instead.## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.
## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.## Warning: Use of `tbl_plot$frequency` is discouraged. Use `frequency` instead.## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.
## Warning: Removed 29 rows containing non-finite values (stat_boxplot).## Warning: Removed 29 rows containing non-finite values (stat_summary).
## Warning: Ignoring unknown parameters: binwidth, bins, pad
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## [1] -0.8295412## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## [1] 4.947943##
## Call:
## lm(formula = log(nprice) ~ tv + wifi + parking + kitchen + heating +
## pool + beachfront, data = airbnb1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.2057 -0.4285 -0.0318 0.3866 4.6961
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.19984 0.03152 133.245 < 2e-16 ***
## tv 0.28374 0.02085 13.610 < 2e-16 ***
## wifi 0.04551 0.02181 2.087 0.036909 *
## parking -0.04005 0.01281 -3.126 0.001774 **
## kitchen 0.09121 0.02410 3.784 0.000155 ***
## heating 0.05671 0.01096 5.176 2.29e-07 ***
## pool 0.60256 0.01153 52.268 < 2e-16 ***
## beachfront 0.16341 0.01824 8.960 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.6805 on 17108 degrees of freedom
## Multiple R-squared: 0.1701, Adjusted R-squared: 0.1697
## F-statistic: 500.8 on 7 and 17108 DF, p-value: < 2.2e-16## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.## Warning: Use of `tbl_plot$frequency` is discouraged. Use `frequency` instead.## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.
## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.## Warning: Use of `tbl_plot$frequency` is discouraged. Use `frequency` instead.## Warning: Use of `tbl_plot$category` is discouraged. Use `category` instead.
## Warning in tm_map.SimpleCorpus(corpus1, content_transformer(tolower)):
## transformation drops documents## Warning in tm_map.SimpleCorpus(corpus1, removePunctuation): transformation drops
## documents## Warning in tm_map.SimpleCorpus(corpus1, stripWhitespace): transformation drops
## documents## Warning in tm_map.SimpleCorpus(corpus1, removeWords, stopwords("english")):
## transformation drops documents## Warning in tm_map.SimpleCorpus(corpus1, removeWords, stopwords("spanish")):
## transformation drops documents## Warning in brewer.pal(9, "Dark2"): n too large, allowed maximum for palette Dark2 is 8
## Returning the palette you asked for with that many colors
——————————————– ANALISIS DE DEMANDA ———————————————–
## Warning: Ignoring unknown parameters: binwidth, bins, pad
## Warning in tm_map.SimpleCorpus(corpus4, content_transformer(tolower)):
## transformation drops documents## Warning in tm_map.SimpleCorpus(corpus4, removePunctuation): transformation drops
## documents## Warning in tm_map.SimpleCorpus(corpus4, stripWhitespace): transformation drops
## documents## Warning in tm_map.SimpleCorpus(corpus4, removeWords, stopwords("english")):
## transformation drops documents## Warning in tm_map.SimpleCorpus(corpus4, removeWords, stopwords("spanish")):
## transformation drops documents## Warning in tm_map.SimpleCorpus(corpus4, removeWords, stopwords("french")):
## transformation drops documents## Warning in brewer.pal(9, "Dark2"): n too large, allowed maximum for palette Dark2 is 8
## Returning the palette you asked for with that many colors
## Parsed with column specification:
## cols(
## listing_id = col_double(),
## date = col_date(format = ""),
## available = col_logical(),
## price = col_character(),
## adjusted_price = col_character(),
## minimum_nights = col_double(),
## maximum_nights = col_double()
## )
## Parsed with column specification:
## cols(
## listing_id = col_double(),
## date = col_date(format = ""),
## available = col_logical(),
## price = col_character(),
## adjusted_price = col_character(),
## minimum_nights = col_double(),
## maximum_nights = col_double()
## )## [1] 21566## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
#————————– IMPACTO DE COVID-19 —————————–
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'## Warning: Removed 9 rows containing non-finite values (stat_smooth).## Warning: Removed 1 row(s) containing missing values (geom_path).## Warning: Removed 9 rows containing missing values (geom_point).