library(stringr)
pattern <- "(?<=Levorotatory)(?:\\s*([SRI]|N/I)\\s*([^\\w\\s]*\\d*\\.?\\d+)){2}";
x <- "Viscocity S <=0.25 S <=0.25 Levorotatory S <=21 R <=2.5 Giminal S <=1 S <=1"
results <- str_match(x, pattern)[,-1]
results
bGlicmFyeShzdHJpbmdyKQpwYXR0ZXJuIDwtICIoPzw9TGV2b3JvdGF0b3J5KSg/OlxccyooW1NSSV18Ti9JKVxccyooW15cXHdcXHNdKlxcZCpcXC4/XFxkKykpezJ9IjsKeCA8LSAiVmlzY29jaXR5ICAgICAgICAgICAgICAgICAgICAgIFMgICA8PTAuMjUgICAgICAgIFMgICA8PTAuMjUgTGV2b3JvdGF0b3J5ICAgICAgICAgICAgICAgICAgICAgIFMgICAgICA8PTIxICAgICAgICBSICAgICAgPD0yLjUgR2ltaW5hbCAgICAgICAgICAgICAgICAgICAgUyAgICAgIDw9MSAgICAgICAgUyAgICAgIDw9MSIKcmVzdWx0cyA8LSBzdHJfbWF0Y2goeCwgcGF0dGVybilbLC0xXQpyZXN1bHRzCg==