library(openxlsx)

df<-read.xlsx("http://kanggc.iptime.org/book/data/position-e.xlsx")

id<-df$id
name<-df$name
comp<-df$comp
eff<-df$eff

mc=mean(comp)
me=mean(eff)

plot(comp,eff,type="n",cex=1.5, xlim=c(0,70),ylim=c(0,1.3))
points(comp,eff, pch=16,cex=1.5,col="blue")
text(65, 0.3, "°æÀï·Â¿ìÀ§½ÃÀå", cex = 1.0)
text(65, 1.2, "¼ºÀåÀ¯¸Á½ÃÀå", cex = 1.0)
text(25, 1.2, "È¿À²¼º¿ìÀ§½ÃÀå", cex = 1.0)
text(25, 0.3, "¿­À§½ÃÀå", cex = 1.0)
with(df,text(eff~comp, labels=id,pos=1))
abline(v=mc, h=me, col="blue",lty=2)
legend("bottomleft",legend=name)