How to delete rows based on character number of occurrences?

Question

Im requiring to delete all the rows which have less than 6 underscores on its value

my data

id var1                            var2
1  procedures_1_1_5___240          TRUE
2  procedures___6                  TRUE
3  procedures_1_20_1___2130        TRUE
4  procedures_1_1___2              TRUE

my desired output

id var1                            var2
1  procedures_1_1_5___240          TRUE
3  procedures_1_20_1___2130        TRUE

Answer 1

In base R you could do:

subset(df1, nchar(gsub('[^_]', '', var1)) >= 6)

  id                     var1 var2
1  1   procedures_1_1_5___240 TRUE
3  3 procedures_1_20_1___2130 TRUE