x <- "Red => Orange => Yellow blue => Grey,black"
paste0("[ ", paste(strsplit(x, " => ", fixed=TRUE)[[1]], collapse=" ] => [ "), " ]") 
paste0("[ ", gsub("\\s*=>\\s*", " ] => [ ", x), " ]")