Instale dos paquetes de R

install.packages("ggplot2")
install.packages("datos")

Cargue los paquetes en su sesión de R

library(ggplot2)
Registered S3 method overwritten by 'dplyr':
  method           from
  print.rowwise_df     
Keep up to date with changes at
https://www.tidyverse.org/blog/

r{r}


<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiRXJyb3I6IGF0dGVtcHQgdG8gdXNlIHplcm8tbGVuZ3RoIHZhcmlhYmxlIG5hbWVcbiJ9 -->

Error: attempt to use zero-length variable name ```

Llame a la tabla: diamantes

Use View() para ver todos los datos dentro de diamantes

r{r}


<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiRXJyb3I6IGF0dGVtcHQgdG8gdXNlIHplcm8tbGVuZ3RoIHZhcmlhYmxlIG5hbWVcbiJ9 -->

Error: attempt to use zero-length variable name ```

str() devuelve la estructura de una variable

str(diamantes)
tibble [53,940 × 10] (S3: tbl_df/tbl/data.frame)
 $ precio     : int [1:53940] 326 326 327 334 335 336 336 337 337 338 ...
 $ quilate    : num [1:53940] 0.23 0.21 0.23 0.29 0.31 0.24 0.24 0.26 0.22 0.23 ...
 $ corte      : Ord.factor w/ 5 levels "Regular"<"Bueno"<..: 5 4 2 4 2 3 3 3 1 3 ...
 $ color      : Ord.factor w/ 7 levels "D"<"E"<"F"<"G"<..: 2 2 2 6 7 7 6 5 2 5 ...
 $ claridad   : Ord.factor w/ 8 levels "I1"<"SI2"<"SI1"<..: 2 3 5 4 2 6 7 3 4 5 ...
 $ profundidad: num [1:53940] 61.5 59.8 56.9 62.4 63.3 62.8 62.3 61.9 65.1 59.4 ...
 $ tabla      : num [1:53940] 55 61 65 58 58 57 57 55 61 61 ...
 $ x          : num [1:53940] 3.95 3.89 4.05 4.2 4.34 3.94 3.95 4.07 3.87 4 ...
 $ y          : num [1:53940] 3.98 3.84 4.07 4.23 4.35 3.96 3.98 4.11 3.78 4.05 ...
 $ z          : num [1:53940] 2.43 2.31 2.31 2.63 2.75 2.48 2.47 2.53 2.49 2.39 ...

Utilize ? para ver la ayuda

r{r}


<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiRXJyb3I6IGF0dGVtcHQgdG8gdXNlIHplcm8tbGVuZ3RoIHZhcmlhYmxlIG5hbWVcbiJ9 -->

Error: attempt to use zero-length variable name ```

Carge diamantes dentro de una variable

rr mis_diamantes <- diamantes

LS0tCnRpdGxlOiAiVXNvcyBiw6FzaWNvcyIKb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6IGRlZmF1bHQKICBodG1sX2RvY3VtZW50OgogICAgZGZfcHJpbnQ6IHBhZ2VkCiAgcGRmX2RvY3VtZW50OiBkZWZhdWx0CiAgd29yZF9kb2N1bWVudDogZGVmYXVsdAotLS0KCkluc3RhbGUgZG9zIHBhcXVldGVzIGRlIFIKCmBgYHtyLCBldmFsID0gRkFMU0V9Cmluc3RhbGwucGFja2FnZXMoImdncGxvdDIiKQppbnN0YWxsLnBhY2thZ2VzKCJkYXRvcyIpCmBgYAoKQ2FyZ3VlIGxvcyBwYXF1ZXRlcyBlbiBzdSBzZXNpw7NuIGRlIFIKCmBgYHtyfQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoZGF0b3MpCmBgYAoKTGxhbWUgYSBsYSB0YWJsYTogZGlhbWFudGVzCgpgYGB7cn0KZGlhbWFudGVzCmBgYAoKVXNlIFZpZXcoKSBwYXJhIHZlciB0b2RvcyBsb3MgZGF0b3MgZGVudHJvIGRlIGRpYW1hbnRlcwoKCmBgYHtyfQpWaWV3KGRpYW1hbnRlcykKYGBgCgpzdHIoKSBkZXZ1ZWx2ZSBsYSBlc3RydWN0dXJhIGRlIHVuYSB2YXJpYWJsZQoKYGBge3J9CnN0cihkaWFtYW50ZXMpCmBgYAoKVXRpbGl6ZSBgP2AgcGFyYSB2ZXIgbGEgYXl1ZGEKCmBgYHtyfQo/ZGlhbWFudGVzCmBgYAoKQ2FyZ2UgZGlhbWFudGVzIGRlbnRybyBkZSB1bmEgdmFyaWFibGUKCmBgYHtyfQptaXNfZGlhbWFudGVzIDwtIGRpYW1hbnRlcwpgYGAK