Comment concaténer des chaînes et une production évaluée à partir d'une fonction dans R?

En gros, j'ai la suite de dire:

counter <- 3
k <- 9999

Je voudrais obtenir un R pour imprimer le suivant:

on the 3rd count: 9999

Personne ne quelle commande dois-je utiliser pour ce faire? Veuillez préciser pour moi ,car je suis totalement nouveau dans R.

OriginalL'auteur user1769197 | 2012-10-23

  1. 15

    La construction de base est 

    paste("on the ", counter, "rd count: ", k, sep="")

    Vous aurez besoin d'être un peu intelligent de choisir le bon suffixe pour les chiffres (c'est à dire "rd" après 3, "th" après 4-9, etc. Voici une fonction pour le faire:

    suffixSelector <- function(x) {
  if (x%%10==1) {
    suffixSelector <- "st"
  } else if(x%%10==2) {
    suffixSelector <- "nd"
  } else if(x%%10==3) {
    suffixSelector <- "rd"
  } else {
    suffixSelector <- "th"
  }

    }

    Ainsi:

    suffix <- suffixSelector(counter)
paste("on the ", counter, suffix, " count: ", k, sep="")

    Vous devez définir la sep argument parce que, par défaut paste insère un espace entre les cordes.

    nice suffixSelector +1
    Ne fonctionne pas trop bien avec 13, par exemple... C'est un peu plus compliqué que ça en a l'air! (Aussi, vous devez vous assurer que votre posté code renvoie en fait choisi suffixSelector!)
    pouvez la fonction coller être mis dans la boucle while ? Parce que je ne sais pas pourquoi rien n'est imprimé lorsque la pâte truc est dans la boucle while ???
    Dépend... pouvez-vous coller votre boucle, afin que nous puissions voir le code complet?
    Ne vous inquiétez pas. J'ai été stupide. Je pensais que la fonction coller inclut la fonction d'impression. Apparemment, il ne concatène, mais ne pas imprimer. Alors, je dois faire imprimer(coller(......)). Merci pour votre aide

    OriginalL'auteur Drew Steen

  2. 2

    Voici une approche légèrement différente pour accrocher chaque entier avec le suffixe approprié. Si vous chercher en dehors de vous, vous verrez qu'il ne capture la syntaxe(?) la règle pour la construction de la forme ordinale de tout entier. 

    suffixPicker <- function(x) {
    suffix <- c("st", "nd", "rd", rep("th", 17))
    suffix[((x-1) %% 10 + 1) + 10*(((x %% 100) %/% 10) == 1)]
}

## Testing with your example
counter <- 3
k <- 9999
paste("on the ", paste0(counter, suffixPicker(counter)), 
      " count: ", k, sep="")
# [1] "on the 3rd count: 9999"

## Show that it also works for a range of numbers
x <- 1:24
paste0(x, suffixPicker(x))
#  [1] "1st"  "2nd"  "3rd"  "4th"  "5th"  "6th"  "7th"  "8th"  "9th"  "10th"
# [11] "11th" "12th" "13th" "14th" "15th" "16th" "17th" "18th" "19th" "20th"
# [21] "21st" "22nd" "23rd" "24th"

    Une note explicative: La 10*(((x %% 100) %/% 10) == 1) bits est nécessaire pour choisir les numéros qui se termine dans 10 à 19 (11, 12, et 13 sont les vrais mauvais acteurs ici) l'envoi de tous les éléments de suffix contenant "th".

    OriginalL'auteur Josh O'Brien

  3. 1

    Utilisation sprintf

    > sprintf("on the %drd count: %d", counter, k)
[1] "on the 3rd count: 9999"

    OriginalL'auteur GSee