R- lapply一個列表

前

          dir  E_numdir 
45 OCAMPO 1253 2         1253, 2 
74 BENITO LYNCH 1883         1883 
24 PRESIDENTE DE LA PLA 148        148

凡E_numdir是一個字符我需要最後2個位數從E_numdir每個數字評估，如果是0然後在另一列中獲得一個標記。

要評估這個我試過：

lapply(ex$E_numdir , function(w) str_sub(w, -2, -1))

但我只能從最後一個號碼拿到最後2個位數。

所以，我想：

lapply(as.vector(unlist(strsplit(ex$E_numdir,",")),mode="list") , function(w) str_sub(w, -2, -1))

但我得到的比我有更多的行。每個元素一個。

我需要得到另一列「XX」與

          dir  E_numdir xx 
45 OCAMPO 1253 2         1253, 2 53,2 
74 BENITO LYNCH 1883         1883 83 
24 PRESIDENTE DE LA PLA 148        148 48

如何申請的功能，所有的數字，但結果存儲在同一行？

謝謝。

來源

2015-01-26 GabyLP

使用像'reshape2 :: colsplit'先清理你的數據，因此你不必在一列多個值被逗號隔開。 – joran 2015-01-26 20:48:16

你可以做

library(stringi) 

ex$last2 <- vapply(
    ## split on ", " - comma then a space 
    stri_split_fixed(ex$E_numdir, ", "), 
    ## paste the last two characters of each element together 
    function(x) stri_c(stri_sub(x, -2), collapse = ","), 
    ## set the return value for vapply() 
    character(1L) 
)

這給

      dir E_numdir last2 
1   45 OCAMPO 1253 2 1253, 2 53,2 
2  74 BENITO LYNCH 1883  1883 83 
3 24 PRESIDENTE DE LA PLA 148  148 48

來源

2015-01-26 20:48:59

R- lapply一個列表

回答

相關問題