El enunciado es…
summary(diamantes$precio)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 326 950 2401 3933 5324 18823
Aquí se pueden incluir gráficos
table(diamantes$color)
##
## D E F G H I J
## 6775 9797 9542 11292 8304 5422 2808