将geom_point覆盖到geom_bar。如何对齐点和条？

Question

我已经尝试了足够长的时间，我只想问...这似乎很基本，可能以前曾有人问过，但是我找不到适合我特定情况的任何帖子。

真的很简单，我有2个数据帧，它们具有相同的分组变量，但我要绘制在一起的数据不同，一个是条形，另一个是顶部的点。

在此示例中，我使用mtcars。我将ID变量用作汽车模型，然后在两个数据框中使用两个分组变量carb和cyl。

一个数据帧的每个max disp和carb的值为cyl，因此它更短（我为所有carb-{{1} }组合）；我想将其绘制为条形图。

另一个数据框每个模型具有单独的cyl值，我想将其作为点绘制在顶部。

这是我的方法，但是生成的图确实是错误的，需要在那里调整颜色和点的位置...理想情况下，我希望所有点都为黑色，但是如果出现以下情况，我似乎只能将它们按组分开我做disp。对于定位，它位于函数内部，因此应适用于数据帧分组变量中的任意数量的级别。

color

Answer 1

简单的问题是点的着色。要获得黑点，只需将cyl映射到group图层中的geom_point美观度上即可。棘手的部分是定位。为了正确确定点的位置，您必须填写mydf2以包括cyl和carb的所有组合，就像您对mydf1所做的那样。为此，我使用tidyr::complete。试试这个：

library(ggplot2)

mtcars$model <- rownames(mtcars)
#head(mtcars)

mtcars$cyl <- as.factor(as.character(mtcars$cyl))
mtcars$carb <- as.factor(as.character(mtcars$carb))
#summary(mtcars)
mydf1 <- as.data.frame(data.table::data.table(mtcars)[, list(max=max(disp)), by=list(cyl=cyl, carb=carb)])

mydf2 <- mtcars[,c(2,3,11,12)]

zerodf <- expand.grid(cyl=unique(mtcars$cyl), carb=unique(mtcars$carb))
mydf1 <- merge(mydf1, zerodf, all=TRUE)
mydf1$max[which(is.na(mydf1$max))] <- 0

mydf2 <- tidyr::complete(mydf2, carb, cyl)

ggplot(data = NULL, aes(group = cyl)) +
  geom_bar(data=mydf1, aes(carb, max, fill=cyl), position="dodge", stat="identity") +
  scale_fill_manual(values=c("blue","red","grey")) +
  geom_point(data=mydf2, aes(carb, disp, group=cyl), position = position_dodge(width = 0.9), shape=3, size=5, show.legend=FALSE)
#> Warning: Removed 9 rows containing missing values (geom_point).