- 积分
- 3000
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2018-8-14
- 最后登录
- 1970-1-1
|
发表于 2021-3-27 11:12:45
|
显示全部楼层
本帖最后由 yebugu 于 2021-3-27 11:17 编辑
添加了抖动,所以散点的范围有扩张,无需过度担心。细节自行补充或AI处理。
==============================================
library(ggplot2)
set.seed(133333)
T=sort(runif(100,min=24.2,max=37.8))
O3=8*10^(-11)*T^7.99
shidu=sort(runif(100,0,1))
df=data.frame(T=T,O3=O3,shidu=shidu)
ggplot(df, aes(T, O3,colour = shidu)) +geom_point(size=3,alpha=0.8,position=position_jitter(width=2, height=20))+geom_line(color="blue",size=1.2,alpha=0.9)+scale_colour_gradientn(colours = rainbow(10))+theme_classic()
=============================================
|
-
示意图
|