---
title: "Dashboard by LY"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme:  journal
    source_code: embed
    self_contained: true
    social: menu
---

# Home

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

## Column 1

### Welcome to My Dashboard Test: R Webinar

![Merry Christmas 🤶](Image20251225211943.jpg){width="195"}

### Car Plot

```{r}
plot(cars)

```

## \## Column 2

### Participants

```{r}
valueBox(50,
         caption = "Total Participants",
         icon = "fa-users",
         color = "lightgreen")

```

### Gauge Plot

```{r}
TrainingAccess = 50
gauge(TrainingAccess,
      min = 0, max = 60,
      label = "Training Success")

```

### 

```{r}
hist(cars$speed,
     col = "goldenrod", density = 20,
     border = "black")

```

# Cars

### About Cars

```{r}
head(mtcars)

```

### HP vs MPG

```{r}
plot(mtcars$mpg, mtcars$hp,pch = 18, cex = 2, col = "forestgreen")

```


# IRIS

## About IRIS

```{r}
head(iris)





```

```{r}
boxplot(iris$species, iris$Sepal.Length, col = 2:3)

```

# Thanks!
### Thanks for Checking My Dashboard!

![](Image20251225212057.png){width="451"}