## 
## 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

## -- Attaching packages ---------------------------------------------------------- tidyverse 1.3.0 --

## v tibble  3.0.1     v dplyr   0.8.5
## v tidyr   1.0.3     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0
## v purrr   0.3.4

## -- Conflicts ------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks plotly::filter(), stats::filter()
## x dplyr::lag()    masks stats::lag()

## # A tibble: 53,940 x 7
##    carat cut       color clarity depth table price
##    <dbl> <ord>     <ord> <ord>   <dbl> <dbl> <int>
##  1 0.23  Ideal     E     SI2      61.5    55   326
##  2 0.21  Premium   E     SI1      59.8    61   326
##  3 0.23  Good      E     VS1      56.9    65   327
##  4 0.290 Premium   I     VS2      62.4    58   334
##  5 0.31  Good      J     SI2      63.3    58   335
##  6 0.24  Very Good J     VVS2     62.8    57   336
##  7 0.24  Very Good I     VVS1     62.3    57   336
##  8 0.26  Very Good H     SI1      61.9    55   337
##  9 0.22  Fair      E     VS2      65.1    61   337
## 10 0.23  Very Good H     VS1      59.4    61   338
## # ... with 53,930 more rows

Diamonds

• Most valuable of Precious Stones
• Valuable assets which increase in Price
• Diamonds have characteristics such as Size, cut, colour and clarity

Tidyverse Diamond Data set

Is a large data set of over 50,000 diamonds which is available from the Tidyverse package. It provides 7 variables on 53940 cut diamonds in the US market:

## # A tibble: 5 x 7
##   carat cut     color clarity depth table price
##   <dbl> <ord>   <ord> <ord>   <dbl> <dbl> <int>
## 1 0.23  Ideal   E     SI2      61.5    55   326
## 2 0.21  Premium E     SI1      59.8    61   326
## 3 0.23  Good    E     VS1      56.9    65   327
## 4 0.290 Premium I     VS2      62.4    58   334
## 5 0.31  Good    J     SI2      63.3    58   335

Further information is available from: “ggplot2.tidyverse.org/diamonds.html”

Diamond Price calculations:

• Involve analysis of a multi-dimensional data space
• Which can be confusing and difficult to interpret

Diamonds are forever “Shiny app”

Our product allows you to price your diamonds in the comfort and safety of your home and have a guide price in order to be able to negotiate a sale.

Diamonds above US$ 20,000 will will require in person valuation which can be arranged by appointment. Such stones are often traded at auction or in a diamond exchange and are not traded privately

You can preview the Shiny app in the next slide and access it on: https://reza-mofidi.shinyapps.io/diamonds/

The “shinyApp” (Pun intended)

## Warning: package 'shiny' was built under R version 4.0.2