Diamond Carat Summary

Ivan Ip
19th February 2019

Diamond Carat Summary

Dataset “diamonds” is sourced from R package ggplot. This presentation is to summarize the Criteria Count,

Criteria of Diamonds,

  • Cut
  • Color
  • Clarity

In addition, Violin Plot shows their dispersion with Carat.

Appendix: R Coding 1/3

library(shiny)
library(ggplot2)
library(data.table)


data("diamonds")
Diamond_CC = data.table(diamonds)
Diamond_ui = fluidPage(
  titlePanel("Diamond Carat Summary"),
  sidebarLayout(
    sidebarPanel(
      selectInput("Criteria", "Choose a Criteria (x = ):",
                  choices = c("Cut", "Color", "Clarity")),
      h5("y = Carat"),
      br(),

Appendix: R Coding 2/3

actionButton("update", "Update View")),
mainPanel(
  h4("Summary by Criteria Count"),

  verbatimTextOutput("summary"),
  h4("Violin Plot by Criteria"),
  plotOutput("plot"))))

Appendix: R Coding 3/3

Diamonds_server = shinyServer(function(input, output){
  data = eventReactive(input$update, {
    switch(input$Criteria,
           "Cut" = Diamond_CC$cut, "Color" = Diamond_CC$color,
           "Clarity" = Diamond_CC$clarity)})

  output$summary = renderPrint({summary(data())}) 

  output$plot = renderPlot({
    ggplot(Diamond_CC, aes_string(x = data(), y = Diamond_CC$carat)) + geom_violin()})})

shinyApp(Diamond_ui, Diamonds_server)

Summary with Violin Plot

Thank you