在ggplot中绘制图例

时间:2017-12-21 10:14:45

标签: r ggplot2

我使用ggplot2生成了一个情节,但是我在创建自定义图例时遇到了困难。我的情节看起来像这样: enter image description here

黑色部分是由ggplot创建的,而红色部分是我需要添加的部分。点旁边的矩形实际上是一个标签,但我需要标签轮廓(一个矩形)作为一部分传说我已经提到了相关的问题,但我没有看到类似的问题,因为我认为这个问题在图例中比“映射”更“吸引”。

有人可以帮我吗?由于我有许多图表,我宁愿用R来解决问题而不是用图像编辑器手动编辑图表。谢谢!

修改 根据要求,可重复的样品。很抱歉没有提前添加!

library(ggrepel)
dput(df)
structure(list(ID = 1L, Date = structure(16259, class = "Date"), 
    Primary = 0.009, Secondary = structure(1L, .Label = "Label ABC", class = "factor")), row.names = c(NA, 
-1L), class = "data.frame", .Names = c("ID", "Date", "Primary", 
"Secondary"))

ggplot(df, aes(Date, Primary)) + geom_point(aes(shape=ifelse(Primary>0, "Detected", "Not Detected"))) + geom_label_repel(aes(label=Secondary)) + scale_shape_manual(values=c("Not Detected"=1,"Detected"=19),name="Primary") + theme_bw()

1 个答案:

答案 0 :(得分:2)

您的数据:

df <- data.frame(stringsAsFactors=FALSE,
           ID = c(1L, 2L),
           Date = c("2014-07-08", "2017-03-12"),
           Primary = c(0.009, -0.05),
           Secondary = c("Label ABC", "Label BCD")
)

这是原生ggplot解决方案。基本上每个点后面都有一个隐藏的矩形,它是图例中显示的那个。您需要将其放在不同的aestetic上,例如color,而点由shape区分,以便不将其与点组合成一个图例项。

library(ggrepel)


df %>% 
  mutate(isDetected=ifelse(Primary>0, "Detected", "Not Detected")) %>% 
  ggplot(aes(Date, Primary)) + 
    geom_rect(aes(xmin=Date, xmax=Date, ymin=Primary, ymax=Primary, color=isDetected), 
              fill="white")+
    geom_point(aes(shape=isDetected), size=3) + 
    geom_label_repel(aes(label=Secondary, color=isDetected), show.legend = FALSE) + 
    scale_shape_manual(values=c("Not Detected"=1,"Detected"=19))+
    labs(shape="Primary",
        color="Secondary")+
    theme_bw()

enter image description here