presentation.knit

class: center,middle
# Foreign Trade Statistics - Vehicle and Trailer Tracking

The Wall

2021.12.07
---
# Group Project

This presentation was prepared for group project of BDA 503-Essentials Data Analytics course.

Group Members;

- Anıl Okyol
- Kerem Yalçınkaya
- Kadir Baver Kerimoğlu 
---

# Dataset Information

Foreign Trade Statistics - Vehicle and Trailer Tracking dataset includes information on Export, Import and Empty Entry data of Turkish and Foreign Vehicles from 2012 to 2021 with total 72 countries. There are total 14 attributes.

You can find the whole report in [here.](https://pjournal.github.io/mef05g-the-wall/FinalProject/EDA_ForeignTradeStatistics.html)
---

# Objectives and Project Steps

In this group project we analyzed the import and export numbers based on different attributes.

Here is the steps we've taken,

- Downloading Data
- Transforming and Cleaning Data
- Exploratory Data Analysis
- Creating a functional Shiny App that shows Import/Export Information with multiple filters given by end user.

---
# Data

Dataset consists of 50112 observation and 14 attributes.

.left[

```
## tibble [50,112 x 14] (S3: tbl_df/tbl/data.frame)
##  $ Level                              : int [1:50112] 376 295 205 227 211 165 212 191 159 163 ...
##  $ PercentageChange                   : num [1:50112] 0 -21.54 -30.51 10.73 -7.05 ...
##  $ Difference                         : int [1:50112] 0 -81 -90 22 -16 -46 47 -21 -32 4 ...
##  $ YearlyPercentageChange             : num [1:50112] 0 0 0 0 0 0 0 0 0 0 ...
##  $ YearlyDifference                   : int [1:50112] 0 0 0 0 0 0 0 0 0 0 ...
##  $ DtePreviousYearPercentageChange    : num [1:50112] 0 0 0 0 0 0 0 0 0 0 ...
##  $ DtePreviousYearPercentageDifference: int [1:50112] 0 0 0 0 0 0 0 0 0 0 ...
##  $ MovingAverage                      : num [1:50112] 376 336 292 276 263 ...
##  $ MovingSum                          : int [1:50112] 376 671 876 1103 1314 1479 1691 1882 2041 2204 ...
##  $ Date                               : 'yearmon' num [1:50112] Jan 2012 Feb 2012 Mar 2012 Apr 2012 ...
##  $ ExportImportCountry                : chr [1:50112] "Afghanistan" "Afghanistan" "Afghanistan" "Afghanistan" ...
##  $ VehicleType                        : chr [1:50112] "TIH" "TIH" "TIH" "TIH" ...
##  $ ExportImport                       : chr [1:50112] "EXPORT" "EXPORT" "EXPORT" "EXPORT" ...
##  $ ExportImportRegion                 : chr [1:50112] "Asia" "Asia" "Asia" "Asia" ...
```

</tr>
</tbody>
</table>
]

---
# Dataset Information

.pull-left[
Exporting is defined as the sale of products and services in foreign countries that are sourced or made in the home country.

Importing is the flipside of exporting. Importing refers to buying goods and services from foreign sources and bringing them back into the home country.

Empty entry is vehicle without goods that entering the country.

]

.pull-right[
<table>
 <thead>
  <tr>
   <th style="text-align:left;"> VehicleTypes </th>
   <th style="text-align:left;"> Explanation </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:left;"> TIH </td>
   <td style="text-align:left;"> Turkish Vehicles (Export) </td>
  </tr>
  <tr>
   <td style="text-align:left;"> YIH </td>
   <td style="text-align:left;"> Foreign vehicles (Export) </td>
  </tr>
  <tr>
   <td style="text-align:left;"> TIT </td>
   <td style="text-align:left;"> Turkish vehicles (Import) </td>
  </tr>
  <tr>
   <td style="text-align:left;"> YIT </td>
   <td style="text-align:left;"> Foreign vehicles (Import) </td>
  </tr>
  <tr>
   <td style="text-align:left;"> TBG </td>
   <td style="text-align:left;"> Turkish vehicles (Empty Entry) </td>
  </tr>
  <tr>
   <td style="text-align:left;"> YBG </td>
   <td style="text-align:left;"> Foreign vehicles (Empty Entry) </td>
  </tr>
</tbody>
</table>
]

---
# Most Imported Countries

.pull-left[

Most import countries as we can see in the right are EU countries such as Germany, Italy, France etc.

On the other hand countries close to our border like Iraq, Iran, Bulgaria etc.

]

.pull-right[
<div id="htmlwidget-49981575cda8ef3e4014" style="width:648px;height:432px;" class="wordcloud2 html-widget"></div>
<script type="application/json" data-for="htmlwidget-49981575cda8ef3e4014">{"x":{"word":["Germany","Iran","Italy","Iraq","Bulgaria","Romania","France","Poland","Hungary","Ukraine","Greece","Uzbekistan","Turkmenistan","Netherlands","Czechia","Russia","Spain","Azerbaijan","Austria","United Kingdom","Belgium","Slovakia","Serbia","Syria","Northern Cyprus","Slovenia","North Macedonia","Georgia","Bosnia & Herzegovina","Sweden","Tajikistan","Switzerland","Saudi Arabia","Kyrgyzstan","Belarus","Kazakhstan","Moldova","Denmark","Finland","Croatia","Norway","Luxembourg","Albania","Kosovo","Lithuania","Ireland","Latvia","Portugal","Lebanon","Egypt","Jordan","Montenegro","Estonia","Afghanistan","United Arab Emirates","Kuwait","Qatar","Israel","Morocco","Mongolia","Pakistan","Armenia","Bahrain","Oman","Liechtenstein","Tunisia","Palestinian Territories","Algeria","Yemen","Gibraltar","Libya","Malta"],"freq":[1081967,564838,556226,552137,391111,319868,282175,202103,134393,130704,122514,105632,105440,101525,92540,85926,84191,80324,76429,74575,72582,71373,57212,54163,52064,48159,46449,44763,32570,32127,29729,27460,23557,23040,22964,22279,18308,17212,11798,11517,7917,6193,5304,4083,4072,3625,3142,2819,2771,2505,1844,1601,1532,1306,689,223,176,132,97,86,86,81,76,30,26,19,16,8,7,4,1,0],"fontFamily":"Segoe UI","fontWeight":"bold","color":"random-dark","minSize":0,"weightFactor":0.000116454568392566,"backgroundColor":"white","gridSize":0,"minRotation":-0.785398163397448,"maxRotation":0.785398163397448,"shuffle":true,"rotateRatio":0.4,"shape":"circle","ellipticity":0.65,"figBase64":null,"hover":null},"evals":[],"jsHooks":[]}</script>

]

---
# Most Exported Countries

.pull-left[

Most export countries as we can see in the right are countries close to our borders.

Top countries are usually in middle east or Asia, followed by EU countries.

]

.pull-right[
<div id="htmlwidget-64bf483c7a0b385cdbb4" style="width:504px;height:504px;" class="wordcloud2 html-widget"></div>
<script type="application/json" data-for="htmlwidget-64bf483c7a0b385cdbb4">{"x":{"word":["Iraq","Syria","Germany","Iran","Azerbaijan","Georgia","Bulgaria","Romania","Italy","France","Russia","Poland","Turkmenistan","Northern Cyprus","Greece","United Kingdom","Ukraine","Spain","Serbia","Netherlands","North Macedonia","Uzbekistan","Hungary","Czechia","Austria","Kazakhstan","Belgium","Belarus","Bosnia & Herzegovina","Moldova","Albania","Sweden","Slovakia","Switzerland","Slovenia","Croatia","Lebanon","Denmark","Kosovo","Tajikistan","Saudi Arabia","Kyrgyzstan","Afghanistan","Lithuania","Finland","Montenegro","Norway","Latvia","Jordan","Portugal","Kuwait","Estonia","Ireland","Luxembourg","Egypt","Qatar","United Arab Emirates","Israel","Tunisia","Armenia","Pakistan","Mongolia","Yemen","Morocco","Oman","Liechtenstein","Bahrain","Palestinian Territories","Algeria","Malta","Gibraltar","Libya"],"freq":[5006611,1145866,1059689,732914,710915,683397,611046,604579,428522,335742,329142,273503,252834,241395,209526,197765,195416,176329,159376,158830,137855,131657,117514,108124,101489,99925,87848,78244,77747,65547,57603,56320,54491,48091,45640,37708,37619,37492,37396,35635,32637,32604,28165,26430,13016,12832,11094,9659,8539,8066,5884,5297,4667,3759,2888,2377,1797,1773,1353,1100,782,692,636,570,399,89,70,32,2,1,0,0],"fontFamily":"Segoe UI","fontWeight":"bold","color":"random-dark","minSize":0,"weightFactor":3.59524636525586e-05,"backgroundColor":"white","gridSize":0,"minRotation":-0.785398163397448,"maxRotation":0.785398163397448,"shuffle":true,"rotateRatio":0.4,"shape":"circle","ellipticity":0.65,"figBase64":null,"hover":null},"evals":[],"jsHooks":[]}</script>

]

---
# Export-Import Trend

![](presentation_files/figure-html/unnamed-chunk-6-1.png)

---
# Export-Import Numbers Based On Vehicle Type

.pull-left[
![](presentation_files/figure-html/unnamed-chunk-7-1.png)
]

.pull-right[
![](presentation_files/figure-html/unnamed-chunk-8-1.png)
]

---

# Export Numbers Based On Region Wise

![](presentation_files/figure-html/unnamed-chunk-9-1.png)

---

# Import Numbers Based On Region Wise

![](presentation_files/figure-html/unnamed-chunk-10-1.png)
---

# Shiny App

![ShinyApp](shinyappscreenshot.png)
---

#Conclusion

1. Most imported countries are EU countries such as Germany, Italy, France etc. On the other hand countries close to our border like Iraq, Iran, Bulgaria etc.
2. Most exported countries are countries close to our borders. Top countries are usually in middle east or Asia, followed by EU countries.
3. There is parallel increase and decrease between Import and Export numbers on Quarterly basis. Moreover we found out drops on export and import numbers between fourth quarter and first quarter on every year. We strongly believe this is due to winter conditions also we found out a huge drop in between 2020-Q1 and 2020-Q2.We believe this is due to the Corona Virus.
4. Turkish vehicles mostly used for imports and exports.
5. Import levels in Europe are way greater than Asia and Africa regions. Africa has the lowest import numbers among all. When we analyze the line running by quarters, import lines are quite bumpy. This irregularity can be considered as a factor of seasonal and political changes. In Africa region the line runs steadily.

---

class: center,middle
Thank you for listening...