Wie füge ich String und einer Leistung bewertet, der von einer Funktion in R?

Grundsätzlich habe ich die folgenden sagen:

counter <- 3
k <- 9999

Ich würde gerne R zum drucken der folgenden:

on the 3rd count: 9999

Nicht jemand, welchen Befehl muss ich nutzen um dies zu tun? Bitte spell it out für mich ,da ich komplett neu bin R.

InformationsquelleAutor user1769197 | 2012-10-23
  1. 16

    Der grundsätzliche Aufbau ist 

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

    Musst du ein wenig klug zu wählen Sie den richtigen suffix für die Ziffer (d.h. die "rd" nach 3, "th" nach 4-9, etc. Hier ist eine Funktion, es zu tun:

    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"
  }

    }

    Also:

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

    Müssen Sie die sep argument, weil standardmäßig paste fügt Sie ein Leerzeichen zwischen den Zeichenfolgen.

    • schön suffixSelector +1
    • Funktioniert nicht allzu gut mit 13, zum Beispiel... Das ist ein wenig komplizierter, als es scheint! (Auch, müssen Sie sicherstellen, dass Ihre geposteten code eigentlich gibt die gewählten suffixSelector!)
    • kann die paste-Funktion in der while-Schleife ? Weil ich nicht weiß, warum wird nichts ausgegeben, wenn die paste-Ding wird in der while-Schleife ???
    • Kommt darauf an... können Sie fügen Sie Ihre Schleife, so sehen wir den vollständigen code?
    • Mach dir keine sorgen. Ich war dumm. Ich dachte, die paste-Funktion bedeutet umfasst die Funktion print als auch. Offenbar ist es nur eine Verkettung, aber nicht drucken. Da muss ich print(paste(......)). Vielen Dank für Eure Hilfe
    InformationsquelleAutor Drew Steen
  2. 2

    Hier einen etwas anderen Ansatz, um Haken jede ganze Zahl mit der entsprechenden Endung. Wenn Sie nehmen Sie auseinander, werden Sie sehen, dass es wirkt erfassen der syntaktischen(?) Regel für den Aufbau der Ordnungszahlen die form jedes integer. 

    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"

    Einer erläuternden Anmerkung: Die 10*(((x %% 100) %/% 10) == 1) bit ist erforderlich, um herausgreifen zahlen endet in 10 bis 19 (11, 12, und 13 sind die echt schlechten Schauspieler hier) senden Sie alle Elemente der suffix mit "th".

    InformationsquelleAutor Josh O'Brien
  3. 1

    Verwenden sprintf

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