ggplot geom_point绘制两个类别变量并填写缺失

Question

您好，假设我有以下数据框，并希望生成下面的图。但是，我可以为缺失值简单地绘制它：s2，b1是否可以添加其他颜色的圆？基本上，我想在图中没有黑色的地方填充一个灰色点。如果说有5个样本，这会很快变得很复杂。

temp = data.frame ( sample=c("s1","s1","s2"), drug=c("a","b","a"))
ggplot(data=temp, aes(x=sample, y= factor ( drug) ) )+ 
    geom_point(size=20) 

Answer 1

您可以尝试table

ggplot(data=as.data.frame(table(temp)), aes(x=sample, y= factor ( drug) ) )+ 
  geom_point(aes(color=as.factor(Freq)), size = 20) +
  scale_color_manual(values = c("grey70", "black"))