我正在玩的数据来自下面列出的互联网资源
nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv", sep=",")
我想要做的是创建一个 2D 点图,比较该表中的两个指标,每个玩家代表图表上的一个点。我有以下代码:
nbaplot <- ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name)) + geom_point()
这给了我以下信息:
我想要的是点旁边的玩家姓名标签。我认为 ggplot 美学中的标签功能会为我做到这一点,但事实并非如此。
我还尝试text()了 function 和textxy()from的函数library(calibrate),它们似乎都不适用于 ggplot。
text()
textxy()
library(calibrate)
如何在这些点上添加名称标签?
使用geom_text, 带aes标签。您可以hjust, vjust调整文本位置。
geom_text
aes
hjust, vjust
ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name))+ geom_point() +geom_text(hjust=0, vjust=0)
ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name))+ geom_point() + geom_text(aes(label=ifelse(PTS>24,as.character(Name),'')),hjust=0,vjust=0)