temp <- locator(1) # 在图表上,你喜欢的地方点击一下,文字就出来了 text(temp,"Use the text() with or without the locator() function") # 用下面的Corner_text函数添加文字(自己编写的函数):Corner_text<- function(text, location="topright"){ legend(location,legend=text, bty ="n", pch=NA)...