x <- 1:8
df <- data.frame(x=1:8,y=1.2+x^2)
ggplot(df,aes(x,y))+geom_point()+geom_smooth()+geom_text(aes...画一个散点图
p ggplot(mtcars,aes(x=wt,y=mpg))+geom_point()
p
annotate函数传入标签
p+annotate('text',x=4,y=25,label...df <- data.frame(x=1:20,y=1:20,color=letters[1:20])
p ggplot(df,aes(x,y))+geom_point(aes(color=color...(dat,aes(x,y,color=p,size=q,shape=r))+geom_point()
#画出散点图,在不对图例进行任何调整的情况下,图形有测也会出现三个图例,分别是color,size,...color='red',linetype = 2))
pt+scale_color_discrete(name='cyl')+
theme(legend.position = 'bottom', #将图例放置在图片底部