library(dplyr) df <- data.frame(no = 1:10, value = seq(1, 100, 10)) cat("### ALL ###", "\n") print(df) for (i in c(1, 50, 80)) { filter_text <- paste("value > ", i) filtered <- df %>% dplyr::filter(eval(parse(text = filter_text))) cat("###", i, "> ###", "\n") print(filtered) }