fakir examples
In fakir: Generate Fake Datasets for Prototyping and Teaching

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.align = "center"
)

library(fakir)
library(dplyr)
library(ggplot2)
library(sf)

Fake client database

The database fakes an after-sale client database for a Phone company. There is:

a client database with all characteristics of the clients.
a ticket database which contains all calls to the after-sale service of some clients having problems
Ticket centered dataset with already joined client characteristics

fake_ticket_client(vol = 10)

Separate tickets and client databases

tickets_db <- fake_ticket_client(vol = 100, split = TRUE)
tickets_db

Explore datasets

ggplot(tickets_db$clients) +
  aes(x = entry_date, y = fidelity_points) +
  geom_point() +
  geom_smooth()
ggplot(tickets_db$tickets) +
  aes(x = type) +
  geom_bar()
ggplot(tickets_db$tickets) +
  aes(x = state) +
  geom_bar()

Join with internal {sf} spatial dataset fra_sf. {sf} package must be loaded.

clients_map <- tickets_db$clients %>%
  group_by(id_dpt) %>%
  summarise(
    number_of_clients = n(),
    average_fidelity = mean(fidelity_points, na.rm = TRUE)
  ) %>%
  full_join(fra_sf, by = "id_dpt") %>%
  st_sf()

ggplot(clients_map) +
  geom_sf(aes(fill = average_fidelity)) +
  scale_fill_viridis_c() +
  coord_sf(
    crs = 2154,
    datum = 4326
  )

Fake products

Create a fake dataset of connected wearables

count(
  fake_products(10),
  category
)

Fake website visits

fake_visits(
  from = "2017-01-01",
  to = "2017-01-31"
)

Fake questionnaire on mean of transport / goal

All answers

fake_survey_answers(n = 10)

Separate individuals and their answers

fake_survey_answers(n = 10, split = TRUE)

fake transport use

answers <- fake_survey_answers(n = 30)
answers

ggplot(answers) +
  aes(age, log(distance_km), colour = type) +
  geom_point() +
  geom_smooth() +
  facet_wrap(~type, scales = "free_y")