※ 引述《ntme (one shot one kill)》之铭言： : [问题类型]: : 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来) : [软体熟悉度]: : 入门(写过其他程式，只是对语法不熟悉) : [问题叙述]: : 在ggplot2套件里面用geom_abline以不同的斜率跟截距画出了两条不同的线 : 一条是红线，一条是黑线 如图：http://i.imgur.com/vK2Yt5j.png : 现在想在画面右边提供线的讯息，像是红线是Line 1，黑线是Line2 : 但不熟ggplot套件，不知有无方面的指令可用呢？ : [程式范例]: : library(ggplot2) : data(iris) : iris.plot <- ggplot(data=iris, aes(x = Sepal.Length, : y = Sepal.Width, : color = Species)) + geom_point(size=3) : iris.plot + geom_abline(intercept = -0.2, slope = 0.6, colour="red") + : geom_abline(intercept = -0.3, slope = 0.7) lattice 画法 library(lattice) library(latticeExtra) library(grid) xyplot(Sepal.Width ~ Sepal.Length, groups = Species, data = iris, cex = 1.5, key = list(space = "top", columns = 3, text = list(levels(iris$Species)), points = list(cex = 1.5, pch=16, col=ggplot2like(n = 3)$superpose.symbol$col)), par.settings = ggplot2like(n = 3), lattice.options = ggplot2like.opts()) + layer(panel.abline(a = -0.2,b = 0.7, col=1, lwd=2)) + layer(panel.abline(a = -0.3,b = 0.6, col=2, lwd=2)) draw.key(list(columns = 2, text = list(paste("Line", 1:2)), lines = list(lwd=2,col=1:2)), draw = TRUE, vp = viewport(.5, .93)) preview: http://i.imgur.com/rhFrfbC.png?1 好读的程式码：http://pastebin.com/1eBturzh --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.205.27.107 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1431571305.A.444.html ※ 编辑: celestialgod (123.205.27.107), 05/14/2015 10:52:32