Quarto Basics

Author

Favour Adekunle

Figure

Interactive Plots

library(plotly)
library(ggplot2)

data(economics)

plot_ly(
  data = economics,
  x = ~date,
  y = ~ unemploy,
  type = "scatter",
  mode = "lines"
)%>%
  layout(
    xaxis=list(title="Date"),
    yaxis=list(title="Number of Unemployed")
  )

Font Size

Font Size

Font Size

Font Size

Font Size

Font Size

Bullet list

  • Item 1

  • Item 2

  • Item 3

Numeric List

  1. Item 1

  2. Item 2

  3. Item 3

Quarto

Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see https://quarto.org.

Running Code

When you click the Render button a document will be generated that includes both content and the output of embedded code. You can embed code like this:

1 + 1
[1] 2

You can add options to executable code like this

[1] 4

The echo: false option disables the printing of code (only output is displayed).

library(tidyverse)
smaller <- diamonds |>
  filter(carat <= 2.5)

smaller |>
  ggplot(aes(x = carat)) +
  geom_bar(bindwidth = 0.01)

plot_ly(
  data = economics,
  x = ~ unemploy,
  type = "histogram"
)

Google Maps

library(leaflet)

leaflet() %>%
  addTiles() %>%
  addMarkers(
    lng = -84.39,
    lat = 33.75,
    popup = "Atlanta"
  )
leaflet() %>%
  addTiles() %>%
  addMarkers(
    lng=-84.5184,
    lat=33.9384,
    popup="KSU Marrietta"
  )

Tables

subcars <- mtcars[1:5,1:4]
knitr::kable(subcars,
             col.names = c("Mile/Gallon", "#Cylinders", "Eng Displacement", "Horsepower"),
             row.names = F,
             caption = "Car Data")
Car Data
Mile/Gallon #Cylinders Eng Displacement Horsepower
21.0 6 160 110
21.0 6 160 110
22.8 4 108 93
21.4 6 258 110
18.7 8 360 175

Interactive Tables

library(DT)
datatable(mpg)

QR Code

library(qrcode)

qr <- qr_code("https://rpubs.com/Favour_Adekunle/1424265")

plot(qr)