Can't use custom colors and get a legend from `display_xy()`

[friendly]

Can't use custom colors and get a legend from `display_xy()`

[friendly]

Oh, I should add something that does work, if I'm willing to use one of the built-in palettes.

animate(peng_scaled,
        tour_path = guided_tour(holes()),
        display = display_xy(col = peng$species,
                             palette = "Roma",
                             cex = 1.5))

[dicook]

Hi Michael,

Apologies for the delay in responding. I'm actively working the code at the moment, with fixes required by CRAN, and based on new work.

It was deliberate to have this distinction, and only put the legend if a variable is used. And expect the palette to specify colours. If colours are specified entirely by setting the col value it's difficult to know what label to apply.

Your idea of using the palette= might be workable!

[dicook]

Oh, that was easy - it should work now, eg

animate_xy(flea[,1:6], col=flea$species, palette=c("#F89D38", "#9A78B8", "#73C05B" ))

[friendly]

Great! I thought that shouldn't be hard.
But what about pch?

If I try to also set pch, I get the correct point symbols in the plot, but not in the legend

animate(peng_scaled,
        tour_path = grand_tour(d=2),
        display = display_xy(col = peng$species,
                             palette = peng.colors("dark"),
                             pch = 15:17,
                             cex = 1.2))

PS: I like the new guided_anomaly_tour !

[dicook]

Oh, you are quick to see the new projection pursuit index! I think it might finally be working this morning.

The shapes palette control has been implemented now, try:

animate_xy(flea[, -7], col = flea$species, pch = flea$species, shapeset=c(1,2,3))

[dicook]

Thanks for your suggestion Michael, I'm closing this issue as fixed now.

[friendly]

Thanks for all your help! I'm enjoying playing with tourr