以不同的顏色和形狀繪製最後一次觀察R

Question

我想從我的data.frame以不同的顏色/形狀繪製最後一次觀察。現在，關於這個主題的一個關閉條目就在這裏，但不完全是我所需要的。我在這裏發佈的這個解決方案是有效的，但是我會很高興在格子內部還有其他選擇/方法來處理這個問題，因爲這對我來說似乎很笨拙。

的樣本數據：

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) 

編輯：另外上述方案似乎不工作，如果最後兩個意見是完全一樣的。這就是我偶爾在數據中遇到的情況。

Answer 1

你可以嘗試使用代表我想：

n<-nrow(data)-1 

plot1 <- xyplot(x~y, data, col=c(rep("red",n),"black"), 
      pch=c(rep(19,n),1), cex=c(rep(2,n),1)) 

它只是重複的山坳，PCH和CEX「N」次，然後將最後1個的附加價值。這裏「n」是行數-1。這假定你的數據是爲了這個工作而排序的。您還可以將圖形參數添加到單獨的列中（即df $ Col，df $ Pch等），並執行col = df $ Col，這將允許您突出顯示各種各樣的內容，而不考慮排序。