Hat R Funktion startswith oder endet mit wie Python?

War auf der Suche nach Prädiktoren, deren name beginnt mit einigen substring, nicht finden konnten ähnliche Funktion.

InformationsquelleAutor der Frage Chen | 2015-07-17

  1. 46

    Ich bin mir nicht sicher, Wann genau es wurde Hinzugefügt, um base (zumindest von 3.3.0), aber startsWith (und endsWith) sind genau dies. 

    > startsWith("what", "wha")
[1] TRUE
> startsWith("what", "ha")
[1] FALSE

    https://stat.ethz.ch/R-manual/R-devel/library/base/html/startsWith.html

    InformationsquelleAutor der Antwort ijoseph

  2. 18

    Nicht eingebaute ähnlich.

    Optionen gehören grepl und substr.

    x <- 'ABCDE'
grepl('^AB', x) # starts with AB?
grepl('DE$', x) # ends with DE?
substr(x, 1, 2) == 'AB'
substr('ABCDE', nchar(x)-1, nchar(x)) == 'DE'

    InformationsquelleAutor der Antwort mathematical.coffee

  3. 9

    Des dplyr-package ist select - Anweisung unterstützt starts_with und ends_with. Zum Beispiel, dieser wählt die Spalten der iris-Daten-frame, beginnen Sie mit Petal

    library(dplyr)
select(iris, starts_with("Petal"))

    select unterstützt die anderen subkommandos zu. Versuchen ?select .

    InformationsquelleAutor der Antwort G. Grothendieck

  4. 4

    Der einfachste Weg, die ich denken kann, ist die Verwendung der %like% Betreiber:

    library(data.table)

"foo" %like% "^f"

    bewertet als TRUE - Beginnend mit f

    "foo" %like% "o$"

    bewertet als TRUE - Ende mit o

    "bar" %like% "a"

    bewertet als TRUE - Mit eine

    InformationsquelleAutor der Antwort DaniGate

  5. 3

    Kreditaufnahme einige code aus der dplyr Paket [siehe diesen] Sie könnte so etwas tun:

    starts_with <- function(vars, match, ignore.case = TRUE) {
  if (ignore.case) match <- tolower(match)
  n <- nchar(match)

  if (ignore.case) vars <- tolower(vars)
  substr(vars, 1, n) == match
}

ends_with <- function(vars, match, ignore.case = TRUE) {
  if (ignore.case) match <- tolower(match)
  n <- nchar(match)

  if (ignore.case) vars <- tolower(vars)
  length <- nchar(vars)

  substr(vars, pmax(1, length - n + 1), length) == match
}

    InformationsquelleAutor der Antwort JasonAizkalns

  6. 3

    Dies ist relativ einfach durch die Verwendung der substring-Funktion:

    > strings = c("abc", "bcd", "def", "ghi", "xyzzd", "a")
> str_to_find = "de"
> substring(strings, 1, nchar(str_to_find)) == str_to_find
[1] FALSE FALSE  TRUE FALSE FALSE FALSE

    Schneiden Sie jede saite auf die gewünschte Länge mit substring. Die Länge die Anzahl der Zeichen, die Sie suchen, werden am Anfang jeder Zeichenkette.

    InformationsquelleAutor der Antwort Maxime Biette

Schreibe einen Kommentar