library(ggplot2)
library(labelled)
library(gt)
str(diamonds)tibble [53,940 × 10] (S3: tbl_df/tbl/data.frame)
$ carat : num [1:53940] 0.23 0.21 0.23 0.29 0.31 0.24 0.24 0.26 0.22 0.23 ...
$ cut : Ord.factor w/ 5 levels "Fair"<"Good"<..: 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 ...
$ clarity: Ord.factor w/ 8 levels "I1"<"SI2"<"SI1"<..: 2 3 5 4 2 6 7 3 4 5 ...
$ depth : num [1:53940] 61.5 59.8 56.9 62.4 63.3 62.8 62.3 61.9 65.1 59.4 ...
$ table : num [1:53940] 55 61 65 58 58 57 57 55 61 61 ...
$ price : int [1:53940] 326 326 327 334 335 336 336 337 337 338 ...
$ 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 ...generate_dictionary(diamonds) |>
gt()| pos | variable | label | col_type | missing | levels | value_labels |
|---|---|---|---|---|---|---|
| 1 | carat | NA | dbl | 0 | ||
| 2 | cut | NA | ord | 0 | Fair, Good, Very Good, Premium, Ideal | |
| 3 | color | NA | ord | 0 | D, E, F, G, H, I, J | |
| 4 | clarity | NA | ord | 0 | I1, SI2, SI1, VS2, VS1, VVS2, VVS1, IF | |
| 5 | depth | NA | dbl | 0 | ||
| 6 | table | NA | dbl | 0 | ||
| 7 | price | NA | int | 0 | ||
| 8 | x | NA | dbl | 0 | ||
| 9 | y | NA | dbl | 0 | ||
| 10 | z | NA | dbl | 0 |