时间戳

首页 > 解决方案 > 在每个月的新列中添加相应的最大值

r - 在每个月的新列中添加相应的最大值

问题描述

我有以下数据框：

df <- structure(list(locality_id = structure(c(3L, 1L, 2L, 4L), .Label = c("L2762894", 
"L3064193", "L6199859", "L8044094"), class = "factor"), month = structure(c(1L, 
3L, 1L, 2L), .Label = c("1", "2", "3"), class = "factor"), prec01 = c(105, 
109, 133, 79), prec02 = c(29, 34, 34, 35), prec03 = c(18, 48, 
42, 184)), class = "data.frame", row.names = c(NA, -4L))

每个locality都有precipitation第一个的值three months (prec01, prec02, prec03)。

我想创建一个唯一的降水列，将每个月的相应降水值与相应的月份（列月）相匹配。结果如下：

#   locality_id month prec
# 1    L6199859     1  105
# 2    L2762894     3  109
# 3    L3064193     1  133
# 4    L8044094     2  184

知道如何产生上述输出吗？

谢谢！

标签： rdataframematch

解决方案

如果我理解您的问题，您想在新prec列中保留相应的值precXX吗month？

在那种情况下，在我看来，这个例子是不正确的，而应该是：

起始数据框：

  locality_id month prec01 prec02 prec03
1    L6199859     1    105     29     18
2    L2762894     3    109     34     48
3    L3064193     1    133     34     42
4    L8044094     2     79     35    184

最终数据框：

 locality_id month prec
1    L6199859     1  105
2    L2762894     3   48
3    L3064193     1  133
4    L8044094     2   35

您可以通过矩阵索引来实现：

i <- as.numeric(df$month)

df$prec <- df[,c(3,4,5)][cbind(seq_along(i), i)]

df[,c(-3,-4,-5)]

推荐阅读