ggplot2：保存 pdf 时的条宽相同

问题描述

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

我的代码在不保存为 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 企业版。我该如何解决这个问题？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）