1

私はこのコードを使用して、数百の日付をそれぞれの月に結合しています。

cpkmonthly <- aggregate(mydf$AVG, na.rm=TRUE, list(month=months(as.Date(mydf$DATETIME))), mean)

これはRの出力です：

> cpkmonthly
   month         x
1  April 0.4583167
2 August 0.4416660
3   July 0.4436665
4   June 0.4435551
5  March 0.4654443
6    May 0.4523338

代わりに、certianの月を四半期にまとめる方法を探しています。

Jan-March = q1
April-June = q2
July-Sep = q3
Oct-Dec = q4

これを行う方法はありますか？

出力は次のようになります。

> cpkquarterly
   quarter         x
1       q1 0.4583167
2       q2 0.4416660
3       q3 0.4436665
4       q4 0.4435551
4

3 に答える 3

6

パッケージには、これzooを行う機能があります。

library(zoo)
as.yearqtr("2012-06", "%Y-%m")

# [1] "2012 Q2"
于 2012-10-18T21:55:21.927 に答える
1

何が欲しいのかはっきりしていません：

> require(data.table)
> cpkmonthly <- data.table(month=c("April", "August", "July","June","March","May"),
+ x=c(0.4583167,0.4416660,0.4436665,0.4435551,0.4654443,0.4523338)
+ )
> 
> cpkmonthly
    month         x
1:  April 0.4583167
2: August 0.4416660
3:   July 0.4436665
4:   June 0.4435551
5:  March 0.4654443
6:    May 0.4523338
> 
> quart <- data.table(month=month.name,quarter=rep(1:4, each=3),key="month")
> 
> ###if you just want each row assigned to a quarter:
> quart[cpkmonthly]
    month quarter         x
1:  April       2 0.4583167
2: August       3 0.4416660
3:   July       3 0.4436665
4:   June       2 0.4435551
5:  March       1 0.4654443
6:    May       2 0.4523338
> 
> ###if you want to aggregate in various ways:
> 
> quart[cpkmonthly][,list(x.avg=mean(x),x.max=max(x),x.1=x[1]),by=quarter][order(quarter)]
   quarter     x.avg     x.max       x.1
1:       1 0.4654443 0.4654443 0.4654443
2:       2 0.4514019 0.4583167 0.4583167
3:       3 0.4426663 0.4436665 0.4416660
于 2012-10-18T23:09:20.737 に答える
0

同様の問題が発生しましたが、私の会社には、四半期が不規則な日付で開始および終了するカレンダーがあります。これが私が自分のデータ内でこれに取り組んだ方法です。私のデータセットには5MMを超える行が含まれているためdata.table、data.frameの代わりに使用していることに注意してください。

# My data is contained in the myDT data.table.
# Dates are contained in the date column.

require("data.table")

Q1FY14 <- myDT[ which(date >= "2013-02-02" & date <= "2013-05-03"), ]
Q2FY14 <- myDT[ which(date >= "2013-05-04" & date <= "2013-08-02"), ]
Q3FY14 <- myDT[ which(date >= "2013-08-03" & date <= "2013-11-01"), ]
Q4FY14 <- myDT[ which(date >= "2013-11-02" & date <= "2014-01-31"), ]
Q1FY15 <- myDT[ which(date >= "2014-02-01" & date <= "2014-05-02"), ]

# Create new vectors.
Q1.14 <- rep("Q1 FY14", nrow(Q1FY14))
Q2.14 <- rep("Q2 FY14", nrow(Q2FY14))
Q3.14 <- rep("Q3 FY14", nrow(Q3FY14))
Q4.14 <- rep("Q4 FY14", nrow(Q4FY14))
Q1.15 <- rep("Q1 FY15", nrow(Q1FY15))

# Add each of my new vectors to their associate data.table.
Q1FY14$quarter <- Q1.14
Q2FY14$quarter <- Q2.14
Q3FY14$quarter <- Q3.14
Q4FY14$quarter <- Q4.14
Q1FY15$quarter <- Q1.15

# Bring it all together.
newDT <- rbind(Q1FY14, Q2FY14)
newDT <- rbind(newDT, Q3FY14)
newDT <- rbind(newDT, Q4FY14)
newDT <- rbind(newDT, Q1FY15)

# Clean up data.
rm(Q1FY14, Q2FY14, Q3FY14, Q4FY14, Q1FY15, Q1.14, Q2.14, Q3.14, Q4.14, Q1.15)

これにより、各行に正しい四半期が追加されました。私はそれを使用可能にするために他のいくつかのマイナーな調整が必要でした。

# Change the column order so that quarter appears next to date.
setcolorder(newDT, c("date", "quarter", ...))

# Change the quarter column to factors.
newDT$quarter <- factor(newDT$quarter)
于 2014-06-03T13:44:44.257 に答える