私のdata.frameからの最後の観測を別の色/形でプロットしたいと思います。さて、このトピックに関する 1 つの近いエントリが SO にありますが、私が必要としているものとはまったく異なります。私がここに投稿しているこのソリューションは機能しますが、これは私にはやや不器用に思えるので、ラティス内でこの問題を処理する他のオプション/方法もあれば幸いです。
サンプルデータ：
set.seed(123)
data <- data.frame(x=rnorm(10,0,1),y=rnorm(10,1,2))
n <- nrow(data)
plot1 <- xyplot(x~y, data, col=ifelse(data$x==(data$x[n]), "red", "black"),
pch=ifelse(data$x==(data$x[n]), 19, 1), cex=ifelse(data$x==(data$x[n]), 2, 1))
print(plot1)
編集:また、最後の2つの観察結果がまったく同じ場合、上記の解決策は機能しないようです。そして、これは私が時々データに持っているものです。