---
title: "Indian Agriculture Exports Regions Apr2019-Dec2019"
output: 
  flexdashboard::flex_dashboard:
    theme : cosmo
    orientation: columns
    vertical_layout: fill
    social : ["twitter","facebook","menu"]
    source_code : embed
---

```{r}

library(flexdashboard)
library(ggplot2)
library(plotly)

```


```{r}

setwd("C:/Users/arunkumar/Desktop/R/flexdashboard/AGriExportsGroup")

data=read.csv("AgriExportsRegions.csv", header=TRUE, stringsAsFactors = FALSE)

```


ACKNOWELDGEMENT & DISCLAIMER
====================================================




ACKNOWLDGEMENT





* The data used in the dashboard is imported from APEDA website. URL for accessing the data is as follows--- http://agriexchange.apeda.gov.in/indexp/genReport_combined.aspx


* The data for Financial Year 2019-2020, contains the data of agriculture exports only upto Dec 2019. The data related to Jan 2020, Feb 2020 and March 2020 are not included as the data was not available for this period from the data source- APEDA.


* The data source is Directorate General of Commercial Intelligence and Statistics (DGCIS), Kolkata.


* The dashboard is for educational purpose only.





DISCLAIMER





* > The authors's intent is to showcase the agriculture exports of India from 2010-2020. It is advised to the reader that for professional use, please refer to the original data source. Author doesn't bear any responsibility for any consequences emnating from the content covered in the dashboard.   



Indian Agri Exports {data-navmenu="MENU"}
==========================================

Row
----------------------------------------------

### Indian Agriculture Exports

```{r}

valueBox("Indian Agriculture Exports",
         caption="Apr2019-Dec2019",
         icon="fa-random")
```


Row
---------------------------------------------

### Total Agriculture Exports Quantity Apr 2019 - Dec 2019

```{r}

Q19=sum(data$TQty,na.rm=TRUE)

valueBox(round(Q19/1000000,digits = 2),
         caption="Total Agri Exports Quantity in million MT",
         icon="fa-building",
         color="success")

```


Row
------------------------------------------------

### Total Agriculture Exports Value Apr 2019 - Dec 2019

```{r}

V19=round(sum(data$Rs..Crore,na.rm=TRUE),digits = 2)

valueBox(round(V19/1000,digits = 2),
         caption="Total Agri Exports Value in Thousand Crore (Rs.)",
         icon="fa-pencil",
         color="warning")

```

Row
-------------------------------------------------

### Average Agriculture Exports Value per million MT Apr 2019 - Dec 2019

```{r}

valueBox(round(Q19/V19,digits = 2),
         caption="Total Agri Exports Value (Rs.Crore) Per MT",
         icon="fa-comments",
         color="info")

```



Top 10 Agriculture Exports Apr2019-Dec2019 {data-navmenu="MENU"} 
=====================================================================

Column
-----------------------------------------------

### Top 10 Agriculture Product Exports Quantity (MT) 2019-2020

```{r}

Quantity_in_thousand_MT=round(data$TQty/1000,digits = 2)
Product=data$Product

dfq2019=cbind.data.frame(Product,Quantity_in_thousand_MT)

dfq2019=na.omit(dfq2019)

dfq2019=dfq2019[order(-Quantity_in_thousand_MT),]

dfq2019_top10=dfq2019[1:10,]

g1=ggplot(dfq2019_top10, aes(x=reorder(Product,Quantity_in_thousand_MT, fill=Quantity_in_thousand_MT),y=Quantity_in_thousand_MT, fill=Quantity_in_thousand_MT))+geom_bar(stat="identity", color="red", fill="green")+xlab(label="Exported Products")+ylab(label="Agri Exports Quantity in MT")+ylim(0,4500)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=Quantity_in_thousand_MT),hjust=-0.3, color="black", size=5)

g1

```

Column
---------------------------------------------------------

### Top 10 Agriculture Product Exports Value 2019-2020

```{r}
Value=round(data$Rs..Crore,digits = 2)
Product=data$Product

dfv2019=cbind.data.frame(Product,Value)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-Value),]

dfv2019_top10=dfv2019[1:10,]

g2=ggplot(dfv2019_top10, aes(x=reorder(Product,Value),y=Value, fill=Value))+geom_bar(stat="identity", color="red", fill="yellow")+xlab(label="Exported Products")+ylab(label="Agri Exports Value in Rs. Crore")+ylim(0,30000)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=Value),hjust=-0.3, color="black", size=5)

g2

```


Top 10 Products Exported to South African Customs Union Apr2019-Dec2019 {data-navmenu="MENU"}
========================================================================
Row
-----------------------------------------------


SOUTH AFRICAN CUSTOMS UNION 


The Southern African Customs Union (SACU) is a customs union among five countries of Southern Africa: Botswana, Lesotho, Namibia, South Africa and Eswatini (formerly Swaziland). Its headquarters are in the Namibian capital, Windhoek. It was established in 1910.


Source:https://en.wikipedia.org/wiki/Southern_African_Customs_Union


Official Website: https://www.sacu.int/


To Read Latest Trade Statistics of the SACU, click: https://stats.sacu.int/


In South African Continent Map, green shaded areas are the memeber states in SACU---






Row
--------------------------------------------

### Top 10 Products Exports Quantity to South African Customs Union 

```{r}

Product=data$Product

dataa=sapply(data[,-1],as.numeric)

dataa=as.data.frame.matrix(dataa)

data=cbind.data.frame(Product,dataa)

SACUQuantity=round(data$SACUQ,digits = 2)
Product=data$Product

SACUQuantity[is.na(SACUQuantity)]=0

dfv2019=cbind.data.frame(Product,SACUQuantity)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-SACUQuantity),]

dfv2019_top10=dfv2019[1:10,]

g3=ggplot(dfv2019_top10, aes(x=reorder(Product,SACUQuantity),y=SACUQuantity, fill=SACUQuantity))+geom_bar(stat="identity", color="red", fill="yellow")+xlab(label="Exported Products to SACU")+ylab(label="Agri Exports Quantity in MT")+ylim(0,175000)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=SACUQuantity),hjust=-0.3, color="black", size=5)

g3

```

### Top 10 Products Exports Value to South African Customs Union 

```{r}

SACUValue=round(data$SACUV,digits = 2)
Product=data$Product

SACUValue[is.na(SACUValue)]=0

dfv2019=cbind.data.frame(Product,SACUValue)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-SACUValue),]

dfv2019_top10=dfv2019[1:10,]

g4=ggplot(dfv2019_top10, aes(x=reorder(Product,SACUValue),y=SACUValue, fill=SACUValue))+geom_bar(stat="identity", color="red", fill="yellow")+xlab(label="Exported Products to SACU")+ylab(label="Agri Exports Value in Rs. Crore")+ylim(0,450)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=SACUValue),hjust=-0.3, color="black", size=5)

g4
```


Top 10 Products Exported to Association of Southeast Asian Nations Apr2019-Dec2019 {data-navmenu="MENU"}
========================================================================

Row
----------------------------------------



ASSOCIATION OF SOUTHEAST ASIAN NATIONS 


The Association of Southeast Asian Nations is a regional intergovernmental organization comprising ten countries in Southeast Asia, ASEAN was created on 8 August 1967. 


Source:https://en.wikipedia.org/wiki/ASEAN


Official Website: https://asean.org/


To Read Latest Trade Statistics of the ASEAN, click: https://data.aseanstats.org/


In South East Asia Map, yellow shaded areas are the memeber states in ASEAN---






Row
--------------------------------------------------

### Top 10 Products Exports Quantity to Association of Southeast Asian Nations 

```{r}

ASEANQuantity=round(data$ASEANQ,digits = 2)

ASEANQuantity[is.na(ASEANQuantity)]=0

dfv2019=cbind.data.frame(Product,ASEANQuantity)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-ASEANQuantity),]

dfv2019_top10=dfv2019[1:10,]

g5=ggplot(dfv2019_top10, aes(x=reorder(Product,ASEANQuantity),y=ASEANQuantity, fill=ASEANQuantity))+geom_bar(stat="identity", color="red", fill="orange")+xlab(label="Exported Products to ASEAN")+ylab(label="Agri Exports Quantity in MT")+ylim(0,750000)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=ASEANQuantity),hjust=-0.3, color="black", size=5)

g5

```


### Top 10 Products Exports Value to Association of Southeast Asian Nations 

```{r}

ASEANValue=round(data$ASEANV,digits = 2)

ASEANValue[is.na(ASEANValue)]=0

dfv2019=cbind.data.frame(Product,ASEANValue)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-ASEANValue),]

dfv2019_top10=dfv2019[1:10,]

g6=ggplot(dfv2019_top10, aes(x=reorder(Product,ASEANValue),y=ASEANValue, fill=ASEANValue))+geom_bar(stat="identity", color="red", fill="orange")+xlab(label="Exported Products to ASEAN")+ylab(label="Agri Exports Value in Rs. Crore")+ylim(0,15000)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=ASEANValue),hjust=-0.3, color="black", size=5)

g6
```


Top 10 Products Exported to European Union Apr2019-Dec2019 {data-navmenu="MENU"}
========================================================================

Row
----------------------------------------



EUROPEAN UNION 


The European Union (EU) is a political and economic union of 27 member states that are located primarily in Europe. Its members have a combined area of 4,233,105.3 km2 (1,634,469.0 sq mi) and an estimated total population of about 447 million. 


Source:https://en.wikipedia.org/wiki/European_Union


Official Website: https://europa.eu/


To Read Latest Trade Statistics of the ASEAN, click: https://europa.eu/european-union/documents-publications_en


In European Union Map, purple, green and blue shaded areas are the memeber states in European Union---





Source:https://www.schengenvisainfo.com/eu-countries/



Row
--------------------------------------------------

### Top 10 Products Exports Quantity to European Union

```{r}

EUQuantity=round(data$EUQ,digits = 2)

EUQuantity[is.na(EUQuantity)]=0

dfv2019=cbind.data.frame(Product,EUQuantity)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-EUQuantity),]

dfv2019_top10=dfv2019[1:10,]

g9=ggplot(dfv2019_top10, aes(x=reorder(Product,EUQuantity),y=EUQuantity, fill=EUQuantity))+geom_bar(stat="identity", color="red", fill="lightgreen")+xlab(label="Exported Products to EU")+ylab(label="Agri Exports Quantity in MT")+ylim(0,225000)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=EUQuantity),hjust=-0.3, color="black", size=5)

g9

```


### Top 10 Products Exports Value to European Union

```{r}

EUValue=round(data$EUV,digits = 2)

EUValue[is.na(EUValue)]=0

dfv2019=cbind.data.frame(Product,EUValue)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-EUValue),]

dfv2019_top10=dfv2019[1:10,]

g10=ggplot(dfv2019_top10, aes(x=reorder(Product,EUValue),y=EUValue, fill=EUValue))+geom_bar(stat="identity", color="red", fill="lightgreen")+xlab(label="Exported Products to EU")+ylab(label="Agri Exports Value in Rs. Crore")+ylim(0,1500)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=EUValue),hjust=-0.3, color="black", size=5)

g10
```


Top 10 Products Exported to North America Apr2019-Dec2019 {data-navmenu="MENU"}
========================================================================

Row
----------------------------------------



NORTH AMERICA 


North America is a continent entirely within the Northern Hemisphere and almost all within the Western Hemisphere. In can also be described as a northern subcontinent of the Americas, or America, in models that use fewer than seven continents. It is bordered to the north by the Arctic Ocean, to the east by the Atlantic Ocean, to the west and south by the Pacific Ocean, and to the southeast by South America and the Caribbean Sea.


Source:https://en.wikipedia.org/wiki/North_America


Official Website: No Official Website


To Read Latest Trade Statistics of the ASEAN, click: https://wits.worldbank.org/CountryProfile/en/NAC


In European Union Map, purple, green and blue shaded areas are the memeber states in European Union---






Row
--------------------------------------------------

### Top 10 Products Exports Quantity to North America

```{r}

NAQuantity=round(data$NAQ,digits = 2)

NAQuantity[is.na(NAQuantity)]=0

dfv2019=cbind.data.frame(Product,NAQuantity)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-NAQuantity),]

dfv2019_top10=dfv2019[1:10,]

g11=ggplot(dfv2019_top10, aes(x=reorder(Product,NAQuantity),y=NAQuantity, fill=NAQuantity))+geom_bar(stat="identity", color="red", fill="black")+xlab(label="Exported Products to NA")+ylab(label="Agri Exports Quantity in MT")+ylim(0,225000)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=NAQuantity),hjust=-0.3, color="black", size=5)

g11

```

### Top 10 Products Exports Value to North America

```{r}

NAValue=round(data$NAV,digits = 2)

NAValue[is.na(NAValue)]=0

NAValue[is.na(NAValue)]=0

dfv2019=cbind.data.frame(Product,NAValue)

dfv2019=na.omit(dfv2019)

dfv2019=dfv2019[order(-NAValue),]

dfv2019_top10=dfv2019[1:10,]

g12=ggplot(dfv2019_top10, aes(x=reorder(Product,NAValue),y=NAValue, fill=NAValue))+geom_bar(stat="identity", color="red", fill="black")+xlab(label="Exported Products to NA")+ylab(label="Agri Exports Value in Rs. Crore")+ylim(0,1750)+coord_flip()+theme(text=element_text(size=15))+geom_text(aes(label=NAValue),hjust=-0.3, color="black", size=5)

g12
```

Data Table {data-navmenu="MENU"}
==============================================

### Data Table

```{r}

DT::datatable(data,filter="top",caption = "Data Table Of Agri Exports to Various Regions Apr2019-Dec2019")


```


About Us {data-navmenu="MENU"}
==============================================

### DASHBOARD PREPARED BY (CONTACT FOR MACHINE LEARNING TRAINING, COACHING & CONSULTING)


* Dr AMITA SHARMA
      Post Doc from Erasmus University, Rotterdam, the Netherlands
      Assistant Professor
      Institute of Agri Business Management, 
      Swami Keshwanand Rajasthan Agricultural University, 
      Bikaner (Raj),India
      Blog: www.thinkingai.in





*  ARUN KUMAR SHARMA
      Machine Learning Enthusiast
      13 Years of Financial Services Marketing Exp
      Blogger, Writer and Machine Learning Consutlant
      Certified Business Analytics Professional
      Certified in Predictive Analytics, Indian Institute of     Mnamagement,IIMx Bangalore
      Certified in Macroeconomic Forecasting, International Monetary Fund(IMFx)
      Certified in Text Analytics, openSAP
      Email: aks10000@gmail.com
      Tel:9468567418