r - 使用一系列和不一致的数据控制 ggplot2 图中的列宽

Question

在我为下面的 MWE 创建的人工数据中，我试图展示我在 R 中创建的脚本的本质。从这段代码生成的图表可以看出，在我的一个条件下，我没有完成系列的“否”值。

有人告诉我，除非我可以制作最后一列，否则遗憾的是没有像图表中其他列那样细的额外系列，否则我将不允许使用这些图表。遗憾的是，这是一个问题，因为我编写的脚本会同时生成数百个图表，包括统计数据、显着性指标、传播误差线和智能 y 轴调整(这些功能当然不存在于 MWE 中)。

一些其他评论:

• 不能保证此异常列位于图表的末尾...因此手动调整以强制系列更改颜色并反转顺序以在右侧留下额外空间是不可靠的.

• 我尝试将数据模拟为常量 0，以便系列“存在”但不可见，但正如预期的那样，系列 c(No,Yes) 的顺序使其跳过一个空格这也是 Not Acceptable 。这就是这里回答同一个问题的方式，但遗憾的是，由于我的限制，它对我不起作用:Consistent width for geom_bar in the event of missing data和 Include space for missing factor level used in fill aesthetics in geom_boxplot

• 我也尝试过对分面执行此操作，但出现了许多问题，包括换行符以及我添加到 x 轴的注释中的错误。

MWE:

library(ggplot2)

print("Program started")

x <- c("1","2","3","1","2","3","4")
s <- c("No","No","No","Yes","Yes","Yes","Yes")
y <- c(1,2,3,2,3,4,5)
df <- as.data.frame(cbind(x,s,y))

print(df)

gg <- ggplot(data = df, aes_string(x="x", y="y", weight="y", ymin=paste0("y"), ymax=paste0("y"), fill="s"));
dodge_str <- position_dodge(width = NULL, height = NULL);
gg <- gg + geom_bar(position=dodge_str, stat="identity", size=.3, colour = "black")

print(gg)

print("Program complete - a graph should be visible.")

Answer 1

是的，我知道发生了什么:你需要格外小心，因为因子是因子，数字是数字。就我而言，使用 stringsAsFactors = FALSE 我有

str(df)
'data.frame':   7 obs. of  3 variables:
 $ x: chr  "1" "2" "3" "1" ...
 $ s: chr  "No" "No" "No" "Yes" ...
 $ y: chr  "1" "2" "3" "2" ...

dput(df)
structure(list(x = c("1", "2", "3", "1", "2", "3", "4"), s = c("No", 
"No", "No", "Yes", "Yes", "Yes", "Yes"), y = c("1", "2", "3", 
"2", "3", "4", "5")), .Names = c("x", "s", "y"), row.names = c(NA, 
-7L), class = "data.frame")

由于 cbind-ing(原文如此!)，没有因数和数字变成字符。让我们有另一个数据框:

dff <- data.frame(x = factor(df$x), s = factor(df$s), y = as.numeric(df$y))

添加“虚拟”行(对于您的示例，请手动查看链接问题中的 expand.grid 版本，了解如何自动执行此操作):

dff <- rbind(dff, c(4, "No", NA))

绘图(我删除了额外的 aes):

ggplot(data = df3, aes(x, y, fill=s)) + 
  geom_bar(position=dodge_str, stat="identity", size=.3, colour="black")