Primer Ejemplo:

url="http://bit.ly/Database-tsv1"
datos=read.delim(url)
datos
#histrograma de frecuencia absoluta
hist(datos$Puntaje,
     breaks=5,#division de rango
     xlab="Puntaje",
     ylab="Cantidad",
     col=rainbow(5)
     )

Segundo Ejemplo: histrograma de frecuencia relativa

hist(datos$Puntaje,
     freq = F,#frecuencia relativa
     breaks=5,#division de rango
     xlab="Puntaje",
     ylab="Cantidad",
     col=rainbow(5),
     ylim=c(0,0.03)
)

Densidad:

density(iris$Sepal.Length)

Call:
    density.default(x = iris$Sepal.Length)

Data: iris$Sepal.Length (150 obs.); Bandwidth 'bw' = 0.2736

       x               y            
 Min.   :3.479   Min.   :0.0001495  
 1st Qu.:4.790   1st Qu.:0.0341599  
 Median :6.100   Median :0.1534105  
 Mean   :6.100   Mean   :0.1905934  
 3rd Qu.:7.410   3rd Qu.:0.3792237  
 Max.   :8.721   Max.   :0.3968365  
density
function (x, ...) 
UseMethod("density")
<bytecode: 0x563ccd057f60>
<environment: namespace:stats>
hist(iris$Sepal.Length,
     freq=F,
     breaks=6,
     col=rainbow(6),
     ylim=c(0,0.5))

Adelanto…

# install.packages("rgl")
# install.packages("magick")
library("rgl")
library("magick")
#type s, h,l,p
x<-iris$Sepal.Length
y<-iris$Sepal.Width
z<-iris$Petal.Length
plot3d(x,y,z,
       col=iris$Petal.Width,
       type="s",
       radius = 0.1,
       box=F)
LS0tCnRpdGxlOiAiVMOtdHVsbzogQ2FuY2hvLVJvZHLDrWd1ZXosIEVybmVzdG8gLSBCaWcgRGF0YSBBbmx5dGljcywgU2VtYW5hIDAzLCBDdWFkZXJubyAyOiBQbG90ZW8gZGUgR3LDoWZpY29zIEF2YW56YWRvIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpQcmltZXIgRWplbXBsbzoKCmBgYHtyfQp1cmw9Imh0dHA6Ly9iaXQubHkvRGF0YWJhc2UtdHN2MSIKZGF0b3M9cmVhZC5kZWxpbSh1cmwpCmRhdG9zCiNoaXN0cm9ncmFtYSBkZSBmcmVjdWVuY2lhIGFic29sdXRhCmBgYAoKCmBgYHtyfQpoaXN0KGRhdG9zJFB1bnRhamUsCiAgICAgYnJlYWtzPTUsI2RpdmlzaW9uIGRlIHJhbmdvCiAgICAgeGxhYj0iUHVudGFqZSIsCiAgICAgeWxhYj0iQ2FudGlkYWQiLAogICAgIGNvbD1yYWluYm93KDUpCiAgICAgKQpgYGAKU2VndW5kbyBFamVtcGxvOiBoaXN0cm9ncmFtYSBkZSBmcmVjdWVuY2lhIHJlbGF0aXZhCgpgYGB7cn0KaGlzdChkYXRvcyRQdW50YWplLAogICAgIGZyZXEgPSBGLCNmcmVjdWVuY2lhIHJlbGF0aXZhCiAgICAgYnJlYWtzPTUsI2RpdmlzaW9uIGRlIHJhbmdvCiAgICAgeGxhYj0iUHVudGFqZSIsCiAgICAgeWxhYj0iQ2FudGlkYWQiLAogICAgIGNvbD1yYWluYm93KDUpLAogICAgIHlsaW09YygwLDAuMDMpCikKCmBgYApEZW5zaWRhZDoKYGBge3J9CmRlbnNpdHkoaXJpcyRTZXBhbC5MZW5ndGgpCgpgYGAKCgpgYGB7cn0KaGlzdChpcmlzJFNlcGFsLkxlbmd0aCwKICAgICBmcmVxPUYsCiAgICAgYnJlYWtzPTYsCiAgICAgY29sPXJhaW5ib3coNiksCiAgICAgeWxpbT1jKDAsMC41KSkKYGBgCkFkZWxhbnRvLi4uCgpgYGB7cn0KIyBpbnN0YWxsLnBhY2thZ2VzKCJyZ2wiKQojIGluc3RhbGwucGFja2FnZXMoIm1hZ2ljayIpCmxpYnJhcnkoInJnbCIpCmxpYnJhcnkoIm1hZ2ljayIpCiN0eXBlIHMsIGgsbCxwCng8LWlyaXMkU2VwYWwuTGVuZ3RoCnk8LWlyaXMkU2VwYWwuV2lkdGgKejwtaXJpcyRQZXRhbC5MZW5ndGgKcGxvdDNkKHgseSx6LAogICAgICAgY29sPWlyaXMkUGV0YWwuV2lkdGgsCiAgICAgICB0eXBlPSJzIiwKICAgICAgIHJhZGl1cyA9IDAuMSwKICAgICAgIGJveD1GKQpgYGAKCgo=