2

我有一个像

    A   B   C   D   E   F
2003-07 445 48  1126    512 277 677
2003-08 429 77  1179    583 320 675
2003-09 421 80  1077    488 288 627

我想在同一张图上绘制这些时间序列。我还希望 ABC 具有相同的颜色（蓝色），而其他颜色为黑色。所以我用

ts.plot(df,col=c(rep("blue",3),rep("black",3)))

这将创建正确的时间序列图，但颜色应用于错误的序列：ABC 是蓝色和黑色的混合，DE F 也是如此。（请注意，如果这是问题。）

ts.plot() 使用什么顺序？

编辑

df <- structure(list(X = structure(1:3, 
.Label = c("2003-07", "2003-08", "2003-09"), class = "factor"), 
 A = c(445L, 429L, 421L), B = c(48L, 77L, 80L),
 C = c(1126L, 1179L, 1077L), D = c(512L, 583L, 488L ), 
 E = c(277L, 320L, 288L), FF = c(677L, 675L, 627L)), 
.Names = c("X", "A", "B", "C", "D", "E", "FF"), 
class = "data.frame", row.names = c(NA, -3L))
4

1 回答 1

5 
ts.plot(df,col=c(rep("blue",3),rep("black",3)))

我认为它绝对按照 order 中的指定进行绘制A-B-C-D-E-F。所以...

A     B     C     D     E     F
Blue  Blue  Blue  Black Black Black

在此处输入图像描述

如果您匹配 A/B/C 的值...

          A  B    C
2003-07 445 48 1126
2003-08 429 77 1179
2003-09 421 80 1077

...您会看到三条蓝线是来自445->429->421& 48->77->80&的那些1126->1179->1077，它实际上与您指定的内容相匹配。

顺便说一句，您可以将绘图调用简化为：

ts.plot(df,col=rep(c("black","blue"),each=3))

...通过使用each=函数调用的一部分。

编辑：：

查看您的dput，看起来您的图表也将您的标签绘制df$X为值1,2,3，因为它是 afactor并且在绘图时被解释为这样。

尝试使用这段代码从原始图中删除标签并重新添加它们：

ts.plot(df[-1],col=c(rep("blue",3),rep("black",3)),gpars=list(xaxt="n"))
axis(1,labels=as.character(df$X),at=1:3)
于 2012-09-20T02:06:59.480 回答