Объединение строк с

У меня есть фрейм данных с несколькими переменными. Что я хочу заключается в создании строки с использованием ( конкатенация) имен переменных, но с чем-то еще между ними...

Вот упрощенный пример (число переменных уменьшено до 3, тогда как на самом деле я много)

Составление некоторого фрейма данных

 df1 <- data.frame(1,2,3) # A one row data frame
  names(df1) <- c('Location1','Location2','Location3') 

Фактический код...

  len1 <- ncol(df1)
  string1 <- 'The locations that we are considering are'  
    for(i in 1:(len1-1))   string1 <- c(string1,paste(names(df1[i]),sep=','))

  string1 <- c(string1,'and',paste(names(df1[len1]),'.'))
  string1

Это дает...

[1] "The locations that we are considering are"
[2] "Location1"                          
[3] "Location2"                          
[4] "Location3 ."

Но я хочу

Местоположение, которое мы рассматриваем, это Location1, Location2 и Location3

Я уверен, что есть гораздо более простой метод, который некоторые из вас знают... Спасибо, что уделили время...