ggkids demo, mouse over

library(tidyverse)

set.seed(12345)

'
library(ggkids)

mood_data <- 
   write_table(~day, ~feeling,
                1,      "😩",
                2,      "😞",
                3,      "😕",
                4,      "😐",
                5,      "😏",
                6,      "😊",
                7,      "😁")
                
ggkids(data = mood_data) +
  use_x(day) + 
  use_y(feeling) + 
  chart_point() + 
  chart_line() + 
  scale_x_counting() + 
  theme_kids(ink = "darkblue")' |> 
  ggram::ggram(code = _, title = "Mood improves over 7 days! 😃")

## Warning: Removed 28 rows containing missing values or values outside the scale range
## (`geom_tile()`).

## Warning: Removed 10 rows containing missing values or values outside the scale range
## (`geom_hline()`).

ggkids(data = mood_data) +

use_x(day) +

use_y(feeling) +

chart_point() +

chart_line() +

scale_x_counting() +

theme_kids(ink = "darkblue")