计算符合条件的行数

I am looking for a command in R which is equivalent of this SQL statement. I want this to be a very simple basic solution without using complex functions OR dplyr type of packages.I am looking for a command in R which is equiva