R ggplot barplot：躲避的条之间的间距不一致

Question

以下是一些数据：

df <- structure(list(condition = c("injected", "uninjected", "injected", 
                             "uninjected"), variable = c("var1", "var1", "var2", "var2"), 
               value = c(90, 0, 0, 0)), row.names = c(2L, 4L, 6L, 8L), class = "data.frame")

我的ggplot代码如下：

ploteg <- ggplot (data = df, aes (x = condition, y = value, fill = variable, colour = variable)) +
  geom_bar (stat = 'identity', width=0.6, position=position_dodge(width=0.7), size=1.1)

我的导出命令是：

ggsave('test.eps', plot=ploteg, width=65, height=90, unit='mm', bg='transparent')

或

ggsave('test.png', plot=ploteg, width=65, height=90, unit='mm', bg='transparent')

我在下面添加了png。现在比较未注入与注入中的条形间距。我想要的是间距保持一致。我不认为它应该更改值是0（所以不填充/仅轮廓）还是不同于0（填充+轮廓）的任何值。在R中似乎不会发生此问题（我将让您尝试使用上面的数据），仅在导出图形后才出现，这就是为什么我认为这可能是实际的导出故障。

在上下文中，我在条形图上添加了轮廓（使用colour=和size=），以便在值为0时可以看到“扁平”条形图。

编辑：我（有点）通过用非常低的值（例如0.3）替换0值来解决我的问题，并删除了所有轮廓。这会产生类似“扁平”条的效果，而不会出现宽度问题。虽然远非优雅。我想念什么吗？