非常感谢！非常有用。

1.这个问题属于tex的基本语法
2.如果输出的文字超出图形范围，可以更改文字输出的位置

呵呵，能具体说一下，如何才能更改文字的输出位置呢？请赐教。能具体到程序最好，就像楼上的那位高手。谢谢！
比如在plot中，cex.lab=4,文字太大了，怎么改变输出位置？

和坐标轴相关的可以参考函数axis
和图形区相关的可以参考函数text

tex的基本语法？

这个上标在R中如何画出来的？

Try:

您好，好像做不出像12楼的效果图，以下是一个代码
x=c(1,1,2,2,1,1,2)
y=c(1,2,2,5,5,3,3)
plot(x,y,main="X vs Y", xlab="X", ylab="Y")
lines(x,y,col="black",lty="dotted")
a=c('x^(1)','x2','x3','x4','x5','x6','x7')
b=c('y1','y2','y3','y4','y5','y6','y7')
text(x,y,labels=paste("(",a,",",b,")"),pos=1,cex=0.7)

Is this what you expect?

Thanks
谢谢您的答复
这个图效果很好，我想请教下，有没有办法修改为更普遍的，
意思就是如12楼的图例，上标不一定都是同一个数字的，
您能就几个点举个例子吗？或许这个不能用循环，但是只要能
达到目的即可。

If you are about to write a book about Bayesian stats I'm gonna ask for a free copy ...

哈哈，谢谢zhangyangsmith
Perfect

可是还需要对这个图形进行修改一下，比如
第一点的上下坐标都是(1) 、(1)，
第二点的横坐标没有改变，只是纵坐标改变，所以我期望
上标为(1)、(2)。
同样，第三点的横坐标改变了，纵坐标没有改变，所以为(2)、(2)
其他同理。

ps：其实可以针对具体情况修改您程序中的itr数据框，哈哈。
只是能直接表达更好。
还有，我最后两点取的不妥。删除了一个点。

x=c(1,1,2,2,1,1)
y=c(1,2,2,5,5,3)
# Assign x and y as above
itr <- data.frame(x=c(1,1,2,2,3,3),y=c(1,2,2,3,3,4))
plot(x,y,main="X vs Y", xlab="X", ylab="Y", xlim = c(1, 2.2), ylim = c(0, 6))
lines(x,y,col="black",lty="dotted")
sapply(1:length(x), function(i) text(x, y, labels = bquote(paste("(", X[1]^(.(itr$x)), ", ", X[2]^(.(itr$y)), ")", sep = "")), adj = c(0, 0)))


itr可以直接如您开始写的用公式表示吗。