Если внутри

Question

Если внутри

У меня есть таблица, как:

                                       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}}))

Но я получаю ошибку:

Ошибка в if (str_sub(z, -2, -1) == 0) {: аргумент имеет нулевую длину

Желаемый результат будет

                                       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')]) (список (dir = c("a", "PJE INDEPENDENCIA 96 5 "), E_numdir = c("1", "96, 5"), last2 = список (список ("1"), список (c("96", " 5")))), .Names = c("dir", "E_numdir", "last2"), row.names = 1:2, class = "data.frame")

0

r if-statement lapply

Источник

user2924453 26 янв '15 в 21:52

1 ответ

Решение

Другие вопросы по тегам r if-statement lapply

user3001626 26 янв '15 в 22:27 2015-01-26 22:27 · Accepted Answer · 2015-01-26 22:27

Пытаться

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