anise | Dynamic Annotations System for Ruby | Data Labeling library

The comment "and I'm not even sure it reports all the variables" has me a bit confused about what you're asking for when you say "variable names used during the fit", so I've answered both interpretations here.

Both answers assume this slightly-smaller version of your reproducible example.

You've missed loop={true} this attribute in your Carousel.

First check by eq for equality and then test if at least one matched value in DataFrame.any:

You can try using REPLACE. Something like this should work:

Please make shure you provide a reproducible example in your question! Otherwise, you'll create unnecessary effort.

1. To sort each component, use lapply:

   sorted <- lapply(x, sort, decreasing = TRUE)

2. To convert the tables to dataframes, use as.data.frame. This gives you a list of dataframes, then changes the names:

   df <- lapply(sorted, as.data.frame) names(df) <- paste0("df_", names(sorted))

   If you also want these as separate variables (which is probably not a good idea), you could use

   for (n in names(df)) assign(n, df[[n]])

3. To get the head of each element of the list, use lapply again:

   lapply(df, head)

   This gives output starting out as

   $df_brand Var1 Freq 1 Nissin 381 2 Nongshim 98 3 Maruchan 76 4 Mama 71 5 Paldo 66 6 Myojo 63

   $df_style Var1 Freq 1 Pack 1531 2 Bowl 481 3 Cup 450 4 Tray 108 5 Box 6 6 2

We can use the tidyverse to rotate the data from wide to long, and then group by 3-year sequences.

I slimmed down your code a little bit, but I think it should be enough to get you on your way. You can check the code comments for more details (or leave a comment and i'll respond if something doesn't make sense):

It is because you are trying to use a value that is not a valid color (dark red (#6b1101) is not correct. Find the available value types here https://www.w3schools.com/cssref/pr_text_color.asp