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

Question

Я новичок в функциях R, всегда предпочитаю использовать пакеты и избегать циклов. Однако теперь я пытаюсь создать цикл для конкретного вопроса, который у меня есть. Я хотел бы подмножить набор данных, основанный на диапазонах. Я думаю, что приведенный ниже код является самоочевидным.

dt = as.data.frame(sample(1:100)) 
names(dt) = "num" 

subs.it <- function(x) { 
    subs <- subset(dt, num >= (x - 5) & num <= (x + 5)) 
    return(subs) 
} 
subs.it(c(15, 50)) 

неправильный выход:

num 
44 55 
47 20 
65 19 
77 17 
83 12 
91 16 
92 51 
100 54 

правильно:

num 
4 15 
18 11 
47 20 
50 13 
54 10 
65 19 
66 14 
77 17 
82 18 
83 12 
91 16 
17 48 
19 53 
29 45 
33 52 
39 46 
44 55 
45 50 
49 49 
89 47 
92 51 
100 54 

Я не могу найти то, что я делаю неправильно.

Благодаря

Answer 1

Похоже, что функции вы ищете subset сам. Попробуйте:

subset(dt, num > 15 & num <50)

редактировать:

ах я вижу, что вы хотите два различных диапазона. Вы можете сделать это:

x = 15 y = 50 subset(dt, (num >= x-5 & num <= x+5) | (num >= y-5 & num <= y+5))

или более компактную версию с использованием абсолютных значений:

subset(dt, (abs(num - x) <= 5 | abs(num - y) <= 5))

Answer 2

Здесь вы идете.

set.seed(12345) 

library(dplyr) 

subs.it <- function(x, y, z) { 
     subs <- x %>% filter(
     (num >= (y-5) & num <= (y+5)) | (num >= (z-5) & num <= (z+5)) 
        ) 
     return(subs) 
    } 


subs.it(dt, 15, 55) 

    num 
1 16 
2 14 
3 15 
4 55 
5 52 
6 17 
7 56 
8 13 
9 57 
10 54 
11 18 
12 53 
13 11 
14 58 
15 19 
16 10 
17 51 
18 60 
19 20 
20 50 
21 12 
22 59