0

このようにデータフレームを見る：

set.seed(3)
Data1<-rnorm(20, mean=20)
Dir_1<-rnorm(20,mean=2)
Data2<-rnorm(20, mean=21)
Dir_2<-rnorm(20,mean=2)
Data3<-rnorm(20, mean=22)
Dir_3<-rnorm(20,mean=2)
Data4<-rnorm(20, mean=19)
Dir_4<-rnorm(20,mean=2)
Data5<-rnorm(20, mean=20)
Dir_5<-rnorm(20,mean=2)
Data6<-rnorm(20, mean=23)
Dir_6<-rnorm(20,mean=2)
Data7<-rnorm(20, mean=21)
Dir_7<-rnorm(20,mean=2)
Data8<-rnorm(20, mean=25)
Dir_8<-rnorm(20,mean=2)
Index<-rnorm(20,mean=5)
DF<-data.frame(Data1,Dir_1,Data2,Dir_2,Data3,Dir_3,Data4,Dir_4,Data5,Dir_5,Data6,Dir_6,Data7,Dir_7,Data8,Dir_8,Index)

最終的に、観測ごとに2列のデータ（観測1〜8に基づく）とインデックスを持つデータフレームになります。このインデックスに基づいて、特定のデータ観測を削除（またはNA）したいと思います。

例として：

インデックスが5より大きい場合は、その行に観測値8（データと方向の両方）をドロップします

インデックスが4より大きい場合は、その行の観測値7と8を削除します

インデックスが3より大きく3.5より小さい場合は、その行に6,7,8をドロップします

インデックス値に基づいて各行の列を削除できる一連の「if」ステートメントを考え出すことを望んでいました。

4

1 に答える 1

1

「行の列を削除する」のではなく、適切な行の適切な列に NA を配置することが必要であると仮定すると、一連のifステートメントではなく、いくつかのインデックス ベクトルを使用する必要があります。

DF[DF$Index>3 & DF$Index<3.5, (6*2-1):(8*2)] <- NA
DF[DF$Index>4, (7*2-1):(8*2)] <- NA
DF[DF$Index>5, (8*2-1):(8*2)] <- NA
于 2013-03-20T22:18:53.493 に答える