英文:
First and last name permutation in datasets
问题
Here are the translations for the code part of your request:
我有一个数据集（近 26,000 行），其中每列显示如下的名字和姓氏：Id Name Firstname1 Firstname2 Firstname31 AL BE GAM ZET2 IO PA TA MA我希望在结果列中得到所有可能的名字和姓氏排列，如下所示：Id Name Firstname1 Firstname2 Firstname3 Result1 Result2... Resultatn1 AL BE GAM ZET ALBEGAMZET ALBEZETGAM GAMZETBEAL2 IO PA TA MA IOPATAMA IOPAMATA TAMAIOPAIO谢谢你的帮助！我尝试了以下方法，但我正在寻求通用的帮助：df$result1<-paste(df$Name, df$Firstname1,df$Firstname2,df$Firstname3)df$result2<-paste(df$Name, df$Firstname1,df$Firstname3,df$Firstname2)
Please note that I've translated only the code part as per your request. If you have any further questions or need assistance with anything else, feel free to ask.
英文:
I have a dataset (nearly 26,000 rows) where I have the first and last names in each column as shown below:
Id Name Firstname1 Firstname2 Firstname31 AL BE GAM ZET2 IO PA TA MA
I want all possible permutations of the first and last names in the result column as follows:
Id Name Firstname1 Firstname2 Firstname3 Result1 Result2... Resultatn1 AL BE GAM ZET ALBEGAMZET ALBEZETGAM GAMZETBEAL2 IO PA TA ME IOPATAME IOPAMETA TAMEPAIO
Thanks for your help!
I've tried this but I'm looking for help to generalize
df$result1<-paste(df$Name, df$Firstname1,df$Firstname2,df$Firstname3)df$result2<-paste(df$Name, df$Firstname1,df$Firstname3,df$Firstname2)
答案1
得分: 0
你可以使用combinat::permn或gtools::permutations来创建列的排列组合。然后，对于每个组合，你可以按指定的顺序将列粘贴在一起。
df1 <- tribble(~Id ,~Name ,~Firstname1 ,~Firstname2 ,~Firstname3,1 , "AL" , "BE" , "GAM" , "ZET",2 , "IO" , "PA" , "TA" , "MA",)options <- combinat::permn(colnames(df1)[-(1:2)])df2 <- map_dfc(options, ~ pmap_chr(df1[,c("Name", .x)], ~ paste0(..., collapse = ""))) %>%set_names(paste0("Result", 1:length(options))) %>%bind_cols(df1, .)
所以对于每个option .x，我们选择了数据框中的列，并将它们的行粘贴在一起。
英文:
You can create the permutations of the columns with combinat::permn or gtools::permutations. Then, for each combination, you can paste the columns together in the specified oder.
df1 <- tribble(~Id ,~Name ,~Firstname1 ,~Firstname2 ,~Firstname3,1 , "AL" , "BE" , "GAM" , "ZET",2 , "IO" , "PA" , "TA" , "MA",)options <- combinat::permn(colnames(df1)[-(1:2)])df2 <- map_dfc(options, ~ pmap_chr(df1[,c("Name", .x)], ~ paste0(..., collapse = ""))) %>%set_names(paste0("Result", 1:length(options))) %>%bind_cols(df1, .)
So for each option .x, we are selecting the columns of the dataframe in that order (df1[,c("Name", .x)]), and pasting their rows together.
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论