给定两个数据框:
C1<-c(3,4,4,4,5)
C2<-c(3,7,3,4,5)
C3<-c(5,6,3,7,4)
DF<-data.frame(C1=C1,C2=C2,C3=C3)
DF
C1 C2 C3
1 3 3 5
2 4 7 6
3 4 3 3
4 4 4 7
5 5 5 4
和
V1<-c(3,2,2,4,5)
V2<-c(3,7,3,5,2)
V3<-c(5,2,5,7,5)
V4<-c(1,1,2,3,4)
V5<-c(1,2,6,7,5)
DF2<-data.frame(V1=V1,V2=V2,V3=V3,V4=V4,V5=V5)
DF2
V1 V2 V3 V4 V5
1 3 3 5 1 1
2 2 7 2 1 2
3 2 3 5 2 6
4 4 5 7 3 7
5 5 2 5 4 5
查看两个数据帧中的每个等效行,C3 中的值与我想在 DF2 中的同一行中删除的列数之间存在关系。
C3 中的值与 DF2 中要删除的列数之间的关系如下所示
If C3≥7 drop V5
If C3=6.0:6.9 drop V4 and up (so basically V5,V4)
If C3=5.0:5.9 drop V3 and up (so basically V5,V4,V3)
If C3=4.0:4.9 drop V2 and up (so basically V5,V4,V3,V2)
If C3≤3.9 drop entire row
对于此示例,基于 C3 的值,我希望 DF2 看起来像这样
V1 V2 V3 V4 V5
1 3 3
2 2 7 2
4 4 5 7 3
5 5
我试过写一个简单的脚本来做到这一点(我很新,所以我喜欢保持简单,这样我就可以看到发生了什么)但我左右抛出错误,所以我很感激一些关于如何继续