在R中绘制多组点

Question

我想要绘制多组xy对.我希望每组xy对都通过一条线连接起来.换句话说,目标是使多个实验实例各自通过在一个图上绘制的线来近似.另外,我将如何对线条进行不同的着色？

绘图函数可以实现我想要的功能,但需要一组xy对: plot(x, y, ...)

这个功能可以采取多套或是否有其他功能？

Answer 1

要使用普通的plot命令执行此操作,我通常会创建一个绘图,然后使用该lines()函数添加更多行.

否则你可以使用lattice或ggplot2.这是一些数据:

df <- data.frame(a = runif(10), b = runif(10), c = runif(10), x = 1:10)

你可以使用xyplot()格子:

library(lattice)
xyplot(a + b + c ~ x, data = df, type = "l", auto.key=TRUE)

或者geom_line()在ggplot2中:

library(ggplot2)
ggplot(melt(df, id.vars="x"), aes(x, value, colour = variable,
        group = variable)) + geom_line() + theme_bw()

这是另一个例子,包括每对的点数(来自学习者博客上的这篇文章):

library(lattice)
dotplot(VADeaths, type = "o", auto.key = list(lines = TRUE,
     space = "right"), main = "Death Rates in Virginia - 1940",
     xlab = "Rate (per 1000)")

使用ggplot2的相同情节:

library(ggplot2)
p <- ggplot(melt(VADeaths), aes(value, X1, colour = X2,
             group = X2))
p + geom_point() + geom_line() + xlab("Rate (per 1000)") +
         ylab("") + opts(title = "Death Rates in Virginia - 1940")