If the data set is like : "Name of wine", "Year", "Type" then:

library(stringr)
vino<-mutate(vino, name = str_extract(vino$title, ".*?(?=\\b\\d{4}\\b)"))
vino<-mutate(vino, year = str_extract(vino$title, "\\b\\d{4}\\b"))
vino<-mutate(vino, type = str_replace_all(str_extract(vino$title, "(?<=\\b\\d{4}\\b).*"), "\\s*\\([^()]*(\\([^()]*\\)[^()]*)*\\)", ""))

After the type probably there is an info about the manufacturing area???

To extract also this, you could use extraction methods between parentheses...