R-如果里面lapply

我有一个表，如：R-如果里面lapply

         dir E_numdir  last2 
1           a   1   1 
2 PJE INDEPENDENCIA 96 5       96, 5  96, 5 
3 PJE INDEPENDENCIA 96 5       96, 5  96, 5 
4 B 34 VIVIENDA RECRE 53 00     34, 53, 00 34, 53, 00 
5 SARMIENTO CASA DE GO 613       613   13 
6 ROCA 958 00 o         958, 00  58, 00

我需要每一行的每个元素评估，如果他们是00店的1清单，如果他们是00或0，如果他们不在每一行中。

我想：

d$last1<-lapply(d$E_numdir, 
       function(w) lapply(strsplit(w,","), 
            function(z) { 
            if(str_sub(z, -2, -1)==00){1} 
            else {0}}))

但我得到一个错误：

Error in if (str_sub(z, -2, -1) == 0) { : argument is of length zero

期望的结果将是

         dir E_numdir  last2  xx 
1           a   1   1 0 
2 PJE INDEPENDENCIA 96 5       96, 5  96, 5 0,0 
3 PJE INDEPENDENCIA 96 5       96, 5  96, 5 0,0 
4 B 34 VIVIENDA RECRE 53 00     34, 53, 00 34, 53, 00 0,0,1 
5 SARMIENTO CASA DE GO 613       613   13 0 
6 ROCA 958 00 o         958, 00  58, 00 1,0

如何与IF函数评价各行的元素并将其存储在同一行中？

版：表结构：

dput(d[1:2,c('dir', 'E_numdir', 'last2')]) structure(list(dir = c("a", "PJE INDEPENDENCIA 96 5 " ), E_numdir = c("1", "96, 5"), last2 = list(list("1"), list(c("96", " 5")))), .Names = c("dir", "E_numdir", "last2"), row.names = 1:2, class = "data.frame")

来源

2015-01-26 GabyLP

尝试

df$xx <- sapply(df$last2, function(x) toString((stri_split_fixed(x, ", ")[[1]] == "00") + 0)) 
df 
#       dir E_numdir  last2  xx 
# 1       a   1   1  0 
# 2  PJE INDEPENDENCIA 96 5  96, 5  96, 5 0, 0 
# 3  PJE INDEPENDENCIA 96 5  96, 5  96, 5 0, 0 
# 4 B 34 VIVIENDA RECRE 53 00 34, 53, 00 34, 53, 00 0, 0, 1 
# 5 SARMIENTO CASA DE GO 613  613   13  0 
# 6    ROCA 958 00 o 958, 00  58, 00 0, 1

编辑：如果last2是一个列表，您可以简化代码，只是

df$xx <- sapply(df$last2, function(x) toString((unlist(x) == "00") + 0))

来源

2015-01-26 22:27:12

谢谢，但给我一个错误，因为类（d $ last2 [2]）是一个列表。 – GabyLP 2015-01-27 13:43:16

你应该为你的数据集提供一个'dput'然后 – 2015-01-27 13:44:04

请看 – GabyLP 2015-01-27 14:11:40

R-如果里面lapply

回答

相关问题