큰 행렬 (m)이 있고 벡터 (values_to_be_replaced)에 저장된 값과 일치하는 행렬 (m)의 값을 새 값 (new_values)으로 바꾸고 싶습니다. 내 벡터 자체는 데이터 프레임에 저장되므로 데이터 프레임을 반복하여 벡터를 얻은 다음 벡터에 행렬 값이 포함되어 있는지 확인할 수 있습니다. 아래 코드는해야 할 일을 수행하지만 입력 데이터에 비해 너무 느립니다. 내 원래 데이터는 4600 개의 행과 5,900 개의 열이있는 행렬이며 750 개 중 가장 큰 벡터에는 비교할 6 백만 개 이상의 숫자가 포함됩니다.
이를 수행하고 계산 시간을 단축하는 더 효율적인 방법이 있다고 생각합니다. 누군가가 그것을 알아 내도록 도와 줄 수 있습니까? (행렬에 -9999 값이 많으므로 건너 뛰면 계산 시간이 향상 될 수 있지만 이것만으로는 충분하지 않습니다.)
다음은 R로 작성된 예입니다.
library("dplyr")
## setting up the input dataframe
df<-setNames(data.frame(matrix(ncol = 4, nrow = 50)), c("ids", "var1", "var2", "var3"))
df$ids<-seq(1, 50,1)
df$var1<-rep(c(2, 4, 2, 1, 3, 5,1, 1,1, 6), each = 5)
df$var2<-rep(c(2, 4, 2, 1, 3, 5,1, 1,1, 6), each = 5)
df$var3<-rep(c(2, 4, 2, 1, 3, 5,1, 1,1, 6), each = 5)
##summarizing it by variables and ids
df<-df%>%
group_by(var1, var2, var3)%>%
summarise(ids=toString(ids))%>%data.frame()
##giving a new value by which values in matrix should be replaced
df$new_values<-c("101", "102", "103", "104", "105", "106")
##setting up a matrix
m = matrix( c(16, -9999,17, -9999, 18), nrow=5, ncol=10, byrow = TRUE) # fill matrix by rows
##looping over dataframe
y<-0
for (i in 1:length(df$ids)) {
values_to_be_replaced<-strsplit(df$ids[i], ",")
values_to_be_replaced<-unlist(values_to_be_replaced, use.names=FALSE)
values_to_be_replaced<-gsub(" ", "", values_to_be_replaced, fixed = TRUE)
print(values_to_be_replaced)
print(i)
#print(length(values_to_be_replaced))
m<-apply(m, 1:2, function(x) ifelse(x %in% values_to_be_replaced, df$new_values[i], x))
#print(values_to_be_replaced)
y<-y+1
}
R에서는 요소를 반복하는 대신 일치하는 요소를 호출 할 수 있습니다.
for (i in 1:length(df$ids)) {
values_to_be_replaced<-strsplit(gsub(" ","",df$ids[i]), ",")[[1]]
values_to_be_replaced<-as.numeric(values_to_be_replaced)
m[m %in% values_to_be_replaced] <- df$new_values[i]
}
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다