Pattern recognition with R [on hold]

I want to detect the boxed patterns you can see in the diagram. How can I achieve this using R?