分组条形图（Ml 精度）减小组和边界之间的大小/填充

Question

在我的分组条形图的可重现示例下方。我正在为组之间的空间/填充而苦苦挣扎。我已经在 stackoverflow 上找到了一些问题，例如 this 和 here。
我还尝试将geom_bar(position= .. 参数设置为"dodge" 或dodge_position(0.5) 以及我的条的宽度。但是我不想再增加我的栏的宽度。是否有任何解决方案，例如更改离散 x 轴的大小以减少图 1 中的标记空间？ 更新： 减少了代码，使其对于最小的可重现示例更加精简。问题依旧

library(ggplot2)
library(ggthemes)
library(dplyr)

algorithm <- c(rep("0_DT",2),rep("1_RF",2),rep("2_MLP",2))
target <- rep(c("Some Data","Some Other Data"),3)
value <- runif(6,85,95) # Simulated Accuracies
CI_lower  <- value - 5
CI_upper  <- value + 5
data <- data.frame(target,algorithm,value,CI_lower,CI_upper)
ggplot(data, aes(fill=algorithm, y=value, x=target)) +
  geom_bar(position=position_dodge(0.75), stat="identity",  width = 0.65)+ theme_classic()+
  scale_fill_manual("Algorithm",
                    values = alpha(c("0_DT" = "#20639B", "1_RF" = "#3CAEA3", "2_MLP" = "#F6D55C"),0.8),
                    labels=c("DT","RF","MLP"))+
  scale_y_continuous("Accuracy in %",limits = c(0,100),oob = rescale_none,
                     # breaks= sort(c(seq(0,90,10),h)),
                     breaks= seq(0,100,10),
                     expand = c(0,0)) 

这是我的条形图图 1

Answer 1

我可能会误解你，但你应该能够通过调整 position 参数来获得你想要的结果：

ggplot(data, aes(fill = algorithm, y = value, x = target)) +
  geom_bar(position = position_dodge(1), stat = "identity",  width = 0.65) + 
  theme_classic() +
  scale_fill_manual("Algorithm", 
                    values = alpha(c("0_DT"  = "#20639B", 
                                     "1_RF"  = "#3CAEA3", 
                                     "2_MLP" = "#F6D55C"), 0.8),
                    labels = c("DT", "RF", "MLP")) +
  scale_y_continuous("Accuracy in %",limits = c(0, 100), oob = rescale_none,
                     breaks= seq(0, 100, 10),
                     expand = c(0, 0)) 

如果您想保持条的外观宽度但同时减少条之间的空间，那么您将不得不增加宽度但通过更改窗口尺寸或绘图边距来更改整个绘图的形状：

ggplot(data, aes(fill = algorithm, y = value, x = target)) +
  geom_bar(position = position_dodge(1), stat = "identity",  width = 0.8) + 
  theme_classic() +
  scale_fill_manual("Algorithm", 
                    values = alpha(c("0_DT"  = "#20639B", 
                                     "1_RF"  = "#3CAEA3", 
                                     "2_MLP" = "#F6D55C"), 0.8),
                    labels = c("DT", "RF", "MLP")) +
  scale_y_continuous("Accuracy in %",limits = c(0, 100), oob = rescale_none,
                     breaks= seq(0, 100, 10),
                     expand = c(0, 0)) +
 theme(plot.margin = unit(c(10, 50, 10, 50), "points"))

这可能不是您想要的，但position_dodge、width 和 plot.margin 的组合将为您提供所需的间距。

---

编辑

按照 OP 的 cmets，看起来最终的解决方案应该是这样的，由 width = 0.9、position_dodge(0.9) 和 plot.margin = unit(c(10, 50, 10, 50), "points")) 完成：