Tengo vector como este:

x <- c("20(0.23)", "15(0.2)", "16(0.09)")

y no quiero meterme con los números que están fuera del paréntesis, pero quiero eliminar el cero inicial de los números que están dentro y hacer que todo tenga 2 dígitos. La salida se verá como:

"20(.23)", "15(.20)", "16(.09)"

Información útil:

Puedo eliminar el cero inicial y retener 2 dígitos usando la siguiente función tomada de:ENLAZAR

numformat <- function(val) { sub("^(-?)0.", "\\1.", sprintf("%.2f", val)) }

numformat(c(0.2, 0.26))
#[1] ".20" ".26"

Lo ségsub Se puede usar pero no sé cómo. Proporcionaré unstrsplit Responde pero eso es hackish en el mejor de los casos.