Ejercicio 1

A partir del siguiente gráfico, investigar cómo se usa y qué hace el geom_rug. Agreguen una capa de geom_rug al plot existente pero que no use el mapeo de species en color.

¿Qué hace theme_minimal()? ¿Hay otros themes que se pueden usar?

require(ggplot2)
require(palmerpenguins)
ggplot(data = penguins, aes(x = bill_depth_mm, 
                            y = bill_length_mm,
                            color = species) ) +
  geom_point() +
  theme_minimal()

Ejercicio 2

¿Los pinguinos que tienen picos más anchos tienen picos más cortos o más largos?

Ejercicio 3

Hacer un violin plot con geom_violin y sumen una capa de geom_boxplot y geom_point o geom_jitter

Ejercicio 4

Repetir alguno de los gráficos que hicieron con los datos de Properati pero esta vez con ggplot.

LS0tCnRpdGxlOiAiVFAtVmlzdWFsaXphY2nDs24sIHBhcnRlIDEiCmF1dGhvcjogIkd1aWxsZXJtbyBTb2xvdmV5IgpkYXRlOiAiOS8yMy8yMDIxIgpvdXRwdXQ6CiAgaHRtbF9kb2N1bWVudDoKICAgIGRmX3ByaW50OiBwYWdlZAogICAgdG9jOiB5ZXMKICBodG1sX25vdGVib29rOgogICAgdGhlbWU6IGx1bWVuCiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKc3VidGl0bGU6ICJMYWJvcmF0b3JpbyBkZSBEYXRvcyIKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQpgYGAKCiMjIyMgRWplcmNpY2lvIDEKCkEgcGFydGlyIGRlbCBzaWd1aWVudGUgZ3LDoWZpY28sIGludmVzdGlnYXIgY8OzbW8gc2UgdXNhIHkgcXXDqSBoYWNlIAplbCBgZ2VvbV9ydWcgYC4gQWdyZWd1ZW4gdW5hIGNhcGEgZGUgZ2VvbV9ydWcgYWwgcGxvdCBleGlzdGVudGUKcGVybyBxdWUgbm8gdXNlIGVsIG1hcGVvIGRlIHNwZWNpZXMgZW4gY29sb3IuCgrCv1F1w6kgaGFjZSBgdGhlbWVfbWluaW1hbCgpYD8gwr9IYXkgb3Ryb3MgdGhlbWVzIHF1ZSBzZSBwdWVkZW4gdXNhcj8KCmBgYHtyIGVjaG8gPSBULCBldmFsID0gRn0KcmVxdWlyZShnZ3Bsb3QyKQpyZXF1aXJlKHBhbG1lcnBlbmd1aW5zKQpnZ3Bsb3QoZGF0YSA9IHBlbmd1aW5zLCBhZXMoeCA9IGJpbGxfZGVwdGhfbW0sIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgeSA9IGJpbGxfbGVuZ3RoX21tLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sb3IgPSBzcGVjaWVzKSApICsKICBnZW9tX3BvaW50KCkgKwogIHRoZW1lX21pbmltYWwoKQpgYGAKCiMjIyMgRWplcmNpY2lvIDIKCsK/TG9zIHBpbmd1aW5vcyBxdWUgdGllbmVuIHBpY29zIG3DoXMgYW5jaG9zIHRpZW5lbiBwaWNvcyBtw6FzIGNvcnRvcyBvCm3DoXMgbGFyZ29zPwoKCiMjIyMgRWplcmNpY2lvIDMKCkhhY2VyIHVuIHZpb2xpbiBwbG90IGNvbiBgZ2VvbV92aW9saW5gIHkgc3VtZW4gdW5hIGNhcGEgZGUgYGdlb21fYm94cGxvdGAKeSBgZ2VvbV9wb2ludGAgbyBgZ2VvbV9qaXR0ZXJgCgoKIyMjIyBFamVyY2ljaW8gNAoKUmVwZXRpciBhbGd1bm8gZGUgbG9zIGdyw6FmaWNvcyBxdWUgaGljaWVyb24gY29uIGxvcyBkYXRvcyBkZSBQcm9wZXJhdGkKcGVybyBlc3RhIHZleiBjb24gYGdncGxvdGAuCgoKCg==