ggplot填充点图，但组为未填充

Question

我想绘制一个点图，该点图分组为非彩色图形，但填充为彩色图形。要生成我使用过的彩色：

样本数据集：

data <- data.frame(estado1 = c('APLV','APLV','APLV','APLV','APLV','NO APLV','APLV','NO APLV','NO APLV','APLV','NO APLV','APLV','APLV','APLV','APLV','APLV','APLV','APLV','NO APLV','APLV'), combined_ige = c(3.6,2.84,1.2,14.33,0,0,0,0,0.07,2,0,0.3,0.11,0,0,1.31,0,0,0,0.19), sxtypes = c('skin_resp','skin','skin','skin_dig','dig','dig_resp','skin_dig','dig','dig','skin_resp','skin_dig_resp','dig','dig','dig_resp','skin_dig_resp','skin','dig','skin_dig_resp','resp','skin_dig'))

代码

ggplot(data, aes(x=estado1, y=combined_ige, fill= sxtypes)) + 
  geom_dotplot(binaxis='y', stackdir='center',
               stackratio=1.5, dotsize=1.2, alpha=0.6) +
  geom_hline(yintercept = (0.35), linetype="dashed") +
  geom_hline(yintercept = (0.77), linetype="dashed", col="red") +
  xlab("Status group") +
  ggtitle("IgE específicas combinadas") +
  scale_y_log10(labels = function(y) format(y, scientific = F))

当我使用“ fill = sxtypes”来给点着色时，它们会以相互重叠的层分组。我希望它们在像第二张图一样着色时，保持与未着色图上相同的位置。