ggplot中按比例大小的箭头

Question

在ggplot2的seals example上构建，我正在尝试更改箭头的粗细，以便它们的整体大小更好地反映数据变量。我可以指定长度和厚度，但不知道如何改变箭头的大小。非常感谢任何建议。

require(ggplot2)
require(grid)

d = seals[sample(1:nrow(seals), 100),]
d$size = sqrt(sqrt(d$delta_long^2 + d$delta_lat^2))

ggplot(d, aes(x = long, y = lat, size = size)) +
  geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat), arrow = arrow(length = unit(0.1,"cm")))

---

修改

解决方案代码：

ggplot(d, aes(x = long, y = lat, size = size)) +
  geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat), 
               arrow = arrow(length = unit(d$size/3, "cm"), type='closed')) +
  scale_size(range = c(0, 2))

Answer 1

我不能说这是你问题的完整解决方案，但至少它可以是一个开始。

ggplot(d, aes(x = long, y = lat, size = size)) +
  geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat), 
              arrow = arrow(length = unit(0.7, "cm"))) + 
  scale_size(range = c(1, 2))

我的变化很小：更大的箭头和大小比例。如果您的目标是避免过度绘图，则尺寸比例的上限是最重要的。

从现在开始，只留下箭头可能是个好主意，因为当尺寸很小时，线条不可见。这是一个肮脏的黑客：

 ggplot(d, aes(x = long, y = lat, size = size)) +
   geom_segment(aes(xend = long + delta_long/100, yend = lat + delta_lat/100), 
               arrow = arrow(length = unit(0.7,"cm"))) + 
   scale_size(range = c(1, 2))

当然，保持大小值之间的适当视觉关系至关重要！否则，您的情节可能会产生误导。但这取决于数据，所以我不能给你进一步的建议。对不起，如果这是一个明显的观点。

UPD：结果，unit（）函数被矢量化，所以它来救援！

ggplot(d, aes(x = long, y = lat, size = size)) +
  geom_segment(aes(xend = long + delta_long/100, yend = lat + delta_lat/100), 
              arrow = arrow(length = unit(d$size * 5,"cm"))) + 
  scale_size(range = c(1, 2))