Как установить и использовать 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
- Почему Лапис не работает?
- Установить скрипт - совместимость авторизации sudo?
- Не администратор, как установить локальный GCC вместо предоставления?
- Как установить R-base sid в Debian jessie?
- Не удалось установить пакет php-posix на CentOS 5.6
## 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
закрывается, что является проблематичным, потому что тогда я больше не могу использовать визуализацию интерактивного окна, так как время работы короткое
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
- подсказка conffile во время обновления по сценарию
- Как правильно установить файл tar.gz в Linux - как управлять установленными вручную (или отдельными) приложениями?
- Использование разных версий Python
- Резервное копирование и восстановление списка установленных пакетов и источников APT
- Gmail мгновенный новый почтовый уведомитель для систем Debian 7?
- Не удается запустить Elasticsearch в Linux Mint 18
- Почему я получаю запросы на CD в Debian APT-GET?
- Как установить пакеты без Интернета
One Solution collect form web for “Как установить и использовать disp3d без паузы в R 3.3.2?”
Простой пример, используя библиотеку rgl
.
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)
Изображения взяты из другого примера, но только для иллюстрации. Вы можете нажать и перетащить мышь, чтобы повернуть.
- Как сделать команды xinput постоянными
- Как я могу напечатать нечетные и четные строки в виде столбца с помощью AWK?