r - ggplot2：保存pdf时相同的条形宽度

Question

我希望所有条都具有相同的宽度。

我的代码在不保存为 pdf 时有效：

library(ggplot2)

dat <- as.data.frame(mtcars)
# convert rownames to a separate column
dat <- cbind(rownames(dat), data.frame(dat, row.names=NULL))
names(dat)[which(names(dat) == "rownames(dat)")] <- "type"

p <- ggplot(data=dat[1:10,]) +
  geom_col(aes(x = reorder(type, wt), y = wt), position=position_dodge2(width = 0.1, preserve = "single"), width = 0.1) +
  coord_flip()

p

但是当我尝试将绘图保存为 pdf 时，条形的宽度会略有不同。

pdf(paste0(path_out, 
           "test.pdf"),
    width=10, height=4)

print(p)

dev.off()

使用我的真实数据，情况更糟：

我正在使用 Windows 7 企业版。我怎样才能解决这个问题？