Compute процент веса на строках, когда один столбец не является числовым

Question

Я эти данные выкрикивали:

Dates  Consumer Staples Energy Financials Health Care 

1 12/31/99 0 0 0 0 0 2 03/31/00 0 0 0 0 0 3 06/30/00 0 0 0 0 0 4 09/30/00 0 0 0 0 0 5 12/31/00 0 0 0 0 0 6 03/31/01 1000 0 0 50 0 7 06/30/01 0 0 0 0 0

Я хотел бы вычислить веса для каждой категории в каждой строке , но необходимо, чтобы избежать суммирования первого столбца, который является датой Массы < - круглая (из [2: 6]/rowSums (из [2: 6]) * 100, 2)

1/Есть ли способ для сохранения дат в первом столбце и вычисления веса следующих 5 столбцов в том же наборе данных

2/Когда дата имеет только 0 данных, как избежать NA?

Спасибо вам помочь

Answer 1

outN <- out[,-1] 
rownames(outN) <- out[,1] 
Cap_Weights <- round(outN/rowSums(outN)*100, 2) 

Cap_Weights[is.na(Cap_Weights)] <- 0