how to extract satisfy condition time series data in r?

Question

I am beginner to R and have a question related to extracting data with the condition.

I have time series data as below.

       date         percent   A