英文:
make a group index for df
问题
You can achieve this in R using the mutate function from the dplyr package. Here's the code to add the new "group" column to your tibble:
library(dplyr)# Assuming your tibble is named "df"df <- df %>%mutate(group = rep(1:4, each = 5))
This code will add a new column named "group" with values 1, 2, 3, and 4 in the pattern you described.
英文:
Say I have a df with 20 addresses, how do I add an index of four groups of five to it? The new column should be 1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4.
E.g. how do I turn this tibble:
tibble::tribble(~num_street, ~city, ~sate, ~zip_code,"976 FAIRVIEW DR", "SPRINGFIELD", "OR", 97477L,"19843 HWY 213", "OREGON CITY", "OR", 97045L,"402 CARL ST", "DRAIN", "OR", 97435L,"304 WATER ST", "WESTON", "OR", 97886L,"5054 TECHNOLOGY LOOP", "CORVALLIS", "OR", 97333L,"3401 YACHT AVE", "LINCOLN CITY", "OR", 97367L,"135 ROOSEVELT AVE", "BEND", "OR", 97702L,"3631 FENWAY ST", "FOREST GROVE", "OR", 97116L,"92250 HILLTOP LN", "COQUILLE", "OR", 97423L,"6920 92ND AVE", "TIGARD", "OR", 97223L,"591 LAUREL ST", "JUNCTION CITY", "OR", 97448L,"32035 LYNX HOLLOW RD", "CRESWELL", "OR", 97426L,"6280 ASTER ST", "SPRINGFIELD", "OR", 97478L,"17533 VANGUARD LN", "BEAVERTON", "OR", 97007L,"59937 CHEYENNE RD", "BEND", "OR", 97702L,"2232 42ND AVE", "SALEM", "OR", 97317L,"3100 TURNER RD", "SALEM", "OR", 97302L,"3495 CHAMBERS ST", "EUGENE", "OR", 97405L,"585 WINTER ST", "SALEM", "OR", 97301L,"23985 VAUGHN RD", "VENETA", "OR", 97487L)
Into this:
tibble::tribble(~group, ~num_street, ~city, ~state, ~zip_code,1L, "976 FAIRVIEW DR", "SPRINGFIELD", "OR", 97477L,1L, "19843 HWY 213", "OREGON CITY", "OR", 97045L,1L, "402 CARL ST", "DRAIN", "OR", 97435L,1L, "304 WATER ST", "WESTON", "OR", 97886L,1L, "5054 TECHNOLOGY LOOP", "CORVALLIS", "OR", 97333L,2L, "3401 YACHT AVE", "LINCOLN CITY", "OR", 97367L,2L, "135 ROOSEVELT AVE", "BEND", "OR", 97702L,2L, "3631 FENWAY ST", "FOREST GROVE", "OR", 97116L,2L, "92250 HILLTOP LN", "COQUILLE", "OR", 97423L,2L, "6920 92ND AVE", "TIGARD", "OR", 97223L,3L, "591 LAUREL ST", "JUNCTION CITY", "OR", 97448L,3L, "32035 LYNX HOLLOW RD", "CRESWELL", "OR", 97426L,3L, "6280 ASTER ST", "SPRINGFIELD", "OR", 97478L,3L, "17533 VANGUARD LN", "BEAVERTON", "OR", 97007L,3L, "59937 CHEYENNE RD", "BEND", "OR", 97702L,4L, "2232 42ND AVE", "SALEM", "OR", 97317L,4L, "3100 TURNER RD", "SALEM", "OR", 97302L,4L, "3495 CHAMBERS ST", "EUGENE", "OR", 97405L,4L, "585 WINTER ST", "SALEM", "OR", 97301L,4L, "23985 VAUGHN RD", "VENETA", "OR", 97487L)
I know this is incredibly easy; i'm still getting to grips with R though and I have gaps on some of this basic stuff...
答案1
得分: 2
我们可以使用 gl() 函数：
library(dplyr)df %>%mutate(group = as.integer(gl(n(), 5, n())))
# 一个 tibble: 20 × 5num_street city sate zip_code group<chr> <chr> <chr> <int> <int>1 976 FAIRVIEW DR SPRINGFIELD OR 97477 12 19843 HWY 213 OREGON CITY OR 97045 13 402 CARL ST DRAIN OR 97435 14 304 WATER ST WESTON OR 97886 15 5054 TECHNOLOGY LOOP CORVALLIS OR 97333 16 3401 YACHT AVE LINCOLN CITY OR 97367 27 135 ROOSEVELT AVE BEND OR 97702 28 3631 FENWAY ST FOREST GROVE OR 97116 29 92250 HILLTOP LN COQUILLE OR 97423 210 6920 92ND AVE TIGARD OR 97223 211 591 LAUREL ST JUNCTION CITY OR 97448 312 32035 LYNX HOLLOW RD CRESWELL OR 97426 313 6280 ASTER ST SPRINGFIELD OR 97478 314 17533 VANGUARD LN BEAVERTON OR 97007 315 59937 CHEYENNE RD BEND OR 97702 316 2232 42ND AVE SALEM OR 97317 417 3100 TURNER RD SALEM OR 97302 418 3495 CHAMBERS ST EUGENE OR 97405 419 585 WINTER ST SALEM OR 97301 420 23985 VAUGHN RD VENETA OR 97487 4
英文:
We could use gl() function:
library(dplyr)df %>%mutate(group =as.integer(gl(n(),5,n())))
# A tibble: 20 × 5num_street city sate zip_code group<chr> <chr> <chr> <int> <int>1 976 FAIRVIEW DR SPRINGFIELD OR 97477 12 19843 HWY 213 OREGON CITY OR 97045 13 402 CARL ST DRAIN OR 97435 14 304 WATER ST WESTON OR 97886 15 5054 TECHNOLOGY LOOP CORVALLIS OR 97333 16 3401 YACHT AVE LINCOLN CITY OR 97367 27 135 ROOSEVELT AVE BEND OR 97702 28 3631 FENWAY ST FOREST GROVE OR 97116 29 92250 HILLTOP LN COQUILLE OR 97423 210 6920 92ND AVE TIGARD OR 97223 211 591 LAUREL ST JUNCTION CITY OR 97448 312 32035 LYNX HOLLOW RD CRESWELL OR 97426 313 6280 ASTER ST SPRINGFIELD OR 97478 314 17533 VANGUARD LN BEAVERTON OR 97007 315 59937 CHEYENNE RD BEND OR 97702 316 2232 42ND AVE SALEM OR 97317 417 3100 TURNER RD SALEM OR 97302 418 3495 CHAMBERS ST EUGENE OR 97405 419 585 WINTER ST SALEM OR 97301 420 23985 VAUGHN RD VENETA OR 97487 4
答案2
得分: 2
我们也可以使用%/%（整数除法）：
df %>%mutate(group = (row_number() - 1) %/% 5 + 1)# # 一个 tibble：20 × 5# num_street city sate zip_code group# <chr> <chr> <chr> <int> <dbl># 1 976 FAIRVIEW DR SPRINGFIELD OR 97477 1# 2 19843 HWY 213 OREGON CITY OR 97045 1# 3 402 CARL ST DRAIN OR 97435 1# 4 304 WATER ST WESTON OR 97886 1# 5 5054 TECHNOLOGY LOOP CORVALLIS OR 97333 1# 6 3401 YACHT AVE LINCOLN CITY OR 97367 2# 7 135 ROOSEVELT AVE BEND OR 97702 2# 8 3631 FENWAY ST FOREST GROVE OR 97116 2# 9 92250 HILLTOP LN COQUILLE OR 97423 2# 10 6920 92ND AVE TIGARD OR 97223 2# 11 591 LAUREL ST JUNCTION CITY OR 97448 3# 12 32035 LYNX HOLLOW RD CRESWELL OR 97426 3# 13 6280 ASTER ST SPRINGFIELD OR 97478 3# 14 17533 VANGUARD LN BEAVERTON OR 97007 3# 15 59937 CHEYENNE RD BEND OR 97702 3# 16 2232 42ND AVE SALEM OR 97317 4# 17 3100 TURNER RD SALEM OR 97302 4# 18 3495 CHAMBERS ST EUGENE OR 97405 4# 19 585 WINTER ST SALEM OR 97301 4# 20 23985 VAUGHN RD VENETA OR 97487 4
英文:
We can use %/% (integer-division) as well:
df %>%mutate(group = (row_number() - 1) %/% 5 + 1)# # A tibble: 20 × 5# num_street city sate zip_code group# <chr> <chr> <chr> <int> <dbl># 1 976 FAIRVIEW DR SPRINGFIELD OR 97477 1# 2 19843 HWY 213 OREGON CITY OR 97045 1# 3 402 CARL ST DRAIN OR 97435 1# 4 304 WATER ST WESTON OR 97886 1# 5 5054 TECHNOLOGY LOOP CORVALLIS OR 97333 1# 6 3401 YACHT AVE LINCOLN CITY OR 97367 2# 7 135 ROOSEVELT AVE BEND OR 97702 2# 8 3631 FENWAY ST FOREST GROVE OR 97116 2# 9 92250 HILLTOP LN COQUILLE OR 97423 2# 10 6920 92ND AVE TIGARD OR 97223 2# 11 591 LAUREL ST JUNCTION CITY OR 97448 3# 12 32035 LYNX HOLLOW RD CRESWELL OR 97426 3# 13 6280 ASTER ST SPRINGFIELD OR 97478 3# 14 17533 VANGUARD LN BEAVERTON OR 97007 3# 15 59937 CHEYENNE RD BEND OR 97702 3# 16 2232 42ND AVE SALEM OR 97317 4# 17 3100 TURNER RD SALEM OR 97302 4# 18 3495 CHAMBERS ST EUGENE OR 97405 4# 19 585 WINTER ST SALEM OR 97301 4# 20 23985 VAUGHN RD VENETA OR 97487 4
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论