columns-r.qmd

---
title: "Columns"
format: 
  dashboard:
    logo: images/beetle.png
    orientation: columns
---

```{{r}}
library(ggplot2)
```

## Scatter

```{{r}}
#| title: Highway vs. city mileage
ggplot(mpg, aes(x = cty, y = hwy)) +
  geom_point()
```

## Bar

```{{r}}
#| title: Drive types
ggplot(mpg, aes(x = drv)) +
  geom_bar()
```