Come tagliare gli spazi bianchi iniziali e finali?

Sto riscontrando alcuni problemi con lo spazio bianco iniziale e finale in un data.frame. Ad esempio, mi piace dare un'occhiata a uno specifico rowin data.framebase a una determinata condizione:

> 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)

Mi chiedevo perché non avevo ottenuto l'output atteso dal momento che il paese Austria ovviamente esisteva nel mio data.frame. Dopo aver esaminato la mia cronologia del codice e aver cercato di capire cosa è andato storto, ho provato:

> 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

Tutto quello che ho cambiato nel comando è uno spazio bianco aggiuntivo dopo l'Austria.

Sorgono ovviamente ulteriori fastidiosi problemi. Ad esempio, quando mi piace unire due frame in base alla colonna del paese. Uno data.frameusa "Austria "mentre l'altro ha "Austria". La corrispondenza non funziona.

1. C'è un bel modo di "mostrare" lo spazio bianco sul mio schermo in modo che io sia a conoscenza del problema?
2. E posso rimuovere lo spazio bianco iniziale e finale in R?

Finora ho usato una semplice Perlsceneggiatura che rimuove lo spazio bianco, ma sarebbe bello se in qualche modo riuscissi a farlo all'interno di R.

Probabilmente il modo migliore è gestire gli spazi bianchi finali quando leggi il tuo file di dati. Se si utilizza read.csvo read.tableè possibile impostare il parametro strip.white=TRUE.

Se si desidera pulire le stringhe in seguito, è possibile utilizzare una di queste funzioni:

# 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)

Per utilizzare una di queste funzioni su myDummy$country:

 myDummy$country <- trim(myDummy$country)

Per "mostrare" lo spazio bianco che puoi usare:

 paste(myDummy$country)

che ti mostrerà le stringhe racchiuse tra virgolette (") rendendo più facile individuare gli spazi bianchi.

A partire da R 3.2.0 è stata introdotta una nuova funzione per rimuovere gli spazi bianchi iniziali / finali:

trimws()

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

Per manipolare lo spazio bianco, utilizzare str_trim () nel pacchetto stringr. Il pacchetto ha un manuale datato 15.2013 febbraio ed è in CRAN. La funzione può anche gestire vettori di stringhe.

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

(il merito va al commentatore: R. Cotton)

Una semplice funzione per rimuovere gli spazi iniziali e finali:

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

Uso:

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

ad1) Per vedere gli spazi bianchi puoi chiamare direttamente print.data.framecon argomenti modificati:

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"

Vedi anche ?print.data.frameper altre opzioni.

Usa grep o grepl per trovare osservazioni con spazi bianchi e sottotitoli per sbarazzartene.

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"  

Preferirei aggiungere la risposta come commento all'utente56 ma non riesco ancora a scrivere come risposta indipendente. La rimozione di spazi vuoti iniziali e finali potrebbe essere ottenuta anche tramite la funzione trim () dal pacchetto gdata:

require(gdata)
example(trim)

Esempio di utilizzo:

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

Un altro problema correlato si verifica se si hanno più spazi tra gli input:

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

Puoi quindi facilmente dividere questa stringa in token "reali" usando un'espressione regolare splitall'argomento:

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

Nota che se c'è una corrispondenza all'inizio di una stringa (non vuota), il primo elemento dell'output è '""', ma se c'è una corrispondenza alla fine della stringa, l'output è lo stesso di con la partita rimossa.

Un'altra opzione è quella di utilizzare la stri_trimfunzione dal stringipacchetto che per impostazione predefinita rimuove gli spazi bianchi iniziali e finali:

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

Per rimuovere solo gli spazi bianchi iniziali, utilizzare stri_trim_left. Per rimuovere solo gli spazi bianchi finali, utilizzare stri_trim_right. Quando si desidera rimuovere altri caratteri iniziali o finali, è necessario specificarlo con pattern =.

Vedi anche ?stri_trimper maggiori informazioni.

Ho creato una trim.strings ()funzione per tagliare gli spazi bianchi iniziali e / o finali come:

# 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)
    } 
} 

Per illustrazione,

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"   

Il metodo migliore è trimws ()

Il codice seguente applicherà questa funzione all'intero frame di dati

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

Ho provato a tagliare (). Funziona bene con spazi bianchi e '\ n'. x = '\ n Harden, J. \ n'

trim (x)

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

Successivamente, dovrai forzare R a non riconoscere "Austria" come livello. Facciamo finta di avere anche "USA" e "Spagna" come livelli:

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

Un po 'meno intimidatorio della risposta più votata, ma dovrebbe comunque funzionare.