todos - Combinar múltiples espacios en un solo espacio; eliminar espacios al final/de cola

quitar espacios en blanco excel 2016

Question

Quiero fusionar varios espacios en un solo espacio (el espacio también puede ser una pestaña) y eliminar los espacios finales / iniciales.

Por ejemplo...

string <- "Hi        buddy        what''s up    Bro" 

a

"Hi buddy what''s up bro"

Verifiqué la solución dada en Regex para reemplazar múltiples espacios con un solo espacio . Tenga en cuenta que no ponga / t o / n como espacio exacto dentro de la cadena del juguete y aliméntelo como patrón en gsub . Quiero que en R.

Tenga en cuenta que no puedo poner espacio múltiple en la cadena de juguete. Gracias

Answer 1

El qdapRegex tiene la función rm_white para manejar esto:

library(qdapRegex)
rm_white(string)

## [1] "Hi buddy what''s up Bro"

Answer 2

Esto parece satisfacer sus necesidades.

string <- "  Hi buddy   what''s up   Bro "
library(stringr)
str_replace(gsub("//s+", " ", str_trim(string)), "B", "b")
# [1] "Hi buddy what''s up bro"

Answer 3

No es necesario importar bibliotecas externas para realizar dicha tarea:

string <- " Hi        buddy        what''s up    Bro "
string <- gsub("//s+", " ", string)
string <- trimws(string)
string
[1] "Hi buddy what''s up Bro"

O, en una línea:

string <- trimws(gsub("//s+", " ", string))

Mucho más limpio.

Answer 4

O simplemente pruebe la función squish de stringr

> library(stringr)
> string <- "  Hi buddy   what''s up   Bro "
> str_squish(string)
[1] "Hi buddy what''s up Bro"

Answer 5

Otro enfoque utilizando un solo regex:

gsub("(?<=[//s])//s*|^//s+|//s+$", "", string, perl=TRUE)

Explicación ( from )

NODE                     EXPLANATION
--------------------------------------------------------------------------------
  (?<=                     look behind to see if there is:
--------------------------------------------------------------------------------
    [/s]                     any character of: whitespace (/n, /r,
                             /t, /f, and " ")
--------------------------------------------------------------------------------
  )                        end of look-behind
--------------------------------------------------------------------------------
  /s*                      whitespace (/n, /r, /t, /f, and " ") (0 or
                           more times (matching the most amount
                           possible))
--------------------------------------------------------------------------------
 |                        OR
--------------------------------------------------------------------------------
  ^                        the beginning of the string
--------------------------------------------------------------------------------
  /s+                      whitespace (/n, /r, /t, /f, and " ") (1 or
                           more times (matching the most amount
                           possible))
--------------------------------------------------------------------------------
  $                        before an optional /n, and the end of the
                           string

Answer 6

También puedes intentar clean desde qdap

library(qdap)
library(stringr)
str_trim(clean(string))
#[1] "Hi buddy what''s up Bro"

O como lo sugiere @Tyler Rinker (usando solo qdap )

Trim(clean(string))
#[1] "Hi buddy what''s up Bro"