Как я могу добавить точку рассеяния к существующему трехмерному графику рассеяния в

Question

Я создал трехмерный график рассеяния, используя график в R, но у меня возникли проблемы с добавлением дополнительных данных в трехмерный график.

library(plotly)
names(b) <- c('m1','m2','m3','clust')

umap_1 <- b$m1
umap_2 <- b$m2
umap_3 <- b$m3
clust <- b$clust

palette <- c('#e86e41','#d9b53f','#9857ba','#57ba64','#57b7ba')

p <- plot_ly(x = umap_1, y = umap_2, z =umap_3, 
        color = b$clust,
        colors = palette,
        marker = list(size = 1, width=1),
        text = b$clust,
        hoveringinfo = 'text'# controls size of points
        ) 

Я хотел бы добавить к этому графику рассеяния другие точки другого размера и цвета. ,

Сначала я подумал о добавлении пятого столбца в мой набор данных и использовании его в маркере с чем-то вроде ifelse(b$V4=='something'], size=1, size=5), но это не работает.

Итак, я подумал о добавлении элемента, используя%>%, например:

p <- plot_ly(x = umap_1, y = umap_2, z =umap_3, 
        color = b$clust,
        colors = palette,
        marker = list(size = 1, width=1),
        text = b$clust,
        hoveringinfo = 'text'
        ) 
p <- p >%> add_something(x,y,z, marker = list(size = 5, width=1))

Но нет функции для добавления точки рассеяния к трехмерному графику.

Есть ли способ сделать это?