【求助】根据条件筛选样本

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

刚学R，求救各位大神帮忙！

原始样本如下字段：
品牌  型号    时间     价格    数量
A       W     2015-8   100    500
A       W     2015-7   90      500
A       W     2015-9   80      500
B       T      2015-8   100    500
B       T      2015-9   150    500

筛选条件：按照时间排序，型号首次出现的价格大于100，则把该型号出现在数据库的记录全部筛选出来，
如果型号首次出现的价格小于100，则该型号所有记录剔除。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：条件筛选 大于1 筛选出 数据库 样本

a <- read.table('clipboard', header = T)
b <- a[order(a[,2], a[,3]),]
m <- do.call(rbind,tapply(1:nrow(b), b[,2], range))
bb <- b[m[,1], ]
xinghao <- bb[which(bb[,4]>=100),2]
b[b[,2]==xinghao,]

没看明白哦，order对时间不能排序吧，2014年10月排在2014年1月前面了

a <- read.table('clipboard', header = T)
a[,3] <- as.Date(paste(a[,3], '1', sep = '-'), '%Y-%m-%d')
b <- a[order(a[,2], a[,3]),]
m <- do.call(rbind,tapply(1:nrow(b), b[,2], range))
bb <- b[m[,1], ]
xinghao <- bb[which(bb[,4]>100),2]
subset(a, 型号 == xinghao)

as.date后，时间变成NA了。。
每个语句麻烦解释下，初学看不懂，谢谢！