Управление z метками в контурной диаграмме - PullRequest
Новая
       42

Управление z метками в контурной диаграмме

2 голосов
/ 02 мая 2011

Я пытаюсь контролировать, сколько меток z должно быть записано в моем контурном графике, нанесенном с помощью contourplot() из библиотеки решеток.
У меня 30 контурных линий, но я хочу, чтобы только первые 5 были помечены. Я попробовал кучу таких вещей, как 

contourplot(z ~ z+y, data=d3, cuts=30, font=3, xlab="x axis", ylab="y axis", scales=list(at=seq(2,10,by=2)))
contourplot(z ~ z+y, data=d3, cuts=30, font=3, xlab="x axis", ylab="y axis", at=seq(2,10,by=2))

но ничего не работает.

Кроме того, возможно ли построить два contourplot() на одном графике? Я пытался 

contourplot(z ~ z+y, data=d3, cuts=30)
par(new=T)
contourplot(z ~ z+y, data=d3, cuts=20)

но это не работает.
Спасибо!

Ответы [ 2 ]

6 голосов
/ 02 мая 2011

Вот мой дубль: 

library(lattice)
x <- rep(seq(-1.5,1.5,length=50),50)
y <- rep(seq(-1.5,1.5,length=50),rep(50,50))
z <- exp(-(x^2+y^2+x*y))

# here is default plot
lp1 <- contourplot(z~x*y)    

# here is an enhanced one
my.panel <- function(at, labels, ...) { 
    # draw odd and even contour lines with or without labels
    panel.contourplot(..., at=at[seq(1, length(at), 2)], col="blue", lty=2)
    panel.contourplot(..., at=at[seq(2, length(at), 2)], col="red",
                      labels=as.character(at[seq(2, length(at), 2)]))
} 

lp2 <- contourplot(z~x*y, panel=my.panel, at=seq(0.2, 0.8, by=0.2))
lp3 <- update(lp2, at=seq(0.2,0.8,by=0.1))
lp4 <- update(lp3, lwd=2, label.style="align")

library(gridExtra)
grid.arrange(lp1, lp2, lp3, lp4)

enter image description here

Вы можете адаптировать пользовательскую функцию panel в соответствии с вашими потребностями (например, другие шкалы для выравнивания по оси z, цвета и т. Д.).

3 голосов
/ 02 мая 2011

Вы можете указать labels в качестве аргумента векторного символа и установить последние значения с помощью rep ("", 5), поэтому, возможно, для примера, который вы предложили в предыдущем вопросе о контуре 

 x = seq(0, 10, by = 0.5)
 y = seq(0, 10, by = 0.5)
 z <- outer(x, y)
 d3 <- expand.grid(x=x,y=y); d3$z <- as.vector(z)
 contourplot(z~x+y, data=d3)
 # labeled '5'-'90'
 contourplot(z~x+y, data=d3, 
    at=seq(5,90, by=5),
    labels=c(seq(5,25, by=5),rep("", 16) ),
    main="Labels only at the first 5 contour lines")
 # contourplot seems to ignore 'extra' labels
 # c() will coerce the 'numeric' elements to 'character' if any others are 'character'
 ?contourplot   # and follow the link in the info about labels to ?panel.levelplot

The second plot:

...