如何查找R

Question

中十進制日期數據的月平均值，如同任何幫助表示讚賞。我有每天的數據（每天2次觀察）湖泊深度。我已經將日期轉換爲decimal_date格式，例如2000年1月2日2000.003，但需要創建一個月平均異常時間序列 - 每月一個值。如果有助於可視化，我附加了數據框中前幾個數據的副本。

Decim_Date Depth (cm) Anomaly (cm) 
1 2000.000 1216 78.6721 
2 2000.000 1216 78.6721 
3 2000.003 1216 78.6721 
4 2000.003 1217 79.6721 
5 2000.005 1216 78.6721 
6 2000.005 1216 78.6721 
7 2000.008 1215 77.6721 
8 2000.008 1216 78.6721 
9 2000.011 1215 77.6721 
10 2000.011 1216 78.6721 

我很困難！在此先感謝

Answer 1

對於那些感興趣或有類似問題，我已經找出答案，並在下面發佈。注意：代碼中的L.Vic和L.Kyg指的是根據上述問題在數據框中使用兩個湖泊數據。

require("lubridate"); require("xts"); require("plyr") 

# Convert to xts format and then apply monthly mean upon anomalies 
x <- xts(L.Vic[,-1], as.POSIXct(L.Vic[,1], format="%d-%b-%y")) 
x <- apply.monthly(x$Anomaly_cm, mean) 
y <- xts(L.Kyg[,-1], as.POSIXct(L.Kyg[,1], format="%d-%b-%y")) 
y <- apply.monthly(y$Anomaly_cm, mean) 

# Converts xts row.names to column format and saves as data frame 
L.Vic.ts <- data.frame(date=index(x), coredata(x)) 
L.Kyg.ts <- data.frame(date=index(y), coredata(y)) 

# Change to 'yyyy-mm' format, then a POSIXct date-time object, then dec-date 
L.Vic.ts$date <- strftime(strptime(L.Vic.ts$date, "%Y-%m-%d"), "%Y-%m") 
L.Vic.ts$date <- parse_date_time(L.Vic.ts$date, "ym") 
L.Vic.ts$date <- decimal_date(L.Vic.ts$date) 
colnames(L.Vic.ts) <- c("Decim_Date", "SWSanom") 
L.Kyg.ts$date <- strftime(strptime(L.Kyg.ts$date, "%Y-%m-%d"), "%Y-%m") 
L.Kyg.ts$date <- parse_date_time(L.Kyg.ts$date, "ym") 
L.Kyg.ts$date <- decimal_date(L.Kyg.ts$date) 
colnames(L.Kyg.ts) <- c("Decim_Date", "SWSanom") 

希望這有助於歡呼