问题描述
我已经尝试了足够长的时间，我只想问...这似乎很基本，可能以前曾有人问过，但是我找不到适合我特定情况的任何帖子。
真的很简单，我有2个数据帧，它们具有相同的分组变量，但我要绘制在一起的数据不同，一个是条形，另一个是顶部的点。
在此示例中，我使用mtcars。我将ID变量用作汽车模型，然后在两个数据框中使用两个分组变量carb和cyl。
一个数据帧的每个max disp和carb的值为cyl，因此它更短（我为所有carb-{{1} }组合）；我想将其绘制为条形图。
另一个数据框每个模型具有单独的cyl值，我想将其作为点绘制在顶部。
这是我的方法，但是生成的图确实是错误的，需要在那里调整颜色和点的位置...理想情况下，我希望所有点都为黑色，但是如果出现以下情况，我似乎只能将它们按组分开我做disp。对于定位，它位于函数内部，因此应适用于数据帧分组变量中的任意数量的级别。
color 
解决方法
简单的问题是点的着色。要获得黑点，只需将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,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).
