Как обрезать начальные и конечные пробелы?

У меня проблемы с ведущими и конечными пробелами в data.frame. Например, я хотел бы взглянуть на конкретные rowв data.frameзависимости от определенного условия:

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

Мне было интересно, почему я не получил ожидаемый результат, поскольку в моей стране явно существовала Австрия data.frame. После просмотра истории кода и попытки выяснить, что пошло не так, я попытался:

> 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

Все, что я изменил в команде, это дополнительные пробелы после Австрии.

Дальнейшие досадные проблемы, очевидно, возникают. Например, когда мне нравится объединять два кадра на основе столбца страны. Один data.frameиспользует, "Austria "а другой имеет "Austria". Соответствие не работает.

1. Есть ли хороший способ «показать» пробелы на моем экране, чтобы я знал о проблеме?
2. И могу ли я удалить начальные и конечные пробелы в R?

До сих пор я писал простой Perlскрипт, который удаляет пробелы, но было бы неплохо, если бы я мог как-то сделать это внутри R.

Вероятно, лучший способ - обработать замыкающие пробелы при чтении файла данных. Если вы используете read.csvили read.tableвы можете установить параметр strip.white=TRUE.

Если вы хотите очистить строки после этого, вы можете использовать одну из следующих функций:

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

Чтобы использовать одну из этих функций на myDummy$country:

 myDummy$country <- trim(myDummy$country)

Чтобы «показать» пробел, вы можете использовать:

 paste(myDummy$country)

которая покажет вам строки, заключенные в кавычки ("), чтобы легче было найти пробелы.

Начиная с версии 3.2.0 была введена новая функция для удаления начальных / конечных пробелов:

trimws()

Смотрите: http://stat.ethz.ch/R-manual/R-patched/library/base/html/trimws.html

Чтобы манипулировать пробелами, используйте str_trim () в пакете stringr. Пакет имеет руководство от 15 февраля 2013 г. и находится в CRAN. Функция также может обрабатывать строковые векторы.

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

(благодарность комментатору: Р. Коттон)

Простая функция для удаления начальных и конечных пробелов:

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

Применение:

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

ad1) Чтобы увидеть пробелы, вы можете напрямую вызвать print.data.frameс измененными аргументами:

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"

Смотрите также ?print.data.frameдля других вариантов.

Используйте grep или grepl, чтобы найти наблюдения с пробелами и sub, чтобы избавиться от них.

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"  

Я предпочел бы добавить ответ в качестве комментария к user56, но пока не могу писать как самостоятельный ответ. Удаление ведущих и конечных пробелов может быть достигнуто с помощью функции trim () из пакета gdata:

require(gdata)
example(trim)

Пример использования:

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

Другая связанная проблема возникает, если у вас есть несколько пробелов между входами:

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

Затем вы можете легко разбить эту строку на «настоящие» токены, используя регулярное выражение для splitаргумента:

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

Обратите внимание, что если есть совпадение в начале (непустой) строки, первый элемент выходных данных - это «» », но если в конце строки есть совпадение, выходные данные совпадают с со спичкой удалены.

Другой вариант - использовать stri_trimфункцию из stringiпакета, которая по умолчанию удаляет начальные и конечные пробелы:

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

Для удаления только начальных пробелов используйте stri_trim_left. Для удаления только конечных пробелов используйте stri_trim_right. Если вы хотите удалить другие начальные или конечные символы, вы должны указать это с помощью pattern =.

Смотрите также ?stri_trimдля получения дополнительной информации.

Я создал trim.strings ()функцию для обрезки начальных и / или конечных пробелов как:

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

Для иллюстрации

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"   

Лучший метод - trimws ()

Следующий код будет применять эту функцию ко всему фрейму данных

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

Я пытался обрезать (). Хорошо работает с пробелами, а также с \ n. x = '\ n Harden, J. \ n'

подрезать (х)

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

После этого вам нужно заставить R не распознавать «Австрию» как уровень. Давайте представим, что у вас также есть "США" и "Испания" в качестве уровней:

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

Немного менее пугающе, чем ответ с наибольшим количеством голосов, но он все равно должен работать.