在图中标记线条

Question

我正在使用绘制两条线

plot(x, y, type = "l", color = "red")

和

points(x2, y2, type = "l", color = "blue")

我希望能够在每一行旁边添加标签(而不是图例).我很确定可以在http://directlabels.r-forge.r-project.org/中使用该软件包.

然而,我找不到一种简单的方法.

Answer 1

您可以使用locator()内text()点到点击方法.

y <- rnorm(100, 10)
y2 <- rnorm(100, 20)
x <- 1:100

plot(x, y, type = "n", ylim = c(0, 40), xlim = c(0, 120))
lines(x, y)
lines(x, y2, col = "red")
text(locator(), labels = c("red line", "black line)"))

Answer 2

您也可以只使标签坐标成为数据的函数,而不是使用locator().例如,在罗马的演示中捎带:

text(x=rep(max(x)+3, 2), y=c(mean(y), mean(y2)), pos=4, labels=c('black line', 'red line'))

Answer 3

locator()是一种通过单击现有图形来获取坐标的交互式方法。

以下是有关如何locator()查找图表上标签的正确坐标的说明。

第 1 步：绘制图表：

plot(1:100)

步骤 2：在控制台中输入以下内容：

coords <- locator()

步骤 3：在图上单击一次，然后单击Stop .. Stop Locator图的左上角（这会将控制权返回到 R 控制台）。

第四步：查找返回的坐标：

coords
$x
[1] 30.26407
$y
[1] 81.66773

第 5 步：现在，您可以使用这些坐标向现有绘图添加标签：

text(x=30.26407, y=81.66773,label="This label appears where I clicked")

或者

text(x=coords$x, y=coords$y,label="This label appears where I clicked")

结果如下：

您会注意到标签的中心位置出现在您单击的位置。如果标签在您单击的位置显示其第一个字符，那就更好了。要找到正确的参数，请参阅 的帮助text，并添加参数pos=4：

text(x=30,y=80,pos=4,label = "hello")

笔记：

• 标签与图表上的点显示在相同的 x,y 坐标中。因此，x=100,y=0将出现在右下角，而x=0,y=100将出现在左上角。
• 还可以用于legend()绘制标签（这会在标签周围绘制一个框，通常看起来更好）。
• 请参阅如何更改 R 图中图例中的字体系列？了解如何更改图例中的字体，以及如何将图例自动放置在图表的右上角。
• 我建议您熟悉ggplot2而不是绘图，因为这ggplot2是生成图表的黄金标准。