求助： R语言中，将一个表中的若干列复制到另外一个表中，怎么编程实现？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有一个表XXX，格式如下：
  A   B    C    D    E    F    G （列名)  ...
111  1   2    3    DD  4   F
112  2   3    3    A4   5   F


现在需要将这个表中的某些列复制到另外一个表中，需要复制的列定义在表 YYY 中，表格式如下
Attribute     Number
A                   0
B                   0
E                   0
F                   1


就是要把ABEF 这四列复制到一个新的表中， 这样的代码应该怎么写？  谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：怎么编程 R语言 attribute tribute Number 怎么编程

用以下代码试试吧：

1. #生成data.frame
   
2. zz <- as.data.frame(mapply(rep,1:4,4))
   
3. # 命名
   
4. names(zz) <- toupper(letters[1:4])
   
5. # 创建写出的文件名称
   
6. fname <- paste(col_tobe_written,".csv",sep="")
   
7. # 定义要被写出的列
   
8. col_tobe_written <- c("A","C")
   
9. # 用循环写出文件
   
10. for(i in 1:length(fname))
    
11. {
    
12. x <- zz[col_tobe_written[i]]
    
13. write.csv(x,fname[i],row.names=F)
    
14. rm(x)
    
15. }

复制代码

jiangbeilu 发表于 2016-4-6 17:30
用以下代码试试吧：

谢谢你，问题解决了，代码如下：

common <- YYY$Attribute

dat1 <- XXX[,(names(XXX) %in% common)]