仅显示ggplot图例

Question

我有一些数据点，我想在我的可视化中挑出一些点。我会这样做：

df = data.frame(
  x = 1:4, y = 1:4,
  special = c('normal', 'normal', 'normal', 'special')
)

ggplot(df) +
  geom_point(aes(x, y, color = special)) +
  scale_color_manual(values = c('red', 'black')) +
  labs(color = "") +
  theme_bw()

我的问题是黑点是非常自我解释的，不需要标签。我希望只是红色＆＃34;特别＆＃34;标签出现。有没有办法可以隐藏＆＃34;正常＆＃34;标签

Answer 1

如果您愿意使用除红色以外的任何颜色：

ggplot(df) +
    geom_point(aes(x, y, color = special)) + scale_size(guide = "none") + 
    scale_color_discrete(breaks="special") + labs(color = "") +
    theme_bw()

编辑：

cols <- c("normal" = "black","special" = "red")
gg <- ggplot(df) + geom_point(aes(x, y, color = special)) + labs(color = "") + theme_bw()
gg + scale_colour_manual(values = cols, limits = "special")