如何在'抖动'散点图中标记点

Question

我想用与变量关联的国家名称标注散点图中的所有点，但所有标签都向下移动。这不是正确的方式来做到这一点：

plot(jitter(data$variable1,2), jitter(data$variable2,2), main = "Bivariate relationship between variable1 and variable2", xlim = c(0,100), ylim = c(0,100), xlab = "Variable 1", ylab = "Variable 2", col = "red", pch = 15) 

text(jitter(data$variable1,2), jitter(data$variable2,2), labels = data$Country) 

This is what the scatterplot looks like without labels 而我们的数据是这样的：

Country Variable1 Variable2 
France  2   2 
Turkey  1   3 

Answer 1

这是否回答您的问题？

Country=c("France", "Turkey") 
Variable1 = c(2, 1) 
Variable2 = c(2, 3) 
df = data.frame(Country, Variable1, Variable2) 
x1=jitter(Variable1, 2);x2=jitter(Variable2, 2) 
plot(x1, x2, xlim = c(min(x1)-1, max(x1)+1), ylim=c(min(x2)-1, max(x2)+1)) 
text(x1,x2, labels=df$Country, cex=.7, pos=3)