---
title: "Shipping E-Commerce Product"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code : embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(highcharter)
library(gt)
library(htmltools)
library(viridis)
library(DT)
library(plotly)

Ship <- read.csv("Train.csv", header = TRUE)

```


Table {data-orientation=rows}
=======================================================================

### Table {data-height=520}

```{r}
# This is going to be a datatable
DT::datatable(Ship, options = list(
  pageLength = 100
))

```

Bar-chart {data-orientation=rows}
=======================================================================


## Column {data-height=700}
-----------------------------------------------------------------------

```{r}
x <- ggplot(data=Ship)+
     geom_bar(mapping=aes(Ship$Mode_of_Shipment,
                     fill=as.factor(Ship$Customer_rating)),
           position = 'dodge')+ylab("Responden")+xlab("Metode Shipping")
ggplotly(x)
```

Donut-chart {data-orientation=rows}
=======================================================================

## Row {data-width=600 data-height=510}
-----------------------------------------------------------------------