0

1 つのマトリックス (data1) の値を使用して、2 番目のマトリックス (data2) をより小さいマトリックス (foo) にサブセット化する方法を決定しています。ただし、fooのサイズを事前に知る方法がないため、問題が発生しています。

これが MWE です (問題の実際のデータ構造体は 100,000 行以上の長さです)。

data1 <- rbind(c(102,250,'stim1'),c(477,839,'stim2'))
data2 <- rbind(c(99,'xx'),c(105,'yy'),c(230,'zz'),c(312,'aa'),c(587,'bb'),c(846,'cc'))

foo <- NULL
for(i in 1:nrow(data1))
{   
        foo[i,1] <- subset(data2,as.numeric(data2[,1]) > as.numeric(data1[i,1]) & as.numeric(data2[,1]) < as.numeric(data1[i,2]))
        foo[i,2] <- rep.int(data1[i,3],nrow(subset(data2,as.numeric(data2[,1]) > as.numeric(data1[i,1]) & as.numeric(data2[,1]) < as.numeric(data1[i,2]))))
}

foo を次のようにしたいと思います。

105 yy stim1
230 zz stim1
587 bb stim2
4

1 に答える 1

1

まず、持っているものを に入れますdata.frame。

data1 <- data.frame(A=c(102, 477), B=c(250, 839), C=c("stim1", "stim2"))
data2 <- data.frame(a=c(99, 105, 230, 312, 587, 846), 
                     b=c("xx", "yy", "zz", "aa", "bb", "cc"))

次に、適用を使用できます。

List <- apply(data1, 1, function(X) 
                     cbind(data2, c=X[[3]])[data2$a > X[1] & data2$a < X[2],])

次に：rbind_list

DF <- do.call(rbind, List)
DF

    a  b     c
2 105 yy stim1
3 230 zz stim1
5 587 bb stim2
于 2013-07-19T16:02:33.017 に答える