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]]
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 at 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.
>
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 at 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 at 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.
Rui
That did it
Jeff
-----Original Message-----
From: Rui Barradas <ruipbarradas at sapo.pt>
Sent: Saturday, May 26, 2018 8:23 AM
To: reichmanj at sbcglobal.net; 'R-help' <r-help at r-project.org>
Subject: Re: [R] Grouping by 3 variable and renaming groups
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 at 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.
>