วิธีการตัดช่องว่างชั้นนำและต่อท้าย?

ฉันมีปัญหากับช่องว่างนำหน้าและต่อท้ายใน 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สคริปต์ง่าย ๆซึ่งลบช่องว่างออก แต่มันคงจะดีถ้าฉันสามารถทำมันได้ในอาร์

อาจเป็นวิธีที่ดีที่สุดคือการจัดการช่องว่างต่อท้ายเมื่อคุณอ่านไฟล์ข้อมูลของคุณ ถ้าคุณใช้read.csvหรือคุณสามารถตั้งค่าพารามิเตอร์read.tablestrip.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)

ซึ่งจะแสดงให้คุณเห็นสตริงที่ล้อมรอบด้วยเครื่องหมายคำพูด (") ทำให้การมองเห็นช่องว่างง่ายขึ้น

ตั้งแต่ R 3.2.0 มีการแนะนำฟังก์ชั่นใหม่สำหรับการลบช่องว่างนำหน้า / ต่อท้าย:

trimws()

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

หากต้องการจัดการพื้นที่ว่างให้ใช้ str_trim () ในแพ็คเกจ stringr แพ็คเกจมีคู่มือลงวันที่ 15 กุมภาพันธ์ 2556 และอยู่ใน CRAN ฟังก์ชั่นยังสามารถจัดการกับเวกเตอร์สตริง

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

(เครดิตไปที่ commenter: 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 เพื่อค้นหาสิ่งที่สังเกตด้วย whitespaces และ 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 แข็ง, J. \ n'

ตัด (x)

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

หลังจากนี้คุณจะต้องบังคับให้ R ไม่รู้จัก "ออสเตรีย" เป็นระดับ สมมติว่าคุณมี "USA" และ "Spain" เป็นเลเวลด้วย:

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

ขู่เข็ญน้อยกว่าคำตอบโหวตสูงสุด แต่ก็ควรทำงาน