if(capabilities()["png"] && interactive()) {
## x and y as numeric vectors
x <- nv(rnorm(30),1:30)
y <- rnorm(30)
hyperplot(x,y, annout=1:15)
## annout as dataframe (x and y as vectors)
df <- data.frame(out=rep(c(TRUE,FALSE),15),row.names=as.character(1:30))
hyperplot(x,y, annout=df)
## x and y as names of columns in df
df <- data.frame(x=x, y=y, out=rep(c(TRUE,FALSE),15),row.names=as.character(1:30))
hyperplot(x='x',y='y', annout=df)
}
Run the code above in your browser using DataLab