Librería

library(tibble)

Tabla de municipios

municipios_huila <- tibble(
  codigo_dane = c(
    "41001", "41006", "41013", "41016", "41020",
    "41026", "41078", "41132", "41206", "41244",
    "41298", "41306", "41319", "41349", "41357",
    "41359", "41378", "41396", "41483", "41503",
    "41518", "41524", "41530", "41548", "41551",
    "41615", "41660", "41668", "41676", "41770",
    "41791", "41797", "41799", "41801", "41807",
    "41872", "41885"
  ),

  municipio = c(
    "Neiva", "Acevedo", "Agrado", "Aipe", "Algeciras",
    "Altamira", "Baraya", "Campoalegre", "Colombia", "Elías",
    "Garzón", "Gigante", "Guadalupe", "Hobo", "Íquira",
    "Isnos", "La Argentina", "La Plata", "Nátaga", "Oporapa",
    "Paicol", "Palermo", "Palestina", "Pital", "Pitalito",
    "Rivera", "Saladoblanco", "San Agustín", "Santa María", "Suaza",
    "Tarqui", "Tesalia", "Tello", "Teruel", "Timaná",
    "Villavieja", "Yaguará"
  )
)

municipios_huila

Librería

library(tibble)

Tabla de municipios

municipios_huila <- tibble(
  codigo_dane = c(
    "41001",
    "41006",
    "41013",
    "41016",
    "41020"
  ),

  municipio = c(
    "Neiva",
    "Acevedo",
    "Agrado",
    "Aipe",
    "Algeciras"
  )
)

municipios_huila

Exportar CSV

write.csv(
  municipios_huila,
  "municipios_huila.csv",
  row.names = FALSE
)