[R] Grouping by 3 variable and renaming groups

[Rui Barradas]

Hello,

Sorry, but I think my first answer is wrong.
You probably want something along the lines of


sp <- split(priceStore_Grps, priceStore_Grps$StorePC)
res <- lapply(seq_along(sp), function(i){
     sp[[i]]$StoreID <- paste("Store", i, sep = "_")
     sp[[i]]
})
res <- do.call(rbind, res)
row.names(res) <- NULL


Hope this helps,

Rui Barradas

On 5/26/2018 2:22 PM, Rui Barradas wrote:
> Hello,
> 
> See if this is it:
> 
> priceStore_Grps$StoreID <- paste("Store", 
> seq_len(nrow(priceStore_Grps)), sep = "_")
> 
> 
> Hope this helps,
> 
> Rui Barradas
> 
> On 5/26/2018 2:03 PM, Jeff Reichman wrote:
>> ALCON
>>
>>
>> I'm trying to figure out how to rename groups in a data frame after 
>> groups
>> by selected variabels.  I am using the dplyr library to group my data 
>> by 3
>> variables as follows
>>
>>
>> # group by lat (StoreX)/long (StoreY)
>>
>> priceStore <- LapTopSales[,c(4,5,15,16)]
>>
>> priceStore <- priceStore[complete.cases(priceStore), ]  # keep only 
>> non NA
>> records
>>
>> priceStore_Grps <- priceStore %>%
>>
>>    group_by(StorePC, StoreX, StoreY) %>%
>>
>>    summarize(meanPrice=(mean(RetailPrice)))
>>
>>
>> which results in .
>>
>>
>>> priceStore_Grps
>>
>> # A tibble: 15 x 4
>>
>> # Groups:   StorePC, StoreX [?]
>>
>>     StorePC  StoreX StoreY meanPrice
>>
>>     <fct>     <int>  <int>     <dbl>
>>
>> 1 CR7 8LE  532714 168302      472.
>>
>> 2 E2 0RY   535652 182961      520.
>>
>> 3 E7 8NW   541428 184515      467.
>>
>> 4 KT2 5AU  517917 170243      522.
>>
>> 5 N17 6QA  533788 189994      523.
>>
>>
>> Which is fine, but I then want to give each group (e.g. CR7 8LE  532714
>> 168302) a unique identifier (say) Store 1, 2, 3 or some other unique
>> identifier.
>>
>>
>>     StorePC  StoreX StoreY meanPrice
>>
>>     <fct>     <int>  <int>     <dbl>
>>
>> 1 CR7 8LE  532714 168302      472.   Store 1
>>
>> 2 E2 0RY   535652 182961      520.   Store 2
>>
>> 3 E7 8NW   541428 184515      467.   Store 3
>>
>> 4 KT2 5AU  517917 170243      522.   Store 4
>>
>> 5 N17 6QA  533788 189994      523.   Store 5
>>
>>
>>
>>     [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide 
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
> 
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide 
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.