This is an example. As you can see, flexdashboard can have text annotations.

---
title: "Gauge, Navigation Bar & Text Annotation"
output: 
  flexdashboard::flex_dashboard:
    orientations: columns
    source_code: embed
    navbar:
      - { title: "About", href: "https://example.com/about", align: right }
      - { icon: "fa-pencil", href: "https://www.naver.com", align: right }    
---

This is an example. As you can see, flexdashboard can have text annotations. 

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(knitr)
```



Column1 {data-width=120}
---------------

### Gauge ex1. Contact Rate

```{r}
gauge(45, min = 0, max = 100, symbol = '%', sectors = gaugeSectors(
  success = c(80, 100), warning = c(40, 79), danger = c(0, 39)
))
```

> Example from flexdashboard homepage


### Gauge ex2. Average Rating 

```{r}
rating = 42
gauge(rating, 0, 50, label = 'Test',  gaugeSectors(
  success = c(41, 50), warning = c(21, 40), danger = c(0, 20)
))
```

### Text Annotation

One of the dashboard section can be used as a text area. 

Markdown Grammers can be helpful here. 

It is not that difficult.

Just have a try. 




Column2 {data-width=300}
--------------------------------------------- 


### ggplot2 graph

```{r}
ggplot(data=mtcars) +
  geom_bar(mapping = aes(x=cyl, fill=as.factor(am))) + 
  theme(legend.position = "blank")
```