考虑以下数据帧：
df <- data.frame(row_id = c("r1","r2","r3","r4","r1","r2","r3","r4"),
v1 = c(3,2,5,2,5,2,6,4),
v2 = c(4,3,5,3,7,4,6,7))
我想用“ row_id”求和。也就是说，对于具有row_id：“ r1”的行，我想进行以下计算：（3 * 4）+（5 * 7）。等等。
因此，我最终将具有以下矩阵：
df1 <- data.frame(row_id = c("r1","r2","r3","r4"),
v1 = c(47,14,61,34))
任何帮助将不胜感激。
谢谢。
考虑以下代码：
install.packages("openxlsx")
library(openxlsx)
d <- data.frame(replicate(2,sample(0:1,10,rep=TRUE)))
write.xlsx(d, "test.xlsx")
但是，我想在 Excel 工作表的顶部添加一行文本。我知道我可以使用cat(paste0(), file = )write.table，但我不确定是否使用 openxlsx。
谁能帮我？