r - 将自定义标签添加到 ggplot geom_contour

Question

我正在尝试制作一个等高线图，其中包含指定的断点和断点处的标签。我尝试使用 direct.label 或 geom_dl 在中断处添加标签，但失败了。

dat <- melt(volcano)
brks <- c(100, 120, 140, 160)
g <- ggplot(dat, aes(x = Var1, y = Var2, z = value)) +
  geom_contour(colour = 'black', breaks = brks)
g

那部分工作正常，但是当我尝试添加标签时:

direct.label(g, list("bottom.pieces", colour='black'))

我收到错误:Need color or fill aesthetic to infer default direct labels.

而且，当我尝试时:

g + geom_dl(aes(label = brks),  method = 'bottom.pieces')

我得到:错误:美学必须是长度 1 或与数据相同 (5307):标签、x、y、z

有什么建议吗？

Answer 1

我认为我已经找到了使用 geom_dl 显示标签的解决方法:

library(lattice)
library(directlabels)
dat <- melt(volcano)
brks <- c(100, 120, 140, 160)
g <- ggplot(dat, aes(x = Var1, y = Var2, z = value)) +
     geom_contour(colour='black', breaks = brks)+
     geom_dl(aes(label=..level..), method="bottom.pieces", 
             stat="contour",breaks = brks)
g

只需在 geom_dl 中指明您要标记包含在中断 (breaks= brks)，所以它知道要显示的标签。