R：プロットへのテキストの追加が機能しない

Question

次の問題があります。私は講義用のプロットを作るための簡単なコードを書いたが、何とか私のプロットにテキストを追加しない。警告もエラーもなく、インターネットで検索したところ、これまで何の解決策も見つけられていなかったと思った。 ご協力いただきありがとうございます。コードは以下のとおりです。短い注意：プロットの他のものは私が望むように動作しますが、それは行方不明のテキスト行です。

編集：ここでの完全なコードは、あなたのコードを実行

libraries = c("dygraphs", "quantmod", "stringr", "ggplot2") 
lapply(libraries, function(x) if (!(x %in% installed.packages())) { install.packages(x) }) 
lapply(libraries, library, quietly = TRUE, character.only = TRUE) 
tickers = c("AMZN","GOOG", "MSFT") 

end = Sys.Date() 

getSymbols(tickers, from = "2017-10-01", to = end) 

a = seq(1, 51, by =1) 

time = index(AMZN.1) 
time = time[a] 
time = format(time, format = "%d.%m.") 
for (i in 1:3){ 
    assign(paste0(tickers[i], ".1"), Cl(get(tickers[i]))) 
} 
AMZN.2 = as.numeric(AMZN.1) 
GOOG.2 = as.numeric(GOOG.1) 
MSFT.2 = as.numeric(MSFT.1) 


abc = as.numeric(match("27.10.", time)) 

plot(AMZN.2, type = "l", xlab = "time", ylab = "price (USD, NASDAQ)", xaxs = "i", xaxt = "n", main = "Share price Amazon Inc. (Oct 17 - Dec 17)", sub = "qrtly results announced at oct 26th") 
axis(1,a, labels = time) #a is a numeric vector, time a character vector 
abline(v = abc, col = "red", lty = "dotted") #abc is a number (=20) 
abline(h = 972.43, col = "red", lty = "dotted") 
abline(h = 1100.95, col = "red", lty = "dotted") 
text(abc, "my text here", col = "red", srt = 90) #abc see above 

Answer 1

あり、問題はABCがx座標を提供することであるように私には見えますが、y座標が提供されていません。単にxとyの引数を

text(x=abc, y=1000, "my text here", col = "red", srt = 90) 

というように指定すると、私の理論に合っているようです。