Tabla a texto

# Se genera un dataframe
df <- data.frame(Entidad = c ("México", "Hidalgo", 
                              "Baja California Sur",                                  "Ciudad de México",
                              "Coahuila", "Sonora",
                              "Durango"))

df

##               Entidad
## 1              México
## 2             Hidalgo
## 3 Baja California Sur
## 4    Ciudad de México
## 5            Coahuila
## 6              Sonora
## 7             Durango

# Se crea un ciclo for para agregar los elementos de la tabla por fila en un texto (excepto el último elemento)
for (i in nrow(df)){
  entidades <- paste(head(df$Entidad, -1), collapse = ', ')
  print(entidades)
}

## [1] "México, Hidalgo, Baja California Sur, Ciudad de México, Coahuila, Sonora"

# Finalmente, se agrega el último elemento con la palabra "y"

texto <- paste(entidades, "y", tail(df$Entidad, 1))
texto

## [1] "México, Hidalgo, Baja California Sur, Ciudad de México, Coahuila, Sonora y Durango"