document two typical user journeys & link them to current & needed functionality

[mdingemanse]

Add these in the form of sections in the workflow.Rmd vignette.

[bvreede]

Code used in developing add_lines:

conv_token <- conv |>
  tokenize() |>
  add_lines(time_columns="relative_time")


conv |>
  add_lines() |>
  ggplot(aes(x = line_end, y = line_participant)) +
  geom_turn(aes(
    begin = line_begin,
    end = line_end)) +
  geom_token(data = conv_token,
             aes(x = line_relative_time,
                 y = line_participant,
                 color = rank)) +
  xlab("Time (ms)") +
  ylab("") +
  theme_turnPlot()

[mdingemanse]

some additions

conv_token <- conv |>
  tokenize() |>
  add_lines(time_columns="relative_time")

conv |>
  add_lines() |>
  ggplot(aes(x = line_end, 
             y = line_participant)) +
  geom_turn(aes(
    begin = line_begin,
    end = line_end,
    fill = load,
    colour = load),
    linewidth=0.4,
    alpha=0.8) +
  # geom_token(data = conv_token |> dplyr::filter(order=="first"),
  #            aes(x = line_relative_time,
  #                y = line_participant)) +
  geom_text(data = conv_token |> dplyr::filter(order=="only"),
            aes(x = line_relative_time,
                y=line_participant,
                label=token)) +
  scale_y_reverse(breaks = seq(1, max(conv_token$line_id))) +
  viridis::scale_colour_viridis(option="A") +
  viridis::scale_fill_viridis(option="A") +
  xlab("Time (ms)") +
  ylab("") +
  theme_turnPlot()

[mdingemanse]

small todos

• don't forget to rename init to format in workflows.Rmd
• update workflows.Rmd to feature separate plots after Break up plot_quality() into three separate plotting functions #84 is implemented

[bvreede]

@mdingemanse this can be closed now that #89 is merged, right?

[mdingemanse]

Yes, thanks for noting!