r - 在同一数据框中,基于“:”在日期框中分隔多个列?
问题描述
我意识到有很多问题都在问类似的问题,但我无法复制这些解决方案。
我有一个数据框如下:
vcf<-data.frame(
v1 = c(10, 15, 30),
v2 = c(10, 30, 80),
v3 = c(3,4,7),
v4 = as.factor(c('4:4:3','.','.')),
v5 = as.factor(c('4:7:2','4:2:7','3:5:7'))
)
我想要实现的是最后两列分为六列:
vcf2<-data.frame(
v1 = c(10, 15, 30),
v2 = c(10, 30, 80),
v3 = c(3,4,7),
v4 = as.factor(c(4,'.','.')),
v5 = as.factor(c(4,'.','.')),
v6 = as.factor(c(3,'.','.')),
v7 = as.factor(c(4,4,3)),
v8 = as.factor(c(7,2,5)),
v9 = as.factor(c(2,7,7))
)
到目前为止,我已经尝试过其他帖子中的解决方案,我觉得最有希望的解决方案如下:
within(vcf, vcf$v4<-data.frame(do.call('rbind',strsplit(as.character(vcf$v4), '\\:', fixed=TRUE))))
但它并没有接近。
任何帮助表示赞赏,谢谢。
解决方案
您可以折叠数据并使用:
分隔符读取它
read.table(text=sub("NA",".:.:.",do.call(paste,c(sep=':',vcf))),sep=":")
V1 V2 V3 V4 V5 V6 V7 V8 V9
1 10 10 3 4 4 3 4 7 2
2 15 30 4 . . . 4 2 7
3 30 80 7 . . . 3 5 7
要转换上述内容,只需添加参数,na.strings="."
即:
read.table(text=sub("NA",".:.:.",do.call(paste,c(sep=':',vcf))),sep=":",na.strings = ".")
您还可以编写一个递归方法,使用separate
since separate 一次只能处理一列:
library(tidyverse)
M = function(df,x,i=1,...){
df = separate(df,x[i],paste0(x[i],1:3),...)
if (i==length(x)) df else M(df,x,i+1,...)
}
M(vcf,c("v4","v5"))
v1 v2 v3 v41 v42 v43 v51 v52 v53
1 10 10 3 4 4 3 4 7 2
2 15 30 4 <NA> <NA> <NA> 4 2 7
3 30 80 7 <NA> <NA> <NA> 3 5 7
要将类型转换为数字:
M(vcf,c("v4","v5"),convert=T)
v1 v2 v3 v41 v42 v43 v51 v52 v53
1 10 10 3 4 4 3 4 7 2
2 15 30 4 NA NA NA 4 2 7
3 30 80 7 NA NA NA 3 5 7
推荐阅读
- android - 设备与 PC 断开连接时连接失败
- python - 是否可以在后端为表单设置 enctype="multipart/form-data" ?
- c# - 第二次调用 Setup 时出现 UnexpectedArgumentMatcherException
- c# - 如何在 ASP.NET Core 中发送带有 HTTP 基本授权的 HTTP POST?
- excel - Is there any ways to replace nested if in excel-vba?
- excel - 自动向多个收件人发送电子邮件
- python - 如何在flask sqlalchemy中基于多个模型过滤一个模型?
- c# - 如何使用 selenium C# 单击按钮 recaptcha
- amazon-web-services - 通过 aws-cdk 进行 VPC 对等互连
- python - 如何修复“list.remove[x]:x不在列表中