Do you want to filter the data to keep rows where the Product ID starts with G?
library(dplyr)
df <- data.frame(PRODUCT_ID = c("Gold 01", "Gold 02", "Sold 02", "Sold 04", "Gold 03"),
Number = 1:5)
df
#> PRODUCT_ID Number
#> 1 Gold 01 1
#> 2 Gold 02 2
#> 3 Sold 02 3
#> 4 Sold 04 4
#> 5 Gold 03 5
df <- df %>% filter(grepl("^G", PRODUCT_ID))
df
#> PRODUCT_ID Number
#> 1 Gold 01 1
#> 2 Gold 02 2
#> 3 Gold 03 5
Created on 2019-05-18 by the reprex package (v0.2.1)
Here is similar code but the filter condition keeps rows that do not start with S.
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
df <- data.frame(PRODUCT_ID = c("Gold 01", "Gold 02", "Sold 02", "Sold 04", "Gold 03"),
Number = 1:5)
df
#> PRODUCT_ID Number
#> 1 Gold 01 1
#> 2 Gold 02 2
#> 3 Sold 02 3
#> 4 Sold 04 4
#> 5 Gold 03 5
df <- df %>% filter(!grepl("^S", PRODUCT_ID))
df
#> PRODUCT_ID Number
#> 1 Gold 01 1
#> 2 Gold 02 2
#> 3 Gold 03 5
Created on 2019-05-18 by the reprex package (v0.2.1)