R语言处理数据——多组元素排列组合（全排列）

多组元素排列组合

有多组character需要进行排列组合，例如，我有多个基因，每个基因有三种基因型（aa, ab, bb），需要对它们进行排列组合，来计算组合后的基因型带来的风险值等等。代码如下：

require(utils)
library(permutations)
Sys.setlocale(category = "LC_ALL",locale = "Chinese")
all_data <- expand.grid(SL = c('GG','TG','TT'),
            IF= c('AA','GG','GA'),
            TM = c('AA','GG','GA'),
            C = c('TT','CT','CC'),
            CD = c('GG','AG','AA'),
            VD = c('AA','AG','GG'))
all_data$id <- as.numeric(rownames(all_data))+20230317000
all_data$sample_id <- as.numeric(rownames(all_data))+20230317000
all_data$project <- '检测（纸质版）'
all_data$taocan <- 'HXD001'
all_data$date <- as.Date('2023-03-17')
all_data$name <- paste0('测试样本',as.numeric(rownames(all_data)))
all_data$sex <- '男'
all_data$tel <- 'XXXXXXXXXXX'
all_data$birth <- as.Date('2002-02-21')
all_data$info <- 'info'

#输出中文需要添加：fileEncoding="GB18030"
write.csv(all_data,file = "测试样本信息.csv",fileEncoding = "GB18030")

输出结果

输出csv中文乱码解决

#输出中文需要添加：fileEncoding="GB18030"
write.csv(all_data,file = "测试样本信息.csv",fileEncoding = "GB18030")