plotly.Rmd

---
title: "plotly examples"
author: "Congyang Xie"
date: "11/4/2021"
output: 
  html_document:
    toc: true
    toc_float: true
      
---

# examples of plotly

```{r}
library(p8105.datasets)
library(tidyverse)
library(plotly)
```

```{r}
data("nyc_airbnb")

nyc_airbnb <- 
  nyc_airbnb %>% 
  mutate(rating = review_scores_location/2) %>% 
  select(neighbourhood_group, neighbourhood, rating, price, room_type, lat, long) %>% 
  filter(neighbourhood_group == "Manhattan",
         price %in% 100:500, 
         room_type == "Entire home/apt") %>% 
  drop_na(rating)
```

# plotly plots

## scatterplot

```{r}

nyc_airbnb %>% 
  mutate(text_label = str_c("Price $", price, "\nRating", rating)) %>% 
  plot_ly(x = ~lat, y = ~ long, type = "scatter", mode = "markers", color = ~ price, alpha = 0.5, text = ~ text_label)
```

## boxplot

```{r}

nyc_airbnb %>% 
  plot_ly(y = ~ price, x = ~ neighbourhood, type = "box", colors = "viridis", color = ~neighbourhood)

```
## bar plot

```{r}
nyc_airbnb %>% 
  count(neighbourhood) %>% 
  mutate(neighbourhood = fct_reorder(neighbourhood, n)) %>% 
  plot_ly(x = ~ neighbourhood, y = ~ n, color = ~ neighbourhood, type = "bar", colors = "viridis")
```

# ggploty

```{r}

nyc_airbnb %>% 
  ggplot(aes(x = lat, y = long, color = price)) +
  geom_point() 
  
  
```