將字符串轉換爲通過剝離空白空間設置的數字數據

我有一組包含要轉換爲數據集的元素的字符串。本質上，我想刪除空白區域，留下數據列。最簡單的方法，也許是唯一的方法，我知道要做到這一點是寫my.data到外部文件，然後將該外部文件讀回R.是否有更有效的解決方案，不涉及寫入和讀取新文件？謝謝你的任何建議。我更喜歡base R.將字符串轉換爲通過剝離空白空間設置的數字數據

my.data <- c(' abc  -1.10  1.18  -3.41  1.21 ', 
      ' def  -1.71  0.21  -2.14 1.29  ', 
      ' gg   2.19  2.93  -1.16  3.55 ', 
      ' hvv4  0.00  -0.01   0.04  0.11  ') 

my.data <- data.frame(my.data, stringsAsFactors=FALSE) 

desired.result <- read.table(text = ' 

    parm1 beta SE  lcl ucl 
    abc -1.10 1.18 -3.41 1.21 
    def -1.71 0.21 -2.14 1.29 
    gg 2.19 2.93 -1.16 3.55 
    vv4 0.00 -0.01 -0.04 0.11 

', header = TRUE, stringsAsFactors=FALSE)

來源

2013-11-03 Mark Miller

爲什麼不在你的字符串上使用read.table？

out <- read.table(text = my.data, stringsAsFactors=FALSE, 
        header = FALSE, strip.white=TRUE) 
str(out) 
# 'data.frame': 4 obs. of 5 variables: 
# $ V1: chr "abc" "def" "gg" "hvv4" 
# $ V2: num -1.1 -1.71 2.19 0 
# $ V3: num 1.18 0.21 2.93 -0.01 
# $ V4: num -3.41 -2.14 -1.16 0.04 
# $ V5: num 1.21 1.29 3.55 0.11

來源

2013-11-03 06:40:48 A5C1D2H2I1M1N2O1R2T1

x=t(unique(unlist(strsplit(x=my.data,split=" ")))[-1]) 
cleaned=matrix(x,5,4) 
t(cleaned) 

     [,1] [,2] [,3] [,4] 
[1,] "abc" "def" "gg" "hvv4" 
[2,] "-1.10" "-1.71" "2.19" "0.00" 
[3,] "1.18" "0.21" "2.93" "-0.01" 
[4,] "-3.41" "-2.14" "-1.16" "0.04" 
[5,] "1.21" "1.29" "3.55" "0.11" 

cleaned 

     [,1] [,2] [,3] [,4] [,5] 
[1,] "abc" "-1.10" "1.18" "-3.41" "1.21" 
[2,] "def" "-1.71" "0.21" "-2.14" "1.29" 
[3,] "gg" "2.19" "2.93" "-1.16" "3.55" 
[4,] "hvv4" "0.00" "-0.01" "0.04" "0.11"

來源

2013-11-03 07:16:26

將字符串轉換爲通過剝離空白空間設置的數字數據

回答

相關問題