Possibilities to plot 3d PCA ? about structtoolbox

[oolonek]

Found the way to acess the rest of the PCA object.

If anyones has the same issues here it is in case:
(using plotly and MS[12] beeing the PCA object)

MS[12]$scores$sample_meta
MS[12]$scores$data

# We merge PCA scores and metadata info in a single df

PCA_meta <- merge(x = MS[12]$scores$data, y = MS[12]$scores$sample_meta, by = 0, all = TRUE)


fig <- plot_ly(PCA_meta, x = ~PC1, y = ~PC2, z = ~PC3, color = ~brainregion, colors = c('#BF382A', '#0C4B8E', '#5eba7d', '#e5db74', '#272822' ))
fig <- fig %>% add_markers()
fig <- fig %>% layout(scene = list(
  xaxis = list(title = "PC1"),
  yaxis = list(title = "PC2"),
  zaxis = list(title = "PC3")
))

fig