Embed 3D plots with rgl

library(rgl)
knitr::knit_hooks$set(webgl = hook_webgl)

env1 <- read.table("env_predictors.txt", header = T)
env2<-env1[,4:9]
pc.env<-prcomp(env2,scale=T,center=T)
plot3d(pc.env$x[,1:3])