dashboardd

title: “Diamonds distribution dashboard”

output:flexdashboard::flex_dashboard

ggplot(diamonds, aes(carat)) + geom_histogram(binwidth = 0.1)

### Cut

ggplot(diamonds, aes(cut)) + geom_bar()

### Color

ggplot(diamonds, aes(color)) + geom_bar()

## Column 2
### The largest diamonds

diamonds %>%
  arrange(desc(carat)) %>%
  head(100) %>%
  select(carat, cut, color, price) %>%
  DT::datatable()