```r library(plotly) library(dplyr) tx <- filter(txhousing, city == "Dallas", month == 1) p <- ggplot(tx) + geom_point(aes(x = volume, y = sales, frame = year)) ggplotly(p) ```