Introduccion

El dataset de Anscambe sirve para ejemplificar la importancia de graficar los datos

Anscambe uso este dataset para demostrar que las estadisticas puntuales no son suficientes para describir la data

Esto es una cita

Descripcion del dataset

head(anscombe)

Tabal de medias del cuarteto de anscombe

estadistico \(x_1\) \(x_2\) \(x_3\) \(x_4\)
Medias 9 9 9 9
Desviacion 3.3166248 3.3166248 3.3166248 3.3166248
Medianas 9 9 9 8
estadistico \(y_1\) \(y_2\) \(y_3\) \(y_4\)
Medias 7.5009091 7.5009091 7.5 7.5009091
Desviacion 2.0315681 2.0316567 2.0304236 2.0305785
Medianas 7.58 8.14 7.11 7.04

Preparacion de la data para la grafica

Plot

anscombe_tidy %>%
  ggplot(aes(x,y)) +
  geom_point()+
  facet_wrap(~tag, ncol = 2)

Conclusiones

  1. Las graficas todas tienen las mismas medias.
  2. Todas tienen las misma desviacion estandar
LS0tDQp0aXRsZTogIkRhdGFzZXQgZGUgQW5zY2FtYmUiDQpvdXRwdXQ6DQogIHBkZl9kb2N1bWVudDogZGVmYXVsdA0KICBodG1sX25vdGVib29rOiBkZWZhdWx0DQotLS0NCmBgYHtyIGVjaG89RkFMU0V9DQpzdXBwcmVzc1BhY2thZ2VTdGFydHVwTWVzc2FnZXMobGlicmFyeShkcGx5cikpDQoNCnN1cHByZXNzUGFja2FnZVN0YXJ0dXBNZXNzYWdlcyhsaWJyYXJ5KGdncGxvdDIpKQ0KDQpgYGANCiFbXShsb2dvLXVnLnBuZykNCg0KIyBJbnRyb2R1Y2Npb24NCkVsIGRhdGFzZXQgZGUgQW5zY2FtYmUgc2lydmUgcGFyYSBlamVtcGxpZmljYXIgbGEgaW1wb3J0YW5jaWEgZGUgKipncmFmaWNhcioqIGxvcyBkYXRvcw0KDQpBbnNjYW1iZSB1c28gZXN0ZSBkYXRhc2V0IHBhcmEgZGVtb3N0cmFyIHF1ZSBsYXMgZXN0YWRpc3RpY2FzIHB1bnR1YWxlcyBubyBzb24gc3VmaWNpZW50ZXMNCnBhcmEgZGVzY3JpYmlyIGxhIGRhdGENCg0KICAgIEVzdG8gZXMgdW5hIGNpdGENCiAgDQojIERlc2NyaXBjaW9uIGRlbCBkYXRhc2V0DQoNCmBgYHtyIGV4cGxvcmFjaW9ufQ0KaGVhZChhbnNjb21iZSkNCmBgYA0KDQoNCiMjIFRhYmFsIGRlIG1lZGlhcyBkZWwgY3VhcnRldG8gZGUgYW5zY29tYmUNCg0KfCAqKmVzdGFkaXN0aWNvKiogfCAkeF8xJCB8ICR4XzIkIHwgJHhfMyQgfCAkeF80JCB8DQp8LS0tLS0tLS0tLS0tLS0tLS18LS0tLS0tLXwtLS0tLS0tfC0tLS0tLS18LS0tLS0tLXwNCnwgTWVkaWFzICAgICAgICAgIHxgciBtZWFuKGFuc2NvbWJlJHgxKWB8YHIgbWVhbihhbnNjb21iZSR4MilgfGByIG1lYW4oYW5zY29tYmUkeDMpYHxgciBtZWFuKGFuc2NvbWJlJHg0KWB8DQp8IERlc3ZpYWNpb24gICAgICAgICAgfGByIHNkKGFuc2NvbWJlJHgxKWB8YHIgc2QoYW5zY29tYmUkeDIpYHxgciBzZChhbnNjb21iZSR4MylgfGByIHNkKGFuc2NvbWJlJHg0KWB8DQp8IE1lZGlhbmFzICAgICAgICAgIHxgciBtZWRpYW4oYW5zY29tYmUkeDEpYHxgciBtZWRpYW4oYW5zY29tYmUkeDIpYHxgciBtZWRpYW4oYW5zY29tYmUkeDMpYHxgciBtZWRpYW4oYW5zY29tYmUkeDQpYHwNCg0KfCAqKmVzdGFkaXN0aWNvKiogfCAkeV8xJCB8ICR5XzIkIHwgJHlfMyQgfCAkeV80JCB8DQp8LS0tLS0tLS0tLS0tLS0tLS18LS0tLS0tLXwtLS0tLS0tfC0tLS0tLS18LS0tLS0tLXwNCnwgTWVkaWFzICAgICAgICAgIHxgciBtZWFuKGFuc2NvbWJlJHkxKWB8YHIgbWVhbihhbnNjb21iZSR5MilgfGByIG1lYW4oYW5zY29tYmUkeTMpYHxgciBtZWFuKGFuc2NvbWJlJHk0KWB8DQp8IERlc3ZpYWNpb24gICAgICAgICAgfGByIHNkKGFuc2NvbWJlJHkxKWB8YHIgc2QoYW5zY29tYmUkeTIpYHxgciBzZChhbnNjb21iZSR5MylgfGByIHNkKGFuc2NvbWJlJHk0KWB8DQp8IE1lZGlhbmFzICAgICAgICAgIHxgciBtZWRpYW4oYW5zY29tYmUkeTEpYHxgciBtZWRpYW4oYW5zY29tYmUkeTIpYHxgciBtZWRpYW4oYW5zY29tYmUkeTMpYHxgciBtZWRpYW4oYW5zY29tYmUkeTQpYHwNCg0KIyMgUHJlcGFyYWNpb24gZGUgbGEgZGF0YSBwYXJhIGxhIGdyYWZpY2ENCg0KYGBge3J9DQphbnNjb21iZV90aWR5IDwtIHJiaW5kKA0KZGF0YV9mcmFtZSh4PWFuc2NvbWJlJHgxLHk9YW5zY29tYmUkeTEsIHRhZz0icTEiKSwNCmRhdGFfZnJhbWUoeD1hbnNjb21iZSR4Mix5PWFuc2NvbWJlJHkyLCB0YWc9InEyIiksDQpkYXRhX2ZyYW1lKHg9YW5zY29tYmUkeDMseT1hbnNjb21iZSR5MywgdGFnPSJxMyIpLA0KZGF0YV9mcmFtZSh4PWFuc2NvbWJlJHg0LHk9YW5zY29tYmUkeTQsIHRhZz0icTQiKSkNCg0KYGBgDQoNCiMgUGxvdA0KDQpgYGB7cn0NCmFuc2NvbWJlX3RpZHkgJT4lDQogIGdncGxvdChhZXMoeCx5KSkgKw0KICBnZW9tX3BvaW50KCkrDQogIGZhY2V0X3dyYXAofnRhZywgbmNvbCA9IDIpDQpgYGANCg0KI0NvbmNsdXNpb25lcw0KDQoxLiBMYXMgZ3JhZmljYXMgdG9kYXMgdGllbmVuIGxhcyBtaXNtYXMgbWVkaWFzLg0KMi4gVG9kYXMgdGllbmVuIGxhcyBtaXNtYSBkZXN2aWFjaW9uIGVzdGFuZGFyDQoNCiogRXMgaW1wb3J0YW50ZSBncmFmaWNhciBzaWVtcHJlIGxhIGRhdGENCiogTG9zIHZhbG9yZXMgYXRpcGljb3MgYWZlY3RhbiBtdWNobyBsYSBtZWRpYSBwb2NvIGxhIG1lZGlhbmENCg0K