Grouping based on a condition

Hi All,
I have attached a data frame below and I'm trying to create a new column called Mean with no anomalies, the criteria in which this column should be created is first we have to group by three columns(Product id, location id and Month) in the data frame and after that there is a condition to a column called Anomaly(filter only for no) and then find the mean of adjusted sales units column as this should be updated on the new column(Mean with no anomalies)
Used mutate function but taking longer time to run and throws an error as well.
Could any one please help me with this.
Thank you.

      library(tidyverse)
      library(anomalize)
      library(lubridate)
      library(openxlsx)
      library(tibble)
      library(norm)
      library(ggplot2)
test.df<-structure(list(Product.ID = c("A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A"), Location.ID = c("A1", "A1", 
"A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", 
"A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", 
"A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", 
"A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", 
"A1", "A1", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", 
"A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", 
"A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", 
"A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", 
"A2", "A2", "A2", "A2", "A2", "A2", "A3", "A3", "A3", "A3", "A3", 
"A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", 
"A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", 
"A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", 
"A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3"), 
    Time.Period = structure(c(17410, 17440, 17471, 17501, 17532, 
    17563, 17591, 17622, 17652, 17683, 17713, 17744, 17775, 17805, 
    17836, 17866, 17897, 17928, 17956, 17987, 18017, 18048, 18078, 
    18109, 18140, 18170, 18201, 18231, 18262, 18293, 18322, 18353, 
    18383, 18414, 18444, 18475, 18506, 18536, 18567, 18597, 18628, 
    18659, 18687, 18718, 18748, 18779, 18809, 18840, 17410, 17440, 
    17471, 17501, 17532, 17563, 17591, 17622, 17652, 17683, 17713, 
    17744, 17775, 17805, 17836, 17866, 17897, 17928, 17956, 17987, 
    18017, 18048, 18078, 18109, 18140, 18170, 18201, 18231, 18262, 
    18293, 18322, 18353, 18383, 18414, 18444, 18475, 18506, 18536, 
    18567, 18597, 18628, 18659, 18687, 18718, 18748, 18779, 18809, 
    18840, 17410, 17440, 17471, 17501, 17532, 17563, 17591, 17622, 
    17652, 17683, 17713, 17744, 17775, 17805, 17836, 17866, 17897, 
    17928, 17956, 17987, 18017, 18048, 18078, 18109, 18140, 18170, 
    18201, 18231, 18262, 18293, 18322, 18353, 18383, 18414, 18444, 
    18475, 18506, 18536, 18567, 18597, 18628, 18659, 18687, 18718, 
    18748, 18779, 18809, 18840), class = "Date"), Month = c("09", 
    "10", "11", "12", "01", "02", "03", "04", "05", "06", "07", 
    "08", "09", "10", "11", "12", "01", "02", "03", "04", "05", 
    "06", "07", "08", "09", "10", "11", "12", "01", "02", "03", 
    "04", "05", "06", "07", "08", "09", "10", "11", "12", "01", 
    "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", 
    "12", "01", "02", "03", "04", "05", "06", "07", "08", "09", 
    "10", "11", "12", "01", "02", "03", "04", "05", "06", "07", 
    "08", "09", "10", "11", "12", "01", "02", "03", "04", "05", 
    "06", "07", "08", "09", "10", "11", "12", "01", "02", "03", 
    "04", "05", "06", "07", "08", "09", "10", "11", "12", "01", 
    "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", 
    "12", "01", "02", "03", "04", "05", "06", "07", "08", "09", 
    "10", "11", "12", "01", "02", "03", "04", "05", "06", "07", 
    "08", "09", "10", "11", "12", "01", "02", "03", "04", "05", 
    "06", "07", "08"), ADJUSTEDSALESUNITS = c(5.399993, 9, 10, 
    9, 5, 1, 3, 1, 3, 13, 3, 9, 10, 10, 9, 9, 2, 7, 5, 4, 10, 
    12, 8, 12, 4, 11, 4, 3, 2, 2, 3, 10, 3, 5, 1, 4, 6, 3, 4, 
    5, 5, 6, 8, 0, 2, 16, 4, 0, 2, 0, 0, 0, 2, 0, 1, 0, 2, 1, 
    0, 1, 1, 0, 0, 22, 0, 0, 0, 0, 0, 3, 0, 0, 1, 0, 0, 0, 0, 
    0, 0, 2, 0, 1, 1, 0, 0, 1, 5, 1, 0, 0, 0, 0, 1, 1, 2, 0, 
    0, 0, 0, 0, 2, 0, 0, 1, 3, 3, 0, 0, 0, 0, 0, 0, 4, 0, 1, 
    0, 2, 5, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 1, 0, 2), observed = c(5.399993, 9, 
    10, 9, 5, 1, 3, 1, 3, 13, 3, 9, 10, 10, 9, 9, 2, 7, 5, 4, 
    10, 12, 8, 12, 4, 11, 4, 3, 2, 2, 3, 10, 3, 5, 1, 4, 6, 3, 
    4, 5, 5, 6, 8, 0, 2, 16, 4, 0, 2, 0, 0, 0, 2, 0, 1, 0, 2, 
    1, 0, 1, 1, 0, 0, 22, 0, 0, 0, 0, 0, 3, 0, 0, 1, 0, 0, 0, 
    0, 0, 0, 2, 0, 1, 1, 0, 0, 1, 5, 1, 0, 0, 0, 0, 1, 1, 2, 
    0, 0, 0, 0, 0, 2, 0, 0, 1, 3, 3, 0, 0, 0, 0, 0, 0, 4, 0, 
    1, 0, 2, 5, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2), season = c(0.777038472771738, 
    2.74129053792057, 1.03190797981261, 0.814729700470371, -2.10582075450827, 
    -1.67293121586203, -1.18632911147038, -5.12503895359691, 
    -1.516866731646, 5.5952459071069, -2.17555760111032, 2.82233211522901, 
    0.777038472771738, 2.74129053792057, 1.03190797981261, 0.814729700470371, 
    -2.10582075450827, -1.67293121586203, -1.18632911147038, 
    -5.12503895359691, -1.516866731646, 5.5952459071069, -2.17555760111032, 
    2.82233211522901, 0.777038472771738, 2.74129053792057, 1.03190797981261, 
    0.814729700470371, -2.10582075450827, -1.67293121586203, 
    -1.18632911147038, -5.12503895359691, -1.516866731646, 5.5952459071069, 
    -2.17555760111032, 2.82233211522901, 0.777038472771738, 2.74129053792057, 
    1.03190797981261, 0.814729700470371, -2.10582075450827, -1.67293121586203, 
    -1.18632911147038, -5.12503895359691, -1.516866731646, 5.5952459071069, 
    -2.17555760111032, 2.82233211522901, 0.833371148880509, -0.166586138964899, 
    -0.166593756633897, -0.166590193994525, -0.166692280266443, 
    -0.166669269334622, -0.166718772272612, -0.166674024496426, 
    -0.166733049111574, 0.833267261226104, -0.166634902829551, 
    -0.166746022224502, 0.833371148880509, -0.166586138964899, 
    -0.166593756633897, -0.166590193994525, -0.166692280266443, 
    -0.166669269334622, -0.166718772272612, -0.166674024496426, 
    -0.166733049111574, 0.833267261226104, -0.166634902829551, 
    -0.166746022224502, 0.833371148880509, -0.166586138964899, 
    -0.166593756633897, -0.166590193994525, -0.166692280266443, 
    -0.166669269334622, -0.166718772272612, -0.166674024496426, 
    -0.166733049111574, 0.833267261226104, -0.166634902829551, 
    -0.166746022224502, 0.833371148880509, -0.166586138964899, 
    -0.166593756633897, -0.166590193994525, -0.166692280266443, 
    -0.166669269334622, -0.166718772272612, -0.166674024496426, 
    -0.166733049111574, 0.833267261226104, -0.166634902829551, 
    -0.166746022224502, -0.083379119748118, -0.0833862703468412, 
    -0.0833902101695182, -0.0833776572117641, -0.0833370479323534, 
    -0.0833515760681497, -0.0833285401631488, -0.0833139808097045, 
    -0.0832670766077737, 0.916748731941037, -0.0832753440099169, 
    -0.0833419088513941, -0.083379119748118, -0.0833862703468412, 
    -0.0833902101695182, -0.0833776572117641, -0.0833370479323534, 
    -0.0833515760681497, -0.0833285401631488, -0.0833139808097045, 
    -0.0832670766077737, 0.916748731941037, -0.0832753440099169, 
    -0.0833419088513941, -0.083379119748118, -0.0833862703468412, 
    -0.0833902101695182, -0.0833776572117641, -0.0833370479323534, 
    -0.0833515760681497, -0.0833285401631488, -0.0833139808097045, 
    -0.0832670766077737, 0.916748731941037, -0.0832753440099169, 
    -0.0833419088513941, -0.083379119748118, -0.0833862703468412, 
    -0.0833902101695182, -0.0833776572117641, -0.0833370479323534, 
    -0.0833515760681497, -0.0833285401631488, -0.0833139808097045, 
    -0.0832670766077737, 0.916748731941037, -0.0832753440099169, 
    -0.0833419088513941), median_spans = c(5.1999965, 5.1999965, 
    5.1999965, 5.1999965, 5.1999965, 5.1999965, 5.1999965, 5.1999965, 
    5.1999965, 5.1999965, 5.1999965, 5.1999965, 9, 9, 9, 9, 9, 
    9, 9, 9, 9, 9, 9, 9, 3.5, 3.5, 3.5, 3.5, 3.5, 3.5, 3.5, 3.5, 
    3.5, 3.5, 3.5, 3.5, 4.5, 4.5, 4.5, 4.5, 4.5, 4.5, 4.5, 4.5, 
    4.5, 4.5, 4.5, 4.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 
    0.5, 0.5, 0.5, 0.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0.5, 0.5, 0.5, 0.5, 
    0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 
    0.5, 0.5, 0.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0), remainder = c(-0.577041972771738, 
    1.05871296207943, 3.7680955201874, 2.98527379952963, 1.90582425450827, 
    -2.52706528413797, -1.01366738852962, 0.92504245359691, -0.683129768353999, 
    2.2047575928931, -0.0244388988896844, 0.977671384770992, 
    0.222961527228263, -1.74129053792057, -1.03190797981261, 
    -0.814729700470371, -4.89417924549173, -0.327068784137966, 
    -2.81367088852962, 0.12503895359691, 2.516866731646, -2.5952459071069, 
    1.17555760111032, 0.177667884770992, -0.277038472771738, 
    4.75870946207943, -0.531907979812606, -1.31472970047037, 
    0.605820754508267, 0.172931215862034, 0.686329111470378, 
    11.6250389535969, 1.016866731646, -4.0952459071069, -0.324442398889684, 
    -2.32233211522901, 0.722961527228262, -4.24129053792057, 
    -1.53190797981261, -0.31472970047037, 2.60582075450827, 3.17293121586203, 
    4.68632911147038, 0.62503895359691, -0.983133268353999, 5.9047540928931, 
    1.67555760111032, -7.32233211522901, 0.666628851119491, -0.333413861035101, 
    -0.333406243366103, -0.333409806005475, 1.66669228026644, 
    -0.333330730665378, 0.666718772272612, -0.333325975503574, 
    1.66673304911157, -0.333267261226104, -0.333365097170449, 
    0.666746022224502, 0.166628851119491, 0.166586138964899, 
    0.166593756633897, 22.1665901939945, 0.166692280266443, 0.166669269334622, 
    0.166718772272612, 0.166674024496426, 0.166733049111574, 
    2.1667327387739, 0.166634902829551, 0.166746022224502, 0.166628851119491, 
    0.166586138964899, 0.166593756633897, 0.166590193994525, 
    0.166692280266443, 0.166669269334622, 0.166718772272612, 
    2.16667402449643, 0.166733049111574, 0.166732738773896, 1.16663490282955, 
    0.166746022224502, -1.33337114888051, 0.666586138964899, 
    4.6665937566339, 0.666590193994525, -0.333307719733557, -0.333330730665378, 
    -0.333281227727388, -0.333325975503574, 0.666733049111574, 
    -0.333267261226104, 1.66663490282955, -0.333253977775498, 
    0.083379119748118, 0.0833862703468412, 0.0833902101695182, 
    0.0833776572117641, 2.08333704793235, 0.0833515760681497, 
    0.0833285401631488, 1.0833139808097, 3.08326707660777, 2.08325126805896, 
    0.0832753440099169, 0.0833419088513941, -0.416620880251882, 
    -0.416613729653159, -0.416609789830482, -0.416622342788236, 
    3.58333704793235, -0.41664842393185, 0.583328540163149, -0.416686019190295, 
    1.58326707660777, 3.58325126805896, 0.583275344009917, 0.583341908851394, 
    1.08337911974812, 0.0833862703468412, 0.0833902101695182, 
    0.0833776572117641, 0.0833370479323534, 0.0833515760681497, 
    1.08332854016315, 0.0833139808097045, 0.0832670766077737, 
    0.0832512680589631, 0.0832753440099169, 0.0833419088513941, 
    0.083379119748118, 0.0833862703468412, 0.0833902101695182, 
    0.0833776572117641, 0.0833370479323534, 0.0833515760681497, 
    0.0833285401631488, 0.0833139808097045, 0.0832670766077737, 
    0.0832512680589631, 0.0832753440099169, 2.08334190885139), 
    remainder_l1 = c(-4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -4.94423998719938, -4.94423998719938, -4.94423998719938, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    -2.12692963595941, -2.12692963595941, -2.12692963595941, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368, 
    0.083149751234368, 0.083149751234368, 0.083149751234368), 
    remainder_l2 = c(5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932, 
    5.1943178943932, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866, 
    2.46026817462866, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758, 0.0835437336851758, 0.0835437336851758, 
    0.0835437336851758), anomaly = c("No", "No", "No", "No", 
    "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", 
    "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", 
    "No", "No", "No", "No", "No", "No", "No", "Yes", "No", "No", 
    "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", 
    "No", "Yes", "No", "Yes", "No", "No", "No", "No", "No", "No", 
    "No", "No", "No", "No", "No", "No", "No", "No", "No", "Yes", 
    "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", 
    "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", 
    "No", "No", "Yes", "No", "No", "No", "No", "No", "No", "No", 
    "No", "No", "No", "No", "No", "No", "Yes", "No", "No", "No", 
    "Yes", "Yes", "No", "No", "No", "No", "No", "No", "Yes", 
    "No", "No", "No", "Yes", "Yes", "No", "No", "No", "No", "No", 
    "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", 
    "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", 
    "Yes"), recomposed_l1 = c(1.03279498557236, 2.99704705072119, 
    1.28766449261323, 1.07048621327099, -1.85006424170765, -1.41717470306141, 
    -0.930572598669758, -4.86928244079629, -1.26111021884538, 
    5.85100241990752, -1.9198010883097, 3.07808862802963, 4.83279848557236, 
    6.79705055072119, 5.08766799261323, 4.87048971327099, 1.94993925829235, 
    2.38282879693859, 2.86943090133024, -1.06927894079629, 2.53889328115462, 
    9.65100591990752, 1.8802024116903, 6.87809212802963, -0.667201514427642, 
    1.29705055072119, -0.412332007386775, -0.62951028672901, 
    -3.55006074170765, -3.11717120306141, -2.63056909866976, 
    -6.56927894079629, -2.96110671884538, 4.15100591990752, -3.6197975883097, 
    1.37809212802963, 0.332798485572358, 2.29705055072119, 0.587667992613225, 
    0.37048971327099, -2.55006074170765, -2.11717120306141, -1.63056909866976, 
    -5.56927894079629, -1.96110671884538, 5.15100591990752, -2.6197975883097, 
    2.37809212802963, -0.793558487078905, -1.79351577492431, 
    -1.79352339259331, -1.79351982995394, -1.79362191622586, 
    -1.79359890529404, -1.79364840823203, -1.79360366045584, 
    -1.79366268507099, -0.793662374733311, -1.79356453878897, 
    -1.79367565818392, -1.29355848707891, -2.29351577492431, 
    -2.29352339259331, -2.29351982995394, -2.29362191622586, 
    -2.29359890529404, -2.29364840823203, -2.29360366045584, 
    -2.29366268507099, -1.29366237473331, -2.29356453878897, 
    -2.29367565818392, -1.29355848707891, -2.29351577492431, 
    -2.29352339259331, -2.29351982995394, -2.29362191622586, 
    -2.29359890529404, -2.29364840823203, -2.29360366045584, 
    -2.29366268507099, -1.29366237473331, -2.29356453878897, 
    -2.29367565818392, -0.793558487078905, -1.79351577492431, 
    -1.79352339259331, -1.79351982995394, -1.79362191622586, 
    -1.79359890529404, -1.79364840823203, -1.79360366045584, 
    -1.79366268507099, -0.793662374733311, -1.79356453878897, 
    -1.79367565818392, -0.000229368513749911, -0.000236519112473146, 
    -0.000240458935150178, -0.000227905977396026, -0.00018729669798534, 
    -0.000201824833781672, -0.00017878892878076, -0.000164229575336461, 
    -0.000117325373405613, 0.999898483175405, -0.000125592775548883, 
    -0.000192157617026067, 0.49977063148625, 0.499763480887527, 
    0.49975954106485, 0.499772094022604, 0.499812703302015, 0.499798175166218, 
    0.499821211071219, 0.499835770424663, 0.499882674626594, 
    1.4998984831754, 0.499874407224451, 0.499807842382974, -0.000229368513749911, 
    -0.000236519112473146, -0.000240458935150178, -0.000227905977396026, 
    -0.00018729669798534, -0.000201824833781672, -0.00017878892878076, 
    -0.000164229575336461, -0.000117325373405613, 0.999898483175405, 
    -0.000125592775548883, -0.000192157617026067, -0.000229368513749911, 
    -0.000236519112473146, -0.000240458935150178, -0.000227905977396026, 
    -0.00018729669798534, -0.000201824833781672, -0.00017878892878076, 
    -0.000164229575336461, -0.000117325373405613, 0.999898483175405, 
    -0.000125592775548883, -0.000192157617026067), recomposed_l2 = c(11.1713528671649, 
    13.1356049323138, 11.4262223742058, 11.2090440948636, 8.28849363988493, 
    8.72138317853117, 9.20798528292282, 5.26927544079629, 8.8774476627472, 
    15.9895603015001, 8.21875679328289, 13.2166465096222, 14.9713563671649, 
    16.9356084323138, 15.2262258742058, 15.0090475948636, 12.0884971398849, 
    12.5213866785312, 13.0079887829228, 9.06927894079629, 12.6774511627472, 
    19.7895638015001, 12.0187602932829, 17.0166500096222, 9.47135636716494, 
    11.4356084323138, 9.72622587420581, 9.50904759486357, 6.58849713988493, 
    7.02138667853117, 7.50798878292282, 3.56927894079629, 7.1774511627472, 
    14.2895638015001, 6.51876029328288, 11.5166500096222, 10.4713563671649, 
    12.4356084323138, 10.7262258742058, 10.5090475948636, 7.58849713988493, 
    8.02138667853117, 8.50798878292282, 4.56927894079629, 8.1774511627472, 
    15.2895638015001, 7.51876029328288, 12.5166500096222, 3.79363932350917, 
    2.79368203566376, 2.79367441799476, 2.79367798063413, 2.79357589436222, 
    2.79359890529404, 2.79354940235605, 2.79359415013223, 2.79353512551708, 
    3.79353543585476, 2.79363327179911, 2.79352215240416, 3.29363932350917, 
    2.29368203566376, 2.29367441799476, 2.29367798063413, 2.29357589436222, 
    2.29359890529404, 2.29354940235605, 2.29359415013223, 2.29353512551708, 
    3.29353543585476, 2.29363327179911, 2.29352215240416, 3.29363932350917, 
    2.29368203566376, 2.29367441799476, 2.29367798063413, 2.29357589436222, 
    2.29359890529404, 2.29354940235605, 2.29359415013223, 2.29353512551708, 
    3.29353543585476, 2.29363327179911, 2.29352215240416, 3.79363932350917, 
    2.79368203566376, 2.79367441799476, 2.79367798063413, 2.79357589436222, 
    2.79359890529404, 2.79354940235605, 2.79359415013223, 2.79353512551708, 
    3.79353543585476, 2.79363327179911, 2.79352215240416, 0.000164613937057828, 
    0.000157463338334593, 0.000153523515657561, 0.000166076473411714, 
    0.0002066857528224, 0.000192157617026067, 0.00021519352202698, 
    0.000229752875471279, 0.000276657077402126, 1.00029246562621, 
    0.000268389675258857, 0.000201824833781672, 0.500164613937058, 
    0.500157463338335, 0.500153523515658, 0.500166076473412, 
    0.500206685752822, 0.500192157617026, 0.500215193522027, 
    0.500229752875471, 0.500276657077402, 1.50029246562621, 0.500268389675259, 
    0.500201824833782, 0.000164613937057828, 0.000157463338334593, 
    0.000153523515657561, 0.000166076473411714, 0.0002066857528224, 
    0.000192157617026067, 0.00021519352202698, 0.000229752875471279, 
    0.000276657077402126, 1.00029246562621, 0.000268389675258857, 
    0.000201824833781672, 0.000164613937057828, 0.000157463338334593, 
    0.000153523515657561, 0.000166076473411714, 0.0002066857528224, 
    0.000192157617026067, 0.00021519352202698, 0.000229752875471279, 
    0.000276657077402126, 1.00029246562621, 0.000268389675258857, 
    0.000201824833781672), observed_cleaned = c(5.399993, 9, 
    10, 9, 5, 1, 3, 1, 3, 13, 3, 9, 10, 10, 9, 9, 2, 7, 5, 4, 
    10, 12, 8, 12, 4, 11, 4, 3, 2, 2, 3, -1.62503895359691, 3, 
    5, 1, 4, 6, 3, 4, 5, 5, 6, 8, 0, 2, 10.0952459071069, 4, 
    7.32233211522901, 2, 0, 0, 0, 2, 0, 1, 0, 2, 1, 0, 1, 1, 
    0, 0, -0.166590193994525, 0, 0, 0, 0, 0, 3, 0, 0, 1, 0, 0, 
    0, 0, 0, 0, 2, 0, 1, 1, 0, 0, 1, 0.333406243366103, 1, 0, 
    0, 0, 0, 1, 1, 2, 0, 0, 0, 0, 0, -0.0833370479323534, 0, 
    0, 1, -0.0832670766077737, 0.916748731941037, 0, 0, 0, 0, 
    0, 0, 0.416662952067647, 0, 1, 0, 0.416732923392226, 1.41674873194104, 
    1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 1, 0, -0.0833419088513941)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -144L))

test.df$mean.with.no.anomalies<- test.df %>% 
  group_by(Product.ID,Location.ID,Month) %>%
  case_when(anomaly="No",mean(ADJUSTEDSALESUNITS))

this works

test.df<-test.df %>% 
  group_by(Product.ID,Location.ID,Month) %>%
  mutate(mean.with.no.anomalies = case_when(
    anomaly == "No" ~ mean(ADJUSTEDSALESUNITS)
  ))

Thank you all

Thank you though. One question does the above method calculates mean without considering the values which have Anomaly= "Yes"

Is there a way to retrieve the original data frame with all the columns and rows along with this newly created column after doing the summarise option

use dplyr left or right joins as needed.

library(tidyverse)
# original table
(a <- tibble(iris))
# summary of original table
(b <- group_by(a,
               Species) %>%
    summarise(avg_pw=mean(Petal.Width)))

#combine
left_join(a,b)

Thank you. It worked

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.