ggplot删除或替换geom_text图例中的'a'

drm*_*iod 3 r ggplot2

我试图在一个传奇面前删除那个小小的但没有任何运气.其他可能性是在图表旁边创建一个图例或文字,但我的想法已经不多了.也许有人可以帮助我.

我在特定的位置上绘制一个红色的X,我想指出,X标记的东西是假定的......

df <- data.frame(x=rnorm(10),y=rnorm(10))
ggplot(df, aes(x=x, y=y)) + geom_point() + geom_text(aes(x=0,y=0, color=factor(1)), label='X') +  
  scale_color_manual(values = 'red', name='imputed',labels='imputed') +
  theme(legend.key=element_blank(), legend.title=element_blank())
Run Code Online (Sandbox Code Playgroud)

我认为最好的结果是用X替换小a.但我找不到任何解决方案.

Pop*_*Pop 7

问题是你geom_text用来绘制十字架.

解决它的一个简单方法是使用geom_point绘制十字架:

ggplot(df, aes(x=x, y=y)) + geom_point() + geom_point(aes(x=0,y=0, color=factor(1)), shape='X', size=5) +  

scale_color_manual(values = 'red',labels='imputed') +

theme(legend.key=element_blank(), legend.title=element_blank())
Run Code Online (Sandbox Code Playgroud)