그냥 geom_text() 자리에 geom_text_repel()을 넣으면 그만입니다. ggplot(kbo, aes(x=출루율, y=장타력, label=paste(연도, 팀))) + geom_point() + ...
確定! 回上一頁