如何解决合并R数据框中的单元格并将结果下载为Excel工作表
I have the following dataframe in R
Sample=data.frame('A_P1_P2_2013_X_F'=c(1,2,20,50,90,200,NA),'A_P1_P2_2013_X_A'=c(1,NA,'A_P1_P2_2013_Y_F'=c(1,'A_P1_P2_2013_Y_A'=c(1,'A_P1_P2_2013_Z_F'=c(1,'A_P1_P2_2013_Z_A'=c(1,"G_P1_O1_2013_X_F"=c(1,"G_P1_O1_2013_X_A"=c(1,"G_P1_O1_2013_Y_F"=c(1,"G_P1_O1_2013_Y_A"=c(1,"G_P1_O1_2013_Z_F"=c(1,"G_P1_O1_2013_Z_A"=c(1,NA))
我已在代码中对数据框进行了以下处理
Sample_head<-Sample[1,]##SPLIT INTO 2 Parts
Sample_head<-data.frame(Sample_head,check.names = FALSE)
Sample_head[1,]<-colnames(Sample_head)##FILL WITH COLUMN NAMES
Sample_head3<-rbind(Sample_head,Sample_head,Sample_head)###CREATE a dataframe with 6 rows
现在我已运行以下函数来使用lapply提取所选值
splitter1<-function(x){strsplit(x,split = "_")[[1]][1] }
splitter2<-function(x){strsplit(x,split = "_")[[1]][2] }
splitter3<-function(x){strsplit(x,split = "_")[[1]][3] }
splitter4<-function(x){strsplit(x,split = "_")[[1]][4] }
splitter5<-function(x){strsplit(x,split = "_")[[1]][5] }
splitter6<-function(x){strsplit(x,split = "_")[[1]][6] }
以上功能适用于
Sample_head3[1,]<-lapply(Sample_head3[1,],splitter1 )
Sample_head3[2,]<-lapply(Sample_head3[2,splitter2 )
Sample_head3[3,]<-lapply(Sample_head3[3,splitter3 )
Sample_head3[4,]<-lapply(Sample_head3[4,splitter4 )
Sample_head3[5,]<-lapply(Sample_head3[5,splitter5 )
Sample_head3[6,]<-lapply(Sample_head3[6,splitter6 )
接下来,我们将Sample_head3与Sample结合如下
Combo_Dataset<-rbind(Sample_head3,Sample )
以上步骤已产生以下数据框
加载我如何获得此结果并将其下载到R中。我要求有人指出正确的方向。同样需要使用闪亮的应用程序下载
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。