Tengo un df de este estilo ``` x <- data.frame(col=c("X 100", "X 200", "casa", "B", "X 150", "C","X234")) ``` ``` col 1 X 100 2 X 200 3 casa 4 B 5 X 150 6 C 7 X234 ``` Donde aparece X+ número quiero poner un guión entre ellos de forma que quede así ``` col 1 X-100 2 X-200 3 casa 4 B 5 X-150 6 C 7 X-234 ``` Hago lo siguiente: ``` library("stringr") x$col2 <-str_replace(x$col, "(\\X)(\\d{3})","\\1-\\2") ``` ``` col col2 1 X 100 X -100 2 X 200 X -200 3 casa casa 4 B B 5 X 150 X -150 6 C C 7 X234 X-234 ``` Y se me queda ese espacio en blanco en medio que no consigo quitar.