geom_hline和geom_vline分别用来添加水平线(horizontal)和垂直线(vertical) plot + geom_hline(yintercept =300) + geom_vline(xintercept =20) 如果只是要添加单条或者多条确定的直线,则只需要设置yintercept和xintercept参数即可。当然,可以通过colour,size,linetype来设置线条的外观等。 plot + geom_hline(y...
步骤3:绘制RCS竖线图 在有了频率数据后,我们可以使用ggplot2包来绘制RCS竖线图。 #绘制RCS竖线图ggplot(frequency_data,aes(x=bin,y=frequency))+geom_col(fill="blue")+# 使用柱状图labs(title="频率分布 RCS竖线图",x="值区间",y="频率")+theme(axis.text.x=element_text(angle=45,hjust=1))# 旋转...
1. 水平和垂直线 rm(list=ls())library(ggplot2)# Simple scatter plotsp<-ggplot(data=mtcars,aes(x=wt,y=mpg))+geom_point()# Add horizontal line at y = 2Osp+geom_hline(yintercept=20)# Change line type and colorsp+geom_hline(yintercept=20,linetype="dashed",color="red")# Change li...
ggplot(data,aes(x,y,group=group,color=group,shape=group,linetype=group))+geom_point(size=3)+#散点geom_xspline(spline_shape=-0.3,size=1)+#曲线平滑scale_color_manual(values=c('#ec1c24','#fdbd10','#0066b2'))+#自定义颜色theme_prism(palette="candy_soft",#主题设置base_fontface="plain...
p <- ggplot(economics, aes(date, psavert, color = "savings rate")) p1 <- p + geom_line() # 通过指定字符串名称 p2 <- p + geom_line(key_glyph = "timeseries") # 或者对应的函数名 p3 <- p + geom_line(key_glyph = draw_key_timeseries) ...
ggplot(data,aes(x,y,group=group,color=group,shape=group))+geom_point(size=3)+geom_xspline(spline_shape=-0.3,size=1) image.png 绘图模板 ggplot(data,aes(x,y,group=group,color=group,shape=group,linetype=group))+geom_point(size=3)+#散点geom_xspline(spline_shape=-0.3,size=1)+#曲线平...
g <- ggplot(chlr, aes(x = date, y = temp)) 1. 为什么运行后出来一个灰色的空图片?因为还没有设置画什么类型的图,通过添加geom_point()来创建散点图,类似于geom开头的这些函数可以用于不同的可视化方式。 g + geom_point() 1. 再次运行就能看到散点图的效果,这就是gemo图层实现的效果,除此之外,可...
ggplot(data,aes(x,y,group=group,color=group,shape=group))+geom_point(size=3)+geom_xspline(spline_shape=-0.3,size=1) 绘图模板 ggplot(data,aes(x,y,group=group,color=group,shape=group,linetype=group))+geom_point(size=3)+#散点geom_xspline(spline_shape=-0.3,size=1)+#曲线平滑scale_col...
ggplot(mtcars,aes(mpg,drat)) + geom_point() #散点图 用R中自带数据集Pressure plot(pressure$temperature,pressure$pressure,type = 'b') qplot(pressure$temperature,pressure$pressure,geom = c("line","point")) ggplot(pressure,aes(temperature,pressure)) + geom_point() +geom_line() ...
代码语言:javascript 复制 p <- ggplot(mtcars,aes(x=wt,y=mpg))+geom_point() p annotate函数传入标签 代码语言:javascript 复制 p+annotate('text',x=4,y=25,label='I love R', size=5,color='forest green',family='Times New Roman')