babyweight.R

library(tidyverse)
library(lubridate)
library(emoGG)

lexie <- tribble( ~date, ~weight, 
  "2017-07-12", 3.460, 
  "2017-07-13", 3.200,
  "2017-07-14", 3.100,
  "2017-07-15", 3.200,
  "2017-07-16", 3.250,
  "2017-07-17", 3.310,
  "2017-07-18", 3.350,
  "2017-07-26", 3.810
  ) %>% 
  mutate( 
    date = ymd(date), 
    jour = as.numeric(date-min(date)) 
  )

ggplot( lexie, aes( x = date, y = weight) ) +
  geom_line() + 
  geom_emoji(emoji="1f476") +
  scale_x_date( 
    breaks = seq(min(lexie$date), max(lexie$date), by = "day" ), 
    labels = paste( "J", seq(0, max(lexie$date) - min(lexie$date) ) )
  ) + 
  scale_y_continuous(
    breaks = seq(3.1, 4, by = .1)
  )