Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/66.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 仅显示每个类别的标签_R_Ggplot2 - Fatal编程技术网

R 仅显示每个类别的标签

R 仅显示每个类别的标签,r,ggplot2,R,Ggplot2,我有以下数据集: year <- as.factor(c(1999,2000,2001)) era <- c(0.4,0.6,0.7) player_id <- as.factor(c(2,2,2)) df <- data.frame(year, era, player_id) 但问题是,我现在在每个数据点都得到了一个标签。我只希望在每个数据点的末尾有一个标签 如果我正确理解了您想要的内容,那么您可以将geom\u文本(…)替换为geom\u点() 如果我正确理解了您想

我有以下数据集:

year <- as.factor(c(1999,2000,2001))
era <- c(0.4,0.6,0.7)
player_id <- as.factor(c(2,2,2))
df <- data.frame(year, era, player_id)
但问题是,我现在在每个数据点都得到了一个标签。我只希望在每个数据点的末尾有一个标签


如果我正确理解了您想要的内容,那么您可以将
geom\u文本(…)
替换为
geom\u点()


如果我正确理解了您想要的内容,那么您可以将
geom_文本(…)
替换为
geom_point()


如果我理解正确,您希望在数据点的末尾添加标签。您可以使用
directlabels
库执行此操作,如下所示:

library(ggplot2)
library(directlabels)
ggplot(data = df, aes(x = year, y=era, group = player_id, colour = player_id))+ 
geom_line() +
scale_colour_discrete(guide = 'none') +
scale_x_discrete(expand=c(0, 1)) +
geom_dl(aes(label = player_id), method = list(dl.combine("last.points"), cex = 0.8))
输出:


如果我理解正确,您希望在数据点的末尾添加标签。您可以使用
directlabels
库执行此操作,如下所示:

library(ggplot2)
library(directlabels)
ggplot(data = df, aes(x = year, y=era, group = player_id, colour = player_id))+ 
geom_line() +
scale_colour_discrete(guide = 'none') +
scale_x_discrete(expand=c(0, 1)) +
geom_dl(aes(label = player_id), method = list(dl.combine("last.points"), cex = 0.8))
输出:


可能看一下
directlabels
软件包可能看一下
directlabels
软件包