ggplot2中仅显示一个文本值

我试图将文本打印限制为条形图中的一个变量。我怎样才能只标记粉红色的条601, 215, 399, 456?

ggplot(df, aes(Var1, value, label=value, fill=Var2)) + 
  geom_bar(stat="identity", position=position_dodge(width=0.9)) + 
  geom_text(position=position_dodge(width=0.9))

structure(list(Var1 = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 
                                  4L, 1L, 2L, 3L, 4L), .Label = c("Zero", "1-30", "31-100", "101+"
                                  ), class = "factor"), Var2 = structure(c(1L, 1L, 1L, 1L, 2L, 
                                                                           2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c("Searches", "Contact", 
                                                                                                                   "Accepts"), class = "factor"), value = c(21567, 215, 399, 456, 
                                                                                                                                                            13638, 99, 205, 171, 5806, 41, 88, 78)), .Names = c("Var1", "Var2", 
                                                                                                                                                                                                                "value"), row.names = c(NA, -12L), class = "data.frame")

你可以用ifelse中的声明geom_text。首先，删除label=value来自主 ggplot2 调用。然后，在geom_text add an ifelse条件于label如下所示。另外，如果您要躲避多种美学，则可以通过创建躲避对象来节省一些打字时间。

pd = position_dodge(0.9)

ggplot(df, aes(Var1, value, fill=Var2)) + 
  geom_bar(stat="identity", position=pd) + 
  geom_text(position=pd, aes(label=ifelse(Var2=="Searches", value,"")))

如果您希望文本位于栏的中间而不是顶部，您可以执行以下操作：

geom_text(position=pd, aes(label=ifelse(Var2=="Searches", value, ""), y=0.5*value))

您实际上可以保留label声明（与ifelse在主 ggplot 调用中添加了条件），但因为label仅适用于geom_text (or geom_label），我通常将其与 geom 一起保存，而不是与主调用一起保存。