1
我试图比较两个标量字段,并且想要使用等值线将它们的值用直接标签标记在同一个绘图中。 问题是,我无法在同一个地块中使用两个直接标签。使用direct.labels标记两个轮廓
实施例:
library(ggplot2)
library(data.table)
library(directlabels)
grid <- expand.grid(lon = seq(0, 360, by = 2), lat = seq(-90, 0, by = 2))
grid$z <- with(grid, cos(lat*pi/180))
grid$z2 <- with(grid, sin(lat*pi/180))
grid.long <- melt(grid, id.vars = c("lon", "lat"))
# Manually adding two geom_dl's
ggplot(grid, aes(lon, lat)) +
geom_contour(aes(z = z), color = "black") +
geom_contour(aes(z = z2), color = "red") +
geom_dl(aes(z = z2, label = ..level..), stat = "contour", method = "top.pieces", color = "red") +
geom_dl(aes(z = z, label = ..level..), stat = "contour", method = "top.pieces", color = "black")
只有一个变量被标记。
另一种方式:
ggplot(grid.long, aes(lon, lat)) +
geom_contour(aes(z = value, color = variable)) +
geom_dl(aes(z = value, label = ..level.., color = variable),
stat = "contour", method = "top.pieces")
任何解决方案?
谢谢!
我想这是一个有点可行的解决方法。尽管我对更复杂的数据集感到困惑,但其中两个数据集中的一个并不理想,当然,对于3个变量却无法完成。 谢谢! –