Как установить и использовать disp3d без паузы в R 3.3.2?

Я пытаюсь получить интерактивный 3D-разброс в R 3.3.2, следуя инструкциям здесь и изучая возможности Rtsne 3d здесь . Я пытаюсь использовать динамические цвета с помощью RColorBrewer с любым пакетом 3D-графиков, здесь выбранным scatter3d . Я не нашел пакет под названием scatter3d поэтому я не уверен, где именно функция. Я получаю следующее уведомление как root с помощью install.packages('scatter3d') . Я уже install.packages('rgl')

 package 'scatter3d' is not available (for R version 3.3.2) 

Пример псевдокода [не требуется для случая]

Я показываю следующий код, потому что я не уверен, как вы можете получить scatter3d в Linux

 ## Startup # Mx <- [choose any matrix here] N <- length(Mx) perplex <- 0 library('Rtsne') # https://www.codeproject.com/Tips/788739/Visualization-of-High-Dimensional-Data-using-t-SNE # https://cran.r-project.org/web/packages/Rtsne/Rtsne.pdf rtsne_out <- Rtsne(as.matrix(Mx), perplexity = perplex, dims=3, pca=TRUE, check_duplicates=FALSE ) ## Fails because missing package scatter3d library('RColorBrewer') library('rgl') # scatter3d colors <- brewer.pal(n=N, name="Dark2") # TODO scatter3d not available in R 3.3.2 scatter3d(x=rtsne_out$Y[,1],y=rtsne_out$Y[,2],z=rtsne_out$Y[,3], surface=FALSE, grid = FALSE, ellipsoid = TRUE, surface.col = colors) 

Тестирование ответа Родриго

Успешные точки Родриго: установите install.packages('car') который является пакетом регрессии, а не пакетом данных.

Я вызываю следующую функцию внутри функции. После завершения функции интерактивный scatter3d закрывается, что является проблематичным, потому что тогда я больше не могу использовать визуализацию интерактивного окна, так как время работы короткое

• Ошибка при попытке получить источники dwm
• Установка vpnc на CentOS
• Как установить пакеты Debian через Интернет, а не с компакт-диска?
• Установка Kino завершается с отсутствием файла linux / videodev.h
• Изменение носителей при установке apache2

 scatter3d(x=rtsne_out$Y[,1],y=rtsne_out$Y[,2],z=rtsne_out$Y[,3], surface=FALSE, grid = FALSE, ellipsoid = TRUE, surface.col = colors) 

Я пытаюсь вернуть объект визуализации внутри функции безуспешно

 result <- scatter3d(...) return(result) 

Пауза нажатия клавиши не помогает в функции, и не вне функции; запуск сценария продолжается, и визуализация заканчивается, не выходя из окна.

 result cat ("Press [enter] to continue") # http://stackoverflow.com/a/18746519/54964 line <- readline() #readline(prompt="Press [enter] to continue") # http://stackoverflow.com/a/18746519/54964 

Выполнение par(ask=TRUE) #http://r.789695.n4.nabble.com/Pause-on-graphics-td845261.html до того, как scatter3d не поможет ни тем, ни другим.

ОС: Debian 8.5
R: 3.3.2

 install.packages('rgl',depend=T) library(rgl) ce <- read.csv('_CE3D.txt',sep='\t',header=T) cd <- read.csv('_CD3D.txt',sep='\t',header=T) plot3d(ce$x,ce$y,ce$z) plot3d(cd$x,cd$y,cd$z,add=T,col=2)