在对this questionçš„éžå¸¸ä¼˜é›…的回ç”ä¸ï¼Œakrun表明,åªéœ€å¾ˆå°‘的工作就å¯ä»¥å°†è¡Œçš„æ•°å—æ•°æ®æ¡†æ ‡å‡†åŒ–:
df <- as.data.frame(t(matrix(seq(1,9), nrow = 3, ncol = 3)))
V1 V2 V3
1 1 2 3
2 4 5 6
3 7 8 9
df / rowSums(df)
V1 V2 V3
1 0.1666667 0.3333333 0.500
2 0.2666667 0.3333333 0.400
3 0.2916667 0.3333333 0.375
æˆ‘çš„é—®é¢˜æ˜¯ï¼Œä¸ºä»€ä¹ˆè¿™æ ·åšä¼šå¦‚æ¤ï¼Ÿæˆ‘对Ræ•°æ®å¸§çš„ç†è§£æ˜¯å®ƒä»¬æ˜¯åˆ—表的特例,并且我ä¸å¸Œæœ›çŸ©é˜µè¿ç®—能够自动工作。我至少希望优先考虑按列æ“作(å³ï¼Œæˆ‘希望上é¢çš„除法è¿ç®—å°†æ¯ä¸ªåˆ—除以rowSums
å‘é‡çš„æ¯ä¸ªå…ƒç´ )。