R 在折线图中打印数据标签

我有一个数据集

prices<- c(100,101,102,103,104,105,108,107,106,105,104,100,98,97,94,90,88,89,89,90,91,90,92,90,94,95,90,89,84,89,80,91,94,94,95,98,103,110,112,70,65)
date<- Sys.Date() -41:1
data<- xts(prices,date)
lineChart(data)

现在我得到了一张折线图，上面有一个数据标签。现在我需要的是一个图表，它只显示了几个数据点，在一个时期内，这些数据点是高的和低的。 我需要的图表应该是这样的

---

首先让我们准备数据

prices<- c(100,101,102,103,104,105,108,107,106,105,104,100,98,97,94,90,88,89,89,90,91,90,92,90,94,95,90,89,84,89,80,91,94,94,95,98,103,110,112,70,65)
date<- Sys.Date() -41:1
library(quantmod)
data<- xts(prices,date)
colnames(data) <- "price"

结果呢

---

首先让我们准备数据

prices<- c(100,101,102,103,104,105,108,107,106,105,104,100,98,97,94,90,88,89,89,90,91,90,92,90,94,95,90,89,84,89,80,91,94,94,95,98,103,110,112,70,65)
date<- Sys.Date() -41:1
library(quantmod)
data<- xts(prices,date)
colnames(data) <- "price"

结果呢

---

首先，您需要找到这些点。您使用的是xts对象，因此可以使用

quantmod

。尝试

库（quantmod）；我已经试过你的代码了。首先，你需要找到这些要点。您使用的是xts对象，因此可以使用
quantmod
。尝试
库（quantmod）；我已经试过你的代码了这真是太棒了。。。没有语言来表达我的感受这是一个非常有用的软件包。不要谢我，谢谢开发人员和维护人员。这真是太神奇了。。。没有语言来表达我的感受这是一个非常有用的软件包。不要谢我，谢谢开发人员和维护人员。
chart_Series(data)
data$n <- 1:nrow(data)
data$z <- ZigZag(data$price , change = 2 , percent = T)
add_TA(data$z , on = 1 ,col = 'red' , lty = 3 , type = 'l')
ex <- data[c(findPeaks(data$z) , findValleys(data$z)) - 1 , ]
add_TA(ex$z , on = 1 , col = 'red' , cex = 2 , type = 'p')

text(x = ex$n , y = (ex$z) * 0.99 , label = ex$price)