SUMARISE ES PARA SACAR EL PROMEDIO!!!!!!

library(tidyverse)
library(tibble)

Cómo hacer una data de juguete

Todo lo que está antes del signo “=” (igual) es la variable que irá en las columnas, todo lo que está después son los elemenetos de información que llenarán las columnas.

Tabla tidy

tibble(
  meses_trabajados = c("Marzo", "Abril", "Mayo", "Junio", "Julio"),
  días_trabajados = c(15, 17, 19, 11, 16),
  Porcentaje_bien_remunerados = c(0.7, 0.8, 0.9, 0.5, 0.8)
)
tibble(
  meses_trabajados = c("Marzo", "Abril"),
  días_trabajados = c(3, 3),
  Porcentaje_bien_remunerados = c(0.7, 0.8)
)

tabla no tidy

tibble(
  meses_trabajados = c("Marzo_1", "Marzo_2", "Marzo_3", "Abril_1", "Abril_2", "Abril_3"),
  Porcentaje_bien_remunerados = c(0.8, 0.6, 0.7, 0.9, 0.7, 0.8)
)

La función gather es para pasar de una tabla no tidy (desordenada) a una tabla tidy(correctamente ordenada).

Key = es la función que se encuentra desparramada Value = el valor de la variable “key”

EJ

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpTVU1BUklTRSBFUyBQQVJBIFNBQ0FSIEVMIFBST01FRElPISEhISEhDQoNCg0KYGBge3J9DQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCmxpYnJhcnkodGliYmxlKQ0KYGBgDQoNCkPzbW8gaGFjZXIgdW5hIGRhdGEgZGUganVndWV0ZQ0KDQpUb2RvIGxvIHF1ZSBlc3ThIGFudGVzIGRlbCBzaWdubyAiPSIgKGlndWFsKSBlcyBsYSB2YXJpYWJsZSBxdWUgaXLhIGVuIGxhcyBjb2x1bW5hcywgdG9kbyBsbyBxdWUgZXN04SBkZXNwdelzIHNvbiBsb3MgZWxlbWVuZXRvcyBkZSBpbmZvcm1hY2nzbiBxdWUgbGxlbmFy4W4gbGFzIGNvbHVtbmFzLg0KDQoNCiNUYWJsYSB0aWR5Iw0KYGBge3J9DQp0aWJibGUoDQogIG1lc2VzX3RyYWJhamFkb3MgPSBjKCJNYXJ6byIsICJBYnJpbCIsICJNYXlvIiwgIkp1bmlvIiwgIkp1bGlvIiksDQogIGTtYXNfdHJhYmFqYWRvcyA9IGMoMTUsIDE3LCAxOSwgMTEsIDE2KSwNCiAgUG9yY2VudGFqZV9iaWVuX3JlbXVuZXJhZG9zID0gYygwLjcsIDAuOCwgMC45LCAwLjUsIDAuOCkNCikNCmBgYA0KDQoNCg0KDQpgYGB7cn0NCnRpYmJsZSgNCiAgbWVzZXNfdHJhYmFqYWRvcyA9IGMoIk1hcnpvIiwgIkFicmlsIiksDQogIGTtYXNfdHJhYmFqYWRvcyA9IGMoMywgMyksDQogIFBvcmNlbnRhamVfYmllbl9yZW11bmVyYWRvcyA9IGMoMC43LCAwLjgpDQopDQpgYGANCg0KI3RhYmxhIG5vIHRpZHkjDQpgYGB7cn0NCnRpYmJsZSgNCiAgbWVzZXNfdHJhYmFqYWRvcyA9IGMoIk1hcnpvXzEiLCAiTWFyem9fMiIsICJNYXJ6b18zIiwgIkFicmlsXzEiLCAiQWJyaWxfMiIsICJBYnJpbF8zIiksDQogIFBvcmNlbnRhamVfYmllbl9yZW11bmVyYWRvcyA9IGMoMC44LCAwLjYsIDAuNywgMC45LCAwLjcsIDAuOCkNCikNCmBgYA0KDQoNCkxhIGZ1bmNp824gZ2F0aGVyIGVzIHBhcmEgcGFzYXIgZGUgdW5hIHRhYmxhIG5vIHRpZHkgKGRlc29yZGVuYWRhKSBhIHVuYSB0YWJsYSB0aWR5KGNvcnJlY3RhbWVudGUgb3JkZW5hZGEpLg0KDQpLZXkgPSBlcyBsYSBmdW5jafNuIHF1ZSBzZSBlbmN1ZW50cmEgZGVzcGFycmFtYWRhDQpWYWx1ZSA9IGVsIHZhbG9yIGRlIGxhIHZhcmlhYmxlICJrZXkiDQoNCkVKDQoNCg0KDQoNCg==