如何在散點圖中標記特定點

Question

我有一個使用此data.frame的散點圖：

set.seed(1)    
df <- data.frame(a=sample(1:10,10), b = sample(1:10,10),ID = sample(letters[1:10]))

我只想標記ID [1:5] 。

我嘗試了下面的代碼，但它仍然標記了所有代碼

plot(a~b,data = df)

with(df,text(a~b, labels = ID [1:5]))

Answer 1

你可以做

with(df[df$ID %in% df$ID[c(1:5)],],text(x = b, y = a, labels = ID, pos = 2))

Answer 2

我認為您只需要在with()中將df子集化，請嘗試

set.seed(1)    
df <- data.frame(a=sample(1:10,10), b = sample(1:10,10),ID = sample(letters[1:10]))
plot(a~b,data = df)
with(df[1:5,], text(a~b, labels = ID [1:5]))