如何修剪R中的前导和尾随空白?

我在data.frame中引入和尾随空白有一些麻烦。 例如,我喜欢根据一定的条件来查看data.frame中的特定row

 > 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.csvread.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

      myDummy$country <- trim(myDummy$country) 

    为了“显示”你可以使用的空白:

      paste(myDummy$country) 

    它会显示用引号(“)围起来的字符串,使得空格更容易被识别。

    从R 3.2.0起,引入了一个新的函数来消除前导/尾随空格:

     trimws() 

    请参阅: http : //stat.ethz.ch/R-manual/R-patched/library/base/html/trimws.html

    要操纵空格,请在stringr包中使用str_trim()。 该软件包的手册日期为2013年2月15日,位于CRAN。 该函数还可以处理字符串向量。

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

    (信用评论:R. Cotton)

    一个简单的函数来删除前导和尾随的空白:

     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来查找带有空格和子空间的观察数据以摆脱它们。

     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" 

    我宁愿添加答案作为评论给用户56,但仍不能这样写作为一个独立的答案。 通过gdata包中的trim()函数也可以去除前导和尾随空白:

     require(gdata) example(trim) 

    用法示例:

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

    另一种选择是使用stringi软件包中的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了解更多信息。

    如果在输入之间有多个空格,则会出现另一个相关问题:

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

    请注意,如果在(非空)字符串的开头处有一个匹配项,则输出的第一个元素是“”“,但是如果在字符串末尾有一个匹配项,则输出与随着比赛被删除。

    我创建了一个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" 
     myDummy[myDummy$country == "Austria "] <- "Austria" 

    在此之后,你需要强制R不承认“奥地利”作为一个级别。 假设你也有“美国”和“西班牙”这样的级别:

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

    比最高的投票反应少一点吓人,但它应该仍然有效。

    最好的方法是修剪()

    下面的代码将把这个函数应用到整个数据框

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