---
title: "UFO活動觸及高達百次"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
---
```{r}
library(flexdashboard)
library(readr)
library(tidyr)
library(stringr)
library(lubridate)
library(ggplot2)
library(magrittr)
library(showtext)
library(grDevices)
library(scales)
library(colorspace)
```


```{r}
load("HW8Data.Rda")
load("HW8Plot.Rda")
```

Column {data-width=600, data-height=500}
-------------------------------------
    
### 本學期三大活動
    
```{r}
graphList$totalT
```

### QRcode




```{r,fig.width=2, fig.height=2}
graphList$toy 
graphList$movie
graphList$lalala
```



Column {.tabset data-width=400}
-------------------------------------
   
### Poster

```{r}
graphList$posterT
```   
 
### Facebook
    
```{r}
graphList$facebookT
```

### Website

```{r}
graphList$websiteT
```