Error generating cube

[brigidar]

I am trying to do a umap graph with 3 genes and I can get the color to work, but then when it has to create the legend it fails with the error:
Error in if (0 <= angle & angle < 90) { : the condition has length >

trace back info:

17. rotate_just(angle, hjust, vjust)
18. title_spec(label, x = x, y = y, hjust = hjust, vjust = vjust,
    angle = angle, gp = gp, debug = debug, check.overlap = check.overlap)
19. titleGrob(label, x, y, hjust = hj, vjust = vj, angle = angle,
    gp = modify_list(element_gp, gp), margin = margin, margin_x = margin_x,
    margin_y = margin_y, debug = element$debug, ...)
20. element_grob.element_text(title.theme, label = label, angle = ang,
    x = unit(pos[, 1], "cm"), y = unit(pos[, 2], "cm"), hjust = 0.5,
    vjust = 0, )
21. element_grob(title.theme, label = label, angle = ang, x = unit(pos[,
    1], "cm"), y = unit(pos[, 2], "cm"), hjust = 0.5, vjust = 0,
    )
22. withCallingHandlers(expr, warning = function(w) if (inherits(w,
    classes)) tryInvokeRestart("muffleWarning"))
23. suppressWarnings(element_grob(title.theme, label = label, angle = ang,
    x = unit(pos[, 1], "cm"), y = unit(pos[, 2], "cm"), hjust = 0.5,
    vjust = 0, ))
24. build_cube_titles(guide, theme, axes$params)
25. guide_gengrob.colourcube(X[[i]], ...)
26. FUN(X[[i]], ...)
27. lapply(gdefs, guide_gengrob, theme)
28. guides_gengrob(gdefs, theme)
29. build_guides(plot$scales, plot$layers, plot$mapping, position,
    theme, plot$guides, plot$labels)
30. ggplot_gtable.ggplot_built(data)
31. ggplot_gtable(data)
32. print.ggplot(x)
33. (function (x, ...)
    UseMethod("print"))(x)

If i suppress the legend with theme(legend.position='none') I can get the graph to work. Similarly if I only use two genes I can see the graph and the legend.
I made a dataframe with the umap coordinates and the SCT normalized expression for 3 genes. Tried to look at your code to figure out what was wrong with my input. I am running this on a docker image with RStudio with ggplot2 3.4.3.

Here is my code
tes<-subset(immune_combined2, features= c('Zbtb16','Gata3','Rorc'))
FD<-cbind(immune_combined2@reductions$umap@cell.embeddings,t(tes@assays$SCT$data))
FD<-data.frame(FD)
g1<-ggplot(FD, aes(x = umap_1, y = umap_2))+geom_point(aes(colour = rgb_spec(Zbtb16, Gata3, Rorc)))+theme_classic()

[aeheath23]

Hi! Did you ever find a solution for this? I'm having similar issues and am struggling to find additional documentation

[teunbrand]

The guide system changed in ggplot2 3.5.0 and I don't know when I'll have the time or motivation to patch this up to a working state.

[aeheath23]

It's definitely a cool concept in general, hope to see it working in the future!