Rivers

str(rivers)

str(rivers)

##  num [1:141] 735 320 325 392 524 ...

River_Numbers <- rivers  
str(River_Numbers)

##  num [1:141] 735 320 325 392 524 ...

hist(River_Numbers, 
     main = " Lengths of Major American Rivers",
     xlab = "Length",
     ylab = "Frequency" ,
     col = "#c0fdff",
     border = "#5465ff",
     ylim = c(0, 100),
     labels =T)