r - العثور على تشغيل الحد الأقصى حسب المجموعة




max groupwise-maximum (2)

يمكنك القيام بذلك حتى:

df$curMax <- ave(df$var, df$group, FUN=cummax)

أحتاج إلى إيجاد الحد الأقصى للتشغيل للمتغير بحسب المجموعة باستخدام R. يتم فرز المتغير حسب الوقت داخل المجموعة باستخدام df[order(df$group, df$time),] .

يحتوي متغيري على بعض NA ولكن يمكنني التعامل معها عن طريق استبدالها بالأصفار لهذا الحساب.

هذه هي الطريقة التي يبدو بها إطار البيانات df:

(df <- structure(list(var = c(5L, 2L, 3L, 4L, 0L, 3L, 6L, 4L, 8L, 4L),
               group = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L),
                                 .Label = c("a", "b"), class = "factor"),
               time = c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L)),
          .Names = c("var", "group","time"),
          class = "data.frame", row.names = c(NA, -10L)))

#    var group time
# 1    5     a    1
# 2    2     a    2
# 3    3     a    3
# 4    4     a    4
# 5    0     a    5
# 6    3     b    1
# 7    6     b    2
# 8    4     b    3
# 9    8     b    4
# 10   4     b    5

وأريد curMax متغير على النحو التالي:

var  |  group  |  time  |  curMax
5       a         1         5
2       a         2         5
3       a         3         5
4       a         4         5
0       a         5         5
3       b         1         3
6       b         2         6
4       b         3         6
8       b         4         8
4       b         5         8

واسمحوا لي أن أعرف إذا كان لديك أي فكرة عن كيفية تنفيذه في R.


يمكننا أن نحاول data.table . تحويل "data.frame" إلى "data.table" ( setDT(df1) ) ، تم تجميعها حسب "group" ، وحصلنا على cummax من "var" cummax بتعيين ( := ) إلى متغير جديد ("curMax")

library(data.table)
setDT(df1)[, curMax := cummax(var), by = group]

كما علق علىMichael Chirico ، إذا كانت البيانات غير order حسب "الوقت" ، فيمكننا القيام بذلك في "i"

setDT(df1)[order(time), curMax:=cummax(var), by = group]

أو مع dplyr

library(dplyr)
df1 %>% 
    group_by(group) %>%
    mutate(curMax = cummax(var)) 

إذا كان df1 هو tbl_sql فقد تكون هناك حاجة إلى طلب صريح ، باستخدام arrange

df1 %>% 
    group_by(group) %>%
    arrange(time, .by_group=TRUE) %>%
    mutate(curMax = cummax(var)) 

أو dbplyr::window_order

library(dbplyr)

df1 %>% 
    group_by(group) %>%
    window_order(time) %>%
    mutate(curMax = cummax(var)) 






groupwise-maximum