social-dashboard.Rmd

---
title: "대통령선거"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    theme: lumen
    logo: fig/Flag_of_South_Korea.png
    css: css/minju.css
    includes:
       in_header: google_analytics.html
editor_options: 
  chunk_output_type: console
---


```{r setup, include=FALSE}
## 0. R 마크다운 환경설정 ------
knitr::opts_chunk$set(echo = FALSE, warning=FALSE, message=FALSE,
                    comment="", digits = 3, tidy = FALSE, prompt = FALSE, fig.align = 'center')
knitr::opts_knit$set(root.dir = rprojroot::find_rstudio_root_file())
options(knitr.duplicate.label = 'allow')
## 0. R 팩키지 ------
library(flexdashboard)
library(tidyverse)
library(janitor)
library(extrafont)
loadfonts()
library(here)
library(fs)
library(glue)
library(gt)
library(plotly)

library(tidygraph)
library(ggraph)
library(patchwork)
library(ggforce)

convert_from_wide_to_nw <- function(rawdata) {
  
  lvl_one_tbl <- rawdata %>%
    select(from = hubo, to = lvl_01) %>%
    distinct(.)
  
  lvl_two_tbl <- rawdata %>%
    select(from = lvl_01, to = lvl_02)
  
  nw_tbl <- bind_rows(lvl_one_tbl, lvl_two_tbl)
  
  nw_tbl
}

```



```{r child="dashboard/social/survey.Rmd", encoding="UTF-8"}
```


```{r child="dashboard/social/trends.Rmd", encoding="UTF-8"}
```


```{r child="dashboard/social/related-search.Rmd", encoding="UTF-8"}
```


```{r child="dashboard/social/youtube-hubo.Rmd", encoding="UTF-8"}
```


```{r child="dashboard/social/social-SNS.Rmd", encoding="UTF-8"}
```


```{r child="dashboard/social/social-emotion.Rmd", encoding="UTF-8"}
```


<!-- 개발과 다큐멘터리 -->


```{r child="dashboard/social/development.Rmd", encoding="UTF-8"}
```

```{r child="dashboard/social/documentary.Rmd", encoding="UTF-8"}
```