我有一个包含数百种疾病的代码表,每种疾病都有多个代码。如何为每个疾病创建和导出单独的.csv文件,并使用疾病的名称保存它?
Disease <- as.character(c("HIV","HIV", "HIV", "HIV", "anaemia", "anaemia", "anaemia", "Chronic Kidney Disease", "Chronic Kidney Disease"))
Code <- c(123, 432, 567, 876, 433, 096, 543, 912, 456)
codelist <- data.frame(Disease, Code)
codelist
Disease Code
1 HIV 123
2 HIV 432
3 HIV 567
4 HIV 876
5 anaemia 433
6 anaemia 96
7 anaemia 543
8 Chronic Kidney Disease 912
9 Chronic Kidney Disease 456
例如:
> HIV
Disease Code
1 HIV 123
2 HIV 432
3 HIV 567
4 HIV 876
非常感谢!
发布于 2021-10-07 17:02:19
这是一种基于R的方法:
codelist.lst <- split(codelist, codelist$Disease)
fnames <- paste0(names(codelist.lst), ".csv")
lapply(seq(codelist.lst), function(x) write.csv(codelist.lst[[x]], file=fnames[x]))
https://stackoverflow.com/questions/69484804
复制相似问题