Pass more than a single item to pluck?

[spsanderson]

I think that it might be good to see if you can pass more than one item to pluck

[spsanderson]

Here is a tidyverse version, needs work obviously but I think you will get the idea @AnttiRask

library(RandomWalker)
library(dplyr)
library(ggplot2)
library(tidyr)

random_normal_walk(.initial_value = 10000, .num_walks = 25) |>
  select(walk_number, x, y, cum_prod) |>
  pivot_longer(cols=c(y, cum_prod), names_to = "variable", values_to = "value") |>
  mutate(variable = factor(variable, levels = c("y", "cum_prod"))) |>
  ggplot(aes(x=x, group = walk_number, y=value, color=walk_number)) +
  facet_wrap(~variable, scales="free") +
  geom_line(alpha = 1 - 0.328) +
  theme_minimal() +
  theme(legend.position = "none")

You will probably want to work it like you did the visualize_walks() function to compose them together and incorporate ggirafe

[spsanderson]

@AnttiRask I have updated this function in the development branch to handle the change of x being renamed to step_number