《R数据可视化手册》学习笔记7---注释（4）线段和箭头

写在前面。

进行可视化时，仅仅展示数据是不够的，还有各种各样的其他信息可以呈现出来帮助解读数据。

这篇文章说明一些可以向主题图形添加的独立的图形元素或者文本元素，以帮助更好地呈现信息。

线段和箭头

如何向图形添加线段和箭头？

示例数据climate数据集：

> str(climate)
'data.frame':   499 obs. of  6 variables:
 $ Source    : chr  "Berkeley" "Berkeley" "Berkeley" "Berkeley" ...
 $ Year      : num  1800 1801 1802 1803 1804 ...
 $ Anomaly1y : num  NA NA NA NA NA NA NA NA NA NA ...
 $ Anomaly5y : num  NA NA NA NA NA NA NA NA NA NA ...
 $ Anomaly10y: num  -0.435 -0.453 -0.46 -0.493 -0.536 -0.541 -0.59 -0.695 -0.763 -0.818 ...
 $ Unc10y    : num  0.505 0.493 0.486 0.489 0.483 0.475 0.468 0.461 0.453 0.451 ...

• 添加线段

使用annotate("segment")，并指定线段的横竖方向的界限：

p <- ggplot(data = subset(climate, Source == "Berkeley"), aes(x =Year, y = Anomaly10y))+
  geom_line()+
  annotate("segment", x = 1950, xend = 1980, y = -0.25, yend = -0.25)
p

[图片上传失败...(image-7d422e-1697352291886)]

• 添加箭头

可以使用grid包的arrow函数向线段两端添加箭头或者平头。

  p <- ggplot(data = subset(climate, Source == "Berkeley"), aes(x =Year, y = Anomaly10y))+
    geom_line()
p +annotate("segment", x = 1850, xend = 1820, y = -0.8, yend = -0.95,
            colour = "blue", size= 2, arrow=arrow())

添加箭头效果如下：

[图片上传失败...(image-4331ba-1697352291886)]

添加有尾线段效果如下：

p +annotate("segment", x = 1950, xend = 1980, y = -0.25, yend = -0.25,
             arrow=arrow(ends = "both", angle = 90, length = unit(0.2,"cm")))

[图片上传失败...(image-c721c3-1697352291886)]