# Load the dplyr package
library(dplyr)

# Create a sample dataframe
df <- data.frame(
  ID = c(1, 2, 3, 4, 5),
  Value = c(10, 15, 5, 12, 8)
)

# Add a factor column based on a filter
df <- df %>%
  mutate(Group = case_when(
    Value > 10 ~ "High",
    TRUE ~ "Low"
  ))

# View the modified dataframe
df