R语言循环的问题

Hi，大家好，我现在的目标是要算出AbnormalTrend，即log(Trend)减去log(过去7天trend的平均值)，Trend就是每日的搜索指数，数据如图所示，因为我这里有1000多支股票，即为上交所的股票，6XXXXX，Stkcd是股票代码的意思，我要算出每支股票的AbnormalTrend，但是实在不知道如何下手，谢谢大家！数据是从2006-01-04开始，到2019-03-15。

第一步，找到所有不重复的Stkcd，构成stkcd集合
第二步，取出fl中stkcd=600000的数据，并按时间由小到大排序，命名为fl_s
第三步，在fl_s中添加新的一列，log（trend）
第四步，用for循环形式计算log(trend过去7天的均值)
第五步，计算log（trend）与log(trend过去7天的均值)的差值
第六步，保存结果
第七步，for循环形式计算stkcd集合中所有stkcd的AbnormalTrend

fengxingliulizi 发表于 2019-4-4 10:56
第一步，找到所有不重复的Stkcd，构成stkcd集合
第二步，取出fl中stkcd=600000的数据，并按时间由小到大排 ...

你好，麻烦你可以告诉我过去七天的中位数如何写吗，谢谢，其他的我都可以操作，但是不知道怎么表达特定时间段的中位数