Wie schneide ich führende und nachfolgende Leerzeichen?

Ich habe einige Probleme mit führenden und nachfolgenden Leerzeichen in einem data.frame. ZB schaue ich mir gerne einen bestimmten rowin data.frameeinem bestimmten Zustand an:

> myDummy[myDummy$country == c("Austria"),c(1,2,3:7,19)] 

[1] codeHelper     country        dummyLI    dummyLMI       dummyUMI       
[6] dummyHInonOECD dummyHIOECD    dummyOECD      
<0 rows> (or 0-length row.names)

Ich habe mich gefragt, warum ich nicht die erwartete Leistung erhalten habe, da das Land Österreich offensichtlich in meinem Land existiert data.frame. Nachdem ich meinen Codeverlauf durchgesehen und versucht hatte herauszufinden, was schief gelaufen war, versuchte ich:

> myDummy[myDummy$country == c("Austria "),c(1,2,3:7,19)]
   codeHelper  country dummyLI dummyLMI dummyUMI dummyHInonOECD dummyHIOECD
18        AUT Austria        0        0        0              0           1
   dummyOECD
18         1

Alles, was ich im Befehl geändert habe, ist ein zusätzliches Leerzeichen nach Österreich.

Weitere störende Probleme treten offensichtlich auf. Zum Beispiel, wenn ich zwei Frames basierend auf der Länderspalte zusammenführen möchte. Einer data.frameverwendet, "Austria "während der andere Rahmen hat "Austria". Das Matching funktioniert nicht.

1. Gibt es eine gute Möglichkeit, das Leerzeichen auf meinem Bildschirm anzuzeigen, damit ich mir des Problems bewusst werde?
2. Und kann ich das führende und nachfolgende Leerzeichen in R entfernen?

Bisher habe ich ein einfaches PerlSkript geschrieben, das Leerzeichen entfernt, aber es wäre schön, wenn ich es irgendwie in R tun könnte.

Der wahrscheinlich beste Weg ist, die nachfolgenden Leerzeichen zu verarbeiten, wenn Sie Ihre Datendatei lesen. Wenn Sie verwenden read.csvoder read.tableden Parameter einstellen können strip.white=TRUE.

Wenn Sie Zeichenfolgen anschließend bereinigen möchten, können Sie eine der folgenden Funktionen verwenden:

# returns string w/o leading whitespace
trim.leading <- function (x)  sub("^\\s+", "", x)

# returns string w/o trailing whitespace
trim.trailing <- function (x) sub("\\s+$", "", x)

# returns string w/o leading or trailing whitespace
trim <- function (x) gsub("^\\s+|\\s+$", "", x)

So verwenden Sie eine dieser Funktionen für myDummy$country:

 myDummy$country <- trim(myDummy$country)

Um das Leerzeichen anzuzeigen, können Sie Folgendes verwenden:

 paste(myDummy$country)

Hier werden die Zeichenfolgen angezeigt, die von Anführungszeichen (") umgeben sind, sodass Leerzeichen leichter zu erkennen sind.

Ab R 3.2.0 wurde eine neue Funktion zum Entfernen führender / nachfolgender Leerzeichen eingeführt:

trimws()

Siehe: http://stat.ethz.ch/R-manual/R-patched/library/base/html/trimws.html

Verwenden Sie str_trim () im stringr-Paket, um den Leerraum zu bearbeiten. Das Paket hat ein Handbuch vom 15. Februar 2013 und ist in CRAN. Die Funktion kann auch Zeichenfolgenvektoren verarbeiten.

install.packages("stringr", dependencies=TRUE)
require(stringr)
example(str_trim)
d4$clean2<-str_trim(d4$V2)

(Gutschrift geht an Kommentator: R. Cotton)

Eine einfache Funktion zum Entfernen von führenden und nachfolgenden Leerzeichen:

trim <- function( x ) {
  gsub("(^[[:space:]]+|[[:space:]]+$)", "", x)
}

Verwendungszweck:

> text = "   foo bar  baz 3 "
> trim(text)
[1] "foo bar  baz 3"

ad1) Um Leerzeichen zu sehen, können Sie direkt print.data.framemit geänderten Argumenten aufrufen :

print(head(iris), quote=TRUE)
#   Sepal.Length Sepal.Width Petal.Length Petal.Width  Species
# 1        "5.1"       "3.5"        "1.4"       "0.2" "setosa"
# 2        "4.9"       "3.0"        "1.4"       "0.2" "setosa"
# 3        "4.7"       "3.2"        "1.3"       "0.2" "setosa"
# 4        "4.6"       "3.1"        "1.5"       "0.2" "setosa"
# 5        "5.0"       "3.6"        "1.4"       "0.2" "setosa"
# 6        "5.4"       "3.9"        "1.7"       "0.4" "setosa"

Siehe auch ?print.data.framefür andere Optionen.

Verwenden Sie grep oder grepl, um Beobachtungen mit Leerzeichen zu finden, und sub, um sie zu entfernen.

names<-c("Ganga Din\t","Shyam Lal","Bulbul ")
grep("[[:space:]]+$",names)
[1] 1 3
grepl("[[:space:]]+$",names)
[1]  TRUE FALSE  TRUE
sub("[[:space:]]+$","",names)
[1] "Ganga Din" "Shyam Lal" "Bulbul"  

Ich würde es vorziehen, die Antwort als Kommentar zu user56 hinzuzufügen, kann sie jedoch nicht als unabhängige Antwort schreiben. Das Entfernen von führenden und nachfolgenden Leerzeichen kann auch durch die Funktion trim () aus dem gdata-Paket erreicht werden:

require(gdata)
example(trim)

Anwendungsbeispiel:

> trim("   Remove leading and trailing blanks    ")
[1] "Remove leading and trailing blanks"

Ein weiteres verwandtes Problem tritt auf, wenn zwischen den Eingaben mehrere Leerzeichen stehen:

> a <- "  a string         with lots   of starting, inter   mediate and trailing   whitespace     "

Sie können diese Zeichenfolge dann einfach in "echte" Token aufteilen, indem Sie einen regulären Ausdruck für das splitArgument verwenden:

> strsplit(a, split=" +")
[[1]]
 [1] ""           "a"          "string"     "with"       "lots"      
 [6] "of"         "starting,"  "inter"      "mediate"    "and"       
[11] "trailing"   "whitespace"

Beachten Sie, dass bei einer Übereinstimmung am Anfang einer (nicht leeren) Zeichenfolge das erste Element der Ausgabe "" "ist. Wenn jedoch am Ende der Zeichenfolge eine Übereinstimmung vorliegt, ist die Ausgabe dieselbe wie mit dem Streichholz entfernt.

Eine andere Option ist die Verwendung der stri_trimFunktion aus dem stringiPaket, die standardmäßig führende und nachfolgende Leerzeichen entfernt:

> x <- c("  leading space","trailing space   ")
> stri_trim(x)
[1] "leading space"  "trailing space"

Verwenden Sie zum Entfernen nur führender Leerzeichen stri_trim_left. Verwenden Sie, um nur nachgestellte Leerzeichen zu entfernen stri_trim_right. Wenn Sie andere führende oder nachfolgende Zeichen entfernen möchten, müssen Sie dies mit angeben pattern =.

Siehe auch ?stri_trimfür weitere Informationen.

Ich habe eine trim.strings ()Funktion zum Trimmen von führenden und / oder nachfolgenden Leerzeichen wie folgt erstellt:

# Arguments:    x - character vector
#            side - side(s) on which to remove whitespace 
#                   default : "both"
#                   possible values: c("both", "leading", "trailing")

trim.strings <- function(x, side = "both") { 
    if (is.na(match(side, c("both", "leading", "trailing")))) { 
      side <- "both" 
      } 
    if (side == "leading") { 
      sub("^\\s+", "", x)
      } else {
        if (side == "trailing") {
          sub("\\s+$", "", x)
    } else gsub("^\\s+|\\s+$", "", x)
    } 
} 

Zur Veranschaulichung:

a <- c("   ABC123 456    ", " ABC123DEF          ")

# returns string without leading and trailing whitespace
trim.strings(a)
# [1] "ABC123 456" "ABC123DEF" 

# returns string without leading whitespace
trim.strings(a, side = "leading")
# [1] "ABC123 456    "      "ABC123DEF          "

# returns string without trailing whitespace
trim.strings(a, side = "trailing")
# [1] "   ABC123 456" " ABC123DEF"   

Beste Methode ist trimws ()

Der folgende Code wendet diese Funktion auf den gesamten Datenrahmen an

mydataframe <- data.frame (lapply (mydataframe, trimws), stringsAsFactors = FALSE)

Ich habe versucht, trim (). Funktioniert gut mit Leerzeichen sowie dem '\ n'. x = '\ n Harden, J. \ n'

trimmen (x)

myDummy[myDummy$country == "Austria "] <- "Austria"

Danach müssen Sie R zwingen, "Österreich" nicht als Level zu erkennen. Stellen wir uns vor, Sie haben auch "USA" und "Spanien" als Level:

myDummy$country = factor(myDummy$country, levels=c("Austria", "USA", "Spain"))

Ein bisschen weniger einschüchternd als die Antwort mit der höchsten Stimme, aber es sollte trotzdem funktionieren.