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 entre medio que no consigo quitar.