如何从函数的输出中创建打印值？

Question

I have this dataframe:

df <- data.frame(ID=rep(33,5),
                 Number=1:5,
                 Time=c(2.00,1.98,0.82,2.12,2.53),
                 Distance=c(870,859,305,651,502))

I wanted to filter it by Time so I used this code(thanks to a previous post):

getHLN <- function(df, ID) {
  df %>%
    filter (ID ==id & (Number %in% 1:3 & (Time < 0.90))|
           (ID == id & (Number %in% 4:5 & (Time > 2.10))))
}

Which now gives this output:

  ID Number Time Distance
1 33      3 0.82      305
2 33      4 2.12      651
3 33      5 2.53      502

I'm wondering if I would be able to create or edit my current function to produce an output that has an output printing -3, +4, +5 instead to differentiate between less than and greater more easily?

Answer 1

If we need a character column, then use mutate to modify the 'Number' column

getHLN <- function(df, id) {
 df %>%
    filter(ID ==id & (Number %in% 1:3 & (Time < 0.90))|
       (ID == id & (Number %in% 4:5 & (Time > 2.10)))) %>%
    mutate(Number = ifelse(Time < 0.90, paste0("-", Number), paste0("+", Number)))

 }

getHLN(df, 33)
#   ID Number Time Distance
#1 33     -3 0.82      305
#2 33     +4 2.12      651
#3 33     +5 2.53      502