My new favorite thing is the flextable package, because 1) the tables are beautiful, 2) you can more easily manage things like font width and size, and 3) they render HTML and Word well. Using your data:
'''{r} library(flextable) library(magrittr) df <- data.frame(x = 1:10, y = 11:20) df %>% regulartable() %>% autofit() %>% width(j=~x,width=1) %>% width(j=~y,width=1) '''
If both width are 1, the columns are close together:

If you set the last row to width(j=~x,width=2) %>% width(j=~y,width=2) table looks like this:

mysteRious
source share