Inserir setas e nomes num gráfico lineplot.CI

Boa noite.
Na aula 5.2 foi ensinado o gráfico lineplot.CI (para dois tratamentos) e no webinário 2 foi explicado como colocar setas num gráfico plot com linhas e escrever um nome. Tentei fazer isso para o lineplot.CI, mas não consegui acertar o local da seta nem inseriri o nome. Os meus dados são serie temporal (dia 1, 8, 15, 23, 29, 36, 43, 49 e 56), com variável de valores de amônia de 4 réplicas para tratamento controle e para tratamento experimental.
A impressão que dá é de que falta alguma informação para indicar que tem dois tratamentos na intersecção entre x e y (dados$tratamento). Como faço para incluir setas e nomes nns semanas 43, 49 e 56 no lineplot.CI?

setwd("~/R")
dados<-read.table("amonia.txt",header=T)
library(sciplot)
lineplot.CI(dados$dia, dados$amonia, dados$tratatmento, xlab="Day",
           ylab="Ammonia", col = c("orange", "limegreen"), lwd=2, ylim=c(0,6))
abline(h=0.03, col="red", lty=2, lwd=2))
arrows (dados$dia[-8], dados$amonia[-8]+4, dados$dia[-8], dados$amonia[-8]+5, length=0.1, col="blue")
text (x[1], y[1]+3, ">5")

Já tentei mudar a localização mudando os numeros em arrows mas não adiantou. Parece que falta alguma referência em relação a dados$tratamento
Nesse caso a seta aparece, mas ficam várias setas sobrepostas. E não ficam no local que quero. É para ficar apontando para cima nos dias 43, 49 e 56 na parte mais superior da tela.

Olá, boa tarde!

Revivi esse tópico pois queria saber como colocar rótulo em dados de um gráfico do lineplot.
Meus dados são o número de distúrbios em 4 restingas ao longo dos anos. Construí o gráfico com os anos sendo o eixo x, o n° de distúrbios o eixo y, e a cor de cada linha está referenciada na legenda de acordo com a restinga correspondente.
No entanto, gostaria de colocar o valor do número de distúrbio do lado de cada ponto, para facilitar a compreensão.

Por enquanto, o comando está assim:
lineplot.CI(disturb$Ano, disturb$Disturbio, disturb$Restinga, las = 1, xlab = "Ano", ylab = "N° elementos de distúrbio", col= c("red", "green", "orange", "purple"), lty=c(1,2,2,2), ylim=c(0,12)).

Como faço para acrescentar esses rótulos com os valores?
Obrigada