2014-11-06 30 views
0

我有以下代码的问题。我想制作一个情节,在情节的顶部有一个复杂的传说,但我得到了最后一个蓝点,我不知道为什么。格子多个键

下面是代码:

library(lattice) 


xyplot(rnorm(10)~rnorm(10), 
     key = list(
      text = list(c("Title", "A", "B", "C")), 
      points = list(pch=c(NA, 16, 17, 18), col="Red"), 

      text = list(c("Title", "A", "B", "C", "D")), 
      points = list(pch=c(NA, 16, 17, 18, 15), col="Green"), 

      text = list(c("Title", "A", "B")), 
      points = list(pch=c(NA, 16, 17), col="Blue"))) 

enter image description here

+1

如果您在上一个'points'列表中的'pch'向量末尾添加了一个'NA',那么额外的蓝色消失了。我不知道为什么它在那里开始。但是,如果消除键的中间(绿色)部分,则点也会消失。奇。 – 2014-11-07 00:10:43

回答

3

是否存在的参数“复制”到最长的参数最大的长度由rep参数支配缺省值为TRUE:

xyplot(rnorm(10)~rnorm(10), 
     key = list(rep=FALSE, 
      text = list(c("Title", "A", "B", "C")), 
      points = list(pch=c(NA, 16, 17, 18), col="Red"), 

      text = list(c("Title", "A", "B", "C", "D")), 
      points = list(pch=c(NA, 16, 17, 18, 15), col="Green"), 

      text = list(c("Title", "A", "B")), 
      points = list(pch=c(NA, 16, 17), col="Blue"))) 

没有多余的点....对于第一个位置1的NA被重新用于位置5并且没有问题。

+0

不会在一百万年内猜到:) – 2014-11-07 01:26:14

+0

猜测在格子或ggplot2中效果不佳。直到我阅读“xyplot”帮助页面时,我才知道答案。大约第50次。至少在其帮助页面中记载了格子。我无法在ggplot帮助页面找到答案。 – 2014-11-07 02:41:23