如何在同一个 R 散点图中绘制多个系列？

Question

我经常在 Excel 中使用散点图将一个时间序列与另一个时间序列可视化，但由于最近的数据更相关，我对最近的时间段使用不同的亮点：

在这种情况下，月、周和今天的图只是同一时间序列的不同（最近）切片，因此该图表中基本上有四个叠加图。我怎样才能在 R 中做同样的事情？我到目前为止：

但我想复制我在 excel 中的内容。如何在 R 中向同一图表添加新图？

或者我什至可以更进一步，使用 R 图中的 col 属性来不断增加颜色直到今天的值，从而避免这些谨慎的步骤？我该怎么做？

Answer 1

您可以使用较低级别的绘图功能points() 将点添加到已经存在的绘图中。它的工作方式与您通过plot() 创建散点图的方式完全相同，只是它向当前使用的图添加点。

例如：

plot(1:10)
points(10:1,col="red")

编辑：

按照 Chi 的建议，使用 rgb() 进行颜色处理的一种方法。我喜欢创建一个值在 0 到 1 之间的虚拟变量，并将其用作颜色的标量。例如：

x <- rnorm(100)
y <- 0.5*x + rnorm(100)
z <- 0.5*y + rnorm(100)

dum <- (z - min(z)) / (max(z) - min(z))

plot(x,y,col=rgb(1-dum*0.4,1-dum*0.8,1-dum*0.8),pch=16)

这会使点更红，因为它们具有更高的 z 值。当然你可以把min(z)和max(z)改成你感兴趣的范围。

Answer 2

这是一个使用ggplot 进行操作的框架示例：

library(ggplot2)

day <- 1:100
dat <- data.frame(
  day=day,
  x = day+(1+rnorm(100, 0, 10)),
  y = 5 + day+(1+rnorm(100, 0, 10)),
  when = cut(day, 5)
)

ggplot(dat, aes(x=x, y=y, colour=when)) + geom_point()

对于平滑的颜色：

ggplot(dat, aes(x=x, y=y, colour=day)) + geom_point() + 
    scale_colour_gradient(low="pink", high="red")