# Extraer valores no NA y ordenar alfabéticamente
sld_sin_escala <- sort(na.omit(OG$archivo_sld2))

# Guardar en un archivo de texto
writeLines(sld_sin_escala, "sld_sin_escala.txt")