library(stringr)
string  <- ":  FC Relacionado con Paciente  FC Protocolo1  FC Comunicacion entre Profesionales1  FC Disponibilidad"
str_extract_all(string, "\\bFC\\b(?:(?!\\bFC\\b).)*?1")