x <- "4,05g"
gsub("(\\d+(?:,\\d+)?[[:alpha:]]*)", "{\\1}", x)