关于R 画图的问题

这里有个关于 R  画图的问题，向大牛请教一下。

这本书里的http://cran.r-project.org/doc/contrib/usingR.pdf

P38 第 3.9节 第2题。P95有答案，但是不全。
. Plot the graph of brain weight (brain) versus body weight (body) for the data set Animals from the

MASS package. Label the axes appropriately. Alongside on the same graphics page, log(brain weight) versus

log(body weight). Use the row labels to label the points with the three largest body weight values. Label the

axes in untransformed units. [To access this data frame, specify library(MASS)]

我写了以下codes， 但是不能完全解决那个label three largest body weight values. 我试过用identify 但是一用identify(), R总死机.  不知如何解答，所以特此悬赏答案。 只有完全解答的才算最佳，别的回答会视情况奖励。 还有就是画完图后，怎么把它们加入到text file .txt 里？

library(MASS)
attach(Animals)
print(Animals)
plot(body, brain, pch=15, xlab="Body Weight(kg)", ylab="Brain Weight(g)")
row.names(Animals) <- c("Dipliodocus", "Triceratops", "Brachiosaurus")
text(x=body, y=brain, labels=row.names(Animals), pos=4)
detach(Animals)

attach(Animals)
print(Animals)
plot(log(body), log(brain), pch=15, xlab="Log of Body Weight(kg)", ylab="Log of Brain Weight(g)")
row.names(Animals) <- c("Dipliodocus", "Triceratops", "Brachiosaurus")
text(x=body, y=brain, labels=row.names(Animals), pos=4)
detach(Animals)

plot完之后用
identify(x = body, y = brain, labels = rownames(Animals))
然后用鼠标去点body weight最大的那三个点，然后按Esc就好了

qoiqpwqr 发表于 2013-9-18 13:32
plot完之后用
identify(x = body, y = brain, labels = rownames(Animals))
然后用鼠标去点body weight最 ...

那个text 貌似不能帮我解决问题， 你说的那个我试过了，可以用拉，我当时没有按esc 所以感觉R 死机了。 但是我要把结果放到text file里才行。应该可以用latex 完成，具体怎么操作啊？

还以为版主是学经济的 咋还编程了呢
顶一下

你想把什么存到txt文件里？

qoiqpwqr 发表于 2013-9-19 20:57
你想把什么存到txt文件里？

Use latex to save plots in txt.

可以先把图像存为pdf文件，然后放到latex里面。不知道是不是你想要的。

pdf("1.pdf")
.....
dev.off()