Displaying the price and weight distriution of the diamonds included in the diamond data set, using the plotly package

library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

p1 <- plot_ly(diamonds, x = ~price,type = "histogram") %>% layout(title="Diamond Price Histogram - Plotly", xaxis=list(title="Price"), yaxis=list(title="Number of Diamonds"))
p1