This chart presents Housing sales data in TX. it loads txhousing data available in ggplot2 package. Below chart is created with Plotly it represents Total sales over different cities from 2000-2014.

data("txhousing")
dtx <- txhousing
plot_ly(dtx, x = ~city, y = ~sales, color =~ year) %>%
layout(margin = list(b = 160), xaxis = list(tickangle = 45))