- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 991 个
- 通用积分
- 224.6182
- 学术水平
- 150 点
- 热心指数
- 182 点
- 信用等级
- 87 点
- 经验
- 23610 点
- 帖子
- 673
- 精华
- 0
- 在线时间
- 912 小时
- 注册时间
- 2013-8-20
- 最后登录
- 2023-2-24
|
zhgzhckc 发表于 2013-11-5 01:24 
M是男,F是女 - library(data.table)
- require(data.table)
- t=data.table(sex=c("F","M","F","F","M","M"),height=c(160,169,172,166,178,175),weight=c(92,118,118,110,145,138))
- t1=t[sex=="F"]
- t11=t1[order(t1[,height])]
- plot(t11[,height],t11[,weight],type="l",xlim=c(160,180),ylim=c(90,150),col=2)
- par(new=T)
- t2=t[sex=="M"]
- t22=t2[order(t2[,height])]
- plot(t22[,height],t22[,weight],type="l",xlim=c(160,180),ylim=c(90,150),col=4)
复制代码#举个简单的例子,你适当做自己的个性改变吧。不知道是不是你想要的。
|
|