In mrjoh3/ggtrack: Build tracking banners using QR codes for addition to plots and reports

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(dplyr)
library(ggplot2)
library(ggtrack)

df <- tribble(~ bytes, ~ cm,
                47   ,   1.8,
                109  ,   2.0,
                218  ,   2.6,
                327  ,   3.1,
                436  ,   3.3,
                545  ,   3.5,
                654  ,   4.0)

gg <- ggplot(df, aes(x = bytes, y = cm)) +
  geom_point() +
  geom_smooth(method = 'lm') +
  labs(x = 'bytes encoded into QR',
       y = 'height of QR in cm',
       title = 'QR size calibration') +
  theme_minimal()

ggtrack(gg,
        caption = 'calibration based on QR code scanned<br> from computer monitor',
        qr_content = 'https://mrjoh3.github.io/ggtrack/articles/qr_calibrate.html',
        logo = '../man/figures/ggtrack-logo.svg')

qr_mod <- lm(cm ~ bytes, data = df)

summary(qr_mod)

usethis::use_data(qr_mod, internal = FALSE, overwrite = TRUE)

mrjoh3/ggtrack documentation built on Dec. 21, 2021, 10:08 p.m.