R:如何对列中元素的日数据计算按年计算的平均值和其他操作

Question

请帮帮我。我已经被困了很久了。我是一个R初学者，我想知道如何使用多种指标(如公司和时间)来执行数据帧元素的操作，如下面的例子。我想对每个公司的其他变量进行一些典型的运算，例如按年平均，下面是一个例子:我想从数据集中所有公司的变量A和F的每日数据中计算出按年计算的平均值。这是我的数据集。我使用了dplyr和hydroTSM包。以下是我的代码：

MeanA<- df %>% select(Firm, Date, A,) %>% group_by(Firm) %>% do(daily2annual(., A, FUN=mean, na.rm = TRUE, out.fmt="%Y", dates = 2))

它返回以下错误：

Error in eval(expr, envir, enclos) : argument is missing, with no default

我还尝试了data.table包，添加了一个额外的年份专栏。代码：

MeanA <- df[ , A, by = "Firm" & "Year"]

结果：

Error in `[.data.frame`(df, , A, by = "Firm" & "Year") : unused argument(by = "Firm" & "Year")

请建议一条出路(有或不带dplyr)。该表的均值，以及其他按年计算的数值，是输入面板回归分析使用plm软件包。提前感谢。

Answer 1

嗯，这不是一个很好的答案，但我已经厌倦了工作。如果您想要公司的年平均值，我从date字段中提取年份，然后在aggregate函数中使用这个值。

df$Date = as.Date(df$Date, "%m/%d/%Y")
df$F = as.numeric(df$F)
df$Year = as.Date(paste(substr(df$Date, 1, 4), "1", "1",sep="-"), "%Y-%m-%d")
newDat = aggregate(cbind(A, E, F) ~ Firm + Year, df, FUN = mean)

Answer 2

试一试

MeanA<- df %>%
    select(Firm, Date, A) %>%
    group_by(Firm) %>%
    do(daily2annual(., A, mean, na.rm = TRUE, dates = .$Date))