Поиск и сумма данных моделирования

Question

У меня есть несколько портфелей и смоделированные данные о запасах и вы хотите найти способ их суммирования. Пытаюсь сделать это в Excel с vlookups но грохот от потери памяти, поэтому я пытаюсь использовать R. Вот некоторые примерные данные:

 > p1 = c("a", "b", "c") 
    > p2 = c("d", "e", "f") 
    >p3 = c("a", "b", "c", "d", "e", "f") 
    > s1 = c(1,2,3,4,5,6) 
    > s1 = c(2,3,4,5,6,7) 
    > p = rbind(p1, p2) 
    > s = cbind(s1, s2) 
    > colnames(p)= c("Stock1", "Stock2", "Stock3") 
    > rownames(s) = p3 

     > p 
      Stock1 Stock2 Stock3 
     p1 "a" "b" "c" 
     p2 "d" "e" "f" 

     > s 
      s1 s2 
     a 1 2 
     b 2 3 
     c 3 4 
     d 4 5 
     e 5 6 
     f 6 7 

Я ищу, чтобы получить такой вывод

p1 "a" "b" "c" 6 9 
p2 "d" "e" "f" 15 18 

надеялся создать матрицу, как этот

i=1 
stocksim = null 
while (i < ncol(s)) { 
simsum = sum(s[p$stock1,i],s[p$stock2,i],s[p$stock3,i]) 
stocksim = cbind(stocksim,simsum) 
i=i+1 
} 

Тогда cbind это мой р кадра данных.

Я получаю эту ошибку, Error in p$stock1 : $ operator is invalid for atomic vectors

Пожалуйста, дайте мне знать ваши мысли. Спасибо,

Answer 1

Try:

p<-cbind(as.data.frame(p,stringsAsFactors=F),t(sapply(1:nrow(p),function(x){colSums(s[p[x,],])}))) 

p 
# Stock1 Stock2 Stock3 s1 s2 
# p1  a  b  c 6 9 
# p2  d  e  f 15 18 

Что она делает это следующим образом:

• , учитывая, что вы хотите иметь несколько значений символов и некоторые числовые значения, которые вы должны использовать dataframe
• вы берете суммы столбцов подмножества s (с интересующими вас строками)
• вы добавляете те, которые делают оригинал p

Подробнее: as.data.frame(p,stringsAsFactors=F) преобразует p в фреймворк данных и сохраняет значения символов как строки, а не как факторы. t(sapply(1:nrow(p),function(x){colSums(s[p[x,],])})) - функция, которая для каждой строки p (1:nrow(p)) принимает суммы столбцов (colSums) подмножества s (s[p[x,],]). Выход должен быть t. Затем вы добавляете (cbind) оригинал p и новые значения.