3D Дирихле, троичный сюжет

Question

Я пытаюсь создать трехмерный график функции плотности вероятности Дирихле, подобный одному из них (из Википедии):

Мои данные состоят из 3 столбцов и 100000 строк, где каждая строка суммирует 1, полученную из rdirichlet функция. Я могу создать версию тепловой карты, используя DirichletReg, что примерно эквивалентно нижнему правому графику из графиков Википедии выше следующим образом:

library(gtools)
library(DirichletReg)

dat <- rdirichlet(100000, alpha = c(10,1,10))
plot(DR_data(dat), a2d = list(colored = TRUE, c.grid = FALSE, col.scheme = c("entropy")))

Или я могу создать единую версию тепловой карты, похожую на верхний левый график Вики, следующим образом:

dat2 <- rdirichlet(100000, alpha = c(1,1,1))
plot(DR_data(dat2), a2d = list(colored = TRUE, c.grid = FALSE, col.scheme = c("entropy")))

Мой вопрос: можно ли вместо тепловой карты сделать тройной график 3D похожим на график вики? Я пытался сделать это с помощью plotly а также plot3d пакеты, но не смогли приблизиться. Любая помощь приветствуется.