3

2 つの列にデータがあります。

DateTime    Profit
20130319T01  5
20130319T02  135
20130319T03  245
20130320T01  10
20130320T02  115

時間ごとの差分を持つ列を作成したいのですが、問題は利益が毎日ゼロにリセットされることです。私は以下を取得したい:

DateTime     Diff
20130319T01  5
20130319T02  130
20130319T03  110
20130320T01  10
20130320T02  105
4

1 に答える 1

4

DateTime 文字ベクトルの形式が常にであると仮定すると、関数 fromを"YYYYMMDD"使用して必要なものを取得できます。ddplyplyr

require(plyr)
df$Date <- substr( df$DateTime , 1 , 8 )
ddply( df ,  .(Date)  , summarise , Diff = diff(c(0,Profit)) )
#     Date Diff
#1 20130319    5
#2 20130319  130
#3 20130319  110
#4 20130320   10
#5 20130320  105

base を使用する別の方法ave:

within(df, { Profit_diff <- ave(Profit, list(gsub("T.*$", "", DateTime)), 
             FUN=function(x) c(x[1], diff(x)))})

#      DateTime Profit Profit_diff
# 1 20130319T01      5           5
# 2 20130319T02    135         130
# 3 20130319T03    245         110
# 4 20130320T01     10          10
# 5 20130320T02    115         105
于 2013-05-03T10:38:41.020 に答える