R выбрать определенные значения из нескольких столбцов, используя условия

Question

Я хочу выбрать определенные значения из нескольких столбцов, используя условия. (Также позвольте назначить строку 1 как ID # 1, ... row5 как ID # 5)

column1 <- c("rice 2", "apple 4", "melon 6", "blueberry 4", "orange 6")
column2 <- c("rice 8", "blueberry 8", "grape 10", "water 10", "mango 3")
column3 <- c("rice 6", "apple 8", "blueberry 12", "pineapple 8", "mango 3")

Я хочу получить новый столбец, используя идентификаторы с условием только рис> 5, черника> 7 или апельсин> 5

Сначала я хотел бы получить ID № 1, ID № 2, ID № 3, ID № 5

Во-вторых, я бы посчитал, сколько условий выполнено на ID Я хотел бы получить результаты

ID#1 -> 2 conditions met
ID#2 -> 1 conditions met
ID#3 -> 1 conditions met
ID#4 -> 0 conditions met
ID#5 -> 1 conditions met

Answer 1

Если я правильно понял вопрос, то один из подходов может быть

library(dplyr)

cols <- names(df)[-1]

df1 <- df %>%
  mutate_if(is.factor, as.character) %>%
  mutate(rice_gt_5 = (select(., one_of(cols)) %>% 
                        rowwise() %>%
                        mutate_all(funs(strsplit(., split=" ")[[1]][1] =='rice' & as.numeric(strsplit(., split=" ")[[1]][2]) > 5)) %>%
                        rowSums)) %>%
  mutate(blueberry_gt_7 = (select(., one_of(cols)) %>% 
                        rowwise() %>%
                        mutate_all(funs(strsplit(., split=" ")[[1]][1] =='blueberry' & as.numeric(strsplit(., split=" ")[[1]][2]) > 7)) %>%
                        rowSums)) %>%
  mutate(orange_gt_5 = (select(., one_of(cols)) %>% 
                        rowwise() %>%
                        mutate_all(funs(strsplit(., split=" ")[[1]][1] =='orange' & as.numeric(strsplit(., split=" ")[[1]][2]) > 5)) %>%
                        rowSums))

#IDs which satisfy at least one of your conditions i.e. rice > 5 OR blueberry > 7 OR orange > 5
df1$ID[which(df1 %>% select(rice_gt_5, blueberry_gt_7, orange_gt_5) %>% rowSums() >0)]
#[1] 1 2 3 5

#How many conditions are met per ID
df1 %>%
  mutate(no_of_cond_met = rowSums(select(., one_of(c("rice_gt_5", "blueberry_gt_7", "orange_gt_5"))))) %>%
  select(ID, no_of_cond_met)
#  ID no_of_cond_met
#1  1              2
#2  2              1
#3  3              1
#4  4              0
#5  5              1

Пример данных:

df <- structure(list(ID = 1:5, column1 = structure(c(5L, 1L, 3L, 2L, 
4L), .Label = c("apple 4", "blueberry 4", "melon 6", "orange 6", 
"rice 2"), class = "factor"), column2 = structure(c(4L, 1L, 2L, 
5L, 3L), .Label = c("blueberry 8", "grape 10", "mango 3", "rice 8", 
"water 10"), class = "factor"), column3 = structure(c(5L, 1L, 
2L, 4L, 3L), .Label = c("apple 8", "blueberry 12", "mango 3", 
"pineapple 8", "rice 6"), class = "factor")), .Names = c("ID", 
"column1", "column2", "column3"), row.names = c(NA, -5L), class = "data.frame")