(데이터 프레임 내에서) mutiplication 코드를 R로 단축

Question

이 코드는 R에서 일련의 곱셈과 덧셈을 수행합니다. 누군가가 * apply를 사용하여 더 깔끔하고 짧게 만들 것을 제안 할 수 있습니까?

"시리즈", "곱하기"와 같은 키워드로 둘러 보았지만 어디에도 없었습니다. 이 질문이 전에 게시 된 경우 링크를 알려주십시오. 고맙습니다.

df1n은> 78 변수 및 215 관찰을 갖는 data.frame입니다.

dff[,3]<-(df1n[5]*((df1n[25]*df1n[26]*df1n[27]) + (df1n[28]*df1n[29]*df1n[30]) + 
     (df1n[31]*df1n[32]*df1n[33]) + (df1n[34]*df1n[35]*df1n[36]) + 
     (df1n[37]*df1n[38]*df1n[39]) + (df1n[40]*df1n[41]*df1n[42]) + 
     (df1n[61]*df1n[62]*df1n[63]) + (df1n[64]*df1n[65]*df1n[66]) + 
     (df1n[67]*df1n[68]*df1n[69]) + (df1n[70]*df1n[71]*df1n[72]) + 
     (df1n[73]*df1n[74]*df1n[75]) + (df1n[76]*df1n[77]*df1n[78])) 
     ) 

감사합니다, 나는 (A*B*C) 조각의 각 지표의 목록을 구성 할 lapply()을 사용하십시오

Answer 1

ikel. 그런 다음 해당 색인을 sapply으로 전달하고 각 요소 집합을 df1n에서 추출한 다음 prod()을 곱합니다.

df1n <- 1:100 
ll <- lapply(c(seq(25, 40, by=3), seq(61, 76, by=3)), 
      function(X) seq(X, by=1, length.out=3)) 
df1n[5] * sum(sapply(ll, function(i) prod(df1n[i]))) 
# [1] 11439180 

---

편집 : 나머지는 자명하다 지금은 df1n의 각 요소는 길이 215 벡터 것을 알고, 여기에 코드의 내가 대신 좋을 것 :

# Example data (a list in which each element is a vector of length 215). 
x <- replicate(100, 1:215, simplify=FALSE) 
ll <- lapply(seq(25, 76, by=3), function(X) seq(X, by=1, length.out=3)) 
res <- x[[5]] * rowSums(sapply(ll, function(i) Reduce("*", x[i]))) 

str(res) 
# num [1:215] 18 288 1458 4608 11250 ... 

Answer 2

아래 샘플 데이터에서 원래 코드와 동일한 출력을 생성하는 Josh 솔루션의 변형입니다.

# Some sample data 
df1n <- as.data.frame(lapply(1:80, function(i) seq(i, len=5))) 

df1n[5] * rowSums(sapply(c(seq(25,40,3), seq(61,76,3)), 
    function(i) df1n[[i]]*df1n[[i+1]]*df1n[[i+2]])) 
# c.5..6..7..8..9. 
#1   11439180 
#2   14386680 
#3   17580528 
#4   21032640 
#5   24755220