Format

Column 1

Carat

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

### Cut

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

### Color

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

## Column2 ### The largest diamonds

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