Tom,
maybe this helps (but if not provide a reprex for your question) :
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
toms_data <- data.frame(
"Cocoa\nPercent" = c(80,45) ,
Rating = c(4.5, 2.1)
)
toms_data
#> Cocoa.Percent Rating
#> 1 80 4.5
#> 2 45 2.1
toms_data %>%
filter(Cocoa.Percent >=75, Rating >= 3.9)
#> Cocoa.Percent Rating
#> 1 80 4.5
Created on 2021-08-28 by the reprex package (v2.0.0)