前言
在上一节中[[77-R可视化13-多个ggplot图象映射实现以假乱真的dodge+stack效果]],我们提到了这张图:
下面是本来要复现的图:
有同学给我说了,这个图其实是有它的道理的,它其实显示的是...你明明有更好的选择,比如将另一个对比分组调整到坐标轴的负轴。...代码实现
非常简单,假数据和绘图我一并写了:
# fake data
a1 <- data.frame(
counts = c(-53, -40, -59, -39), #将a1显示在x轴下方...type1 = c(rep("NK",2), rep("TC",2)),
type2 = rep(c("YM", "YF"), 2)
)
a1$counts2 type2 = rep(c("OM", "OF"), 2)
)
ggplot() +
geom_col(data = a2, aes(type1, counts, fill = type2)