library(tidyverse)
tibble(
  col1 = c (),
  col3 = c (),
  col4 = c ()
)

c= es una función para crear vectores. Tiene que haber variables del mismo ti´po, por ejemplo todas deben ser números

data_jugete <- tibble(
  curso = c("Taller de datos", "Lectura critica"),
  profesor = c("Pepito", "Victoria"),
  tasa_reprobacion = c(0.5, 0.9)
)
data_anexi <- tibble(
  pais = c("EEUU", "rusia", "china"),
  manzana = c(120, 180, 90),
  naranja = c(150, 200, 180),
  arandanos = c(200, 110, 180)
)

gather sirve para tidiar los datos

tidyr::gather(data = data_anexi,
              key = "frutas",
              value = "kilos", 
              - pais)
iris
LS0tDQp0aXRsZTogIkNsYXNlIDY6IFRpZHkgZGF0YSINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyfQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpgYGANCg0KYGBge3J9DQp0aWJibGUoDQogIGNvbDEgPSBjICgpLA0KICBjb2wzID0gYyAoKSwNCiAgY29sNCA9IGMgKCkNCikNCmBgYA0KDQpjPSBlcyB1bmEgZnVuY2nDs24gcGFyYSBjcmVhciB2ZWN0b3Jlcy4gVGllbmUgcXVlIGhhYmVyIHZhcmlhYmxlcyBkZWwgbWlzbW8gdGnCtHBvLCBwb3IgZWplbXBsbyB0b2RhcyBkZWJlbiBzZXIgbsO6bWVyb3MNCg0KYGBge3J9DQpkYXRhX2p1Z2V0ZSA8LSB0aWJibGUoDQogIGN1cnNvID0gYygiVGFsbGVyIGRlIGRhdG9zIiwgIkxlY3R1cmEgY3JpdGljYSIpLA0KICBwcm9mZXNvciA9IGMoIlBlcGl0byIsICJWaWN0b3JpYSIpLA0KICB0YXNhX3JlcHJvYmFjaW9uID0gYygwLjUsIDAuOSkNCikNCmBgYA0KDQpgYGB7cn0NCmRhdGFfYW5leGkgPC0gdGliYmxlKA0KICBwYWlzID0gYygiRUVVVSIsICJydXNpYSIsICJjaGluYSIpLA0KICBtYW56YW5hID0gYygxMjAsIDE4MCwgOTApLA0KICBuYXJhbmphID0gYygxNTAsIDIwMCwgMTgwKSwNCiAgYXJhbmRhbm9zID0gYygyMDAsIDExMCwgMTgwKQ0KKQ0KYGBgDQoNCmdhdGhlciBzaXJ2ZSBwYXJhIHRpZGlhciBsb3MgZGF0b3MgDQoNCmBgYHtyfQ0KdGlkeXI6OmdhdGhlcihkYXRhID0gZGF0YV9hbmV4aSwNCiAgICAgICAgICAgICAga2V5ID0gImZydXRhcyIsDQogICAgICAgICAgICAgIHZhbHVlID0gImtpbG9zIiwgDQogICAgICAgICAgICAgIC0gcGFpcykNCmBgYA0KDQoNCg0KDQpgYGB7cn0NCmlyaXMNCmBgYA0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0K