다른 색과 모양의 격자로 마지막 관찰 그리기 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

나는 가정 : 그냥 안부, PCH와 CEX "N"번 반복 한 후 마지막 행 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)) 

. 여기서 "n"은 행 수 -1입니다. 이것은 데이터가 작동하도록 정렬되어 있다고 가정합니다. 별도의 열 (예 : df $ Col, df $ Pch 등)에 그래픽 매개 변수를 추가하고 col = df $ Col를 수행 ​​할 수도 있습니다. 이렇게하면 정렬에 관계없이 모든 유형의 항목을 강조 표시 할 수 있습니다.