สรุปตามค่าสูงสุดรายวัน

นี่คือการปรับแต่งเล็กน้อยสำหรับคำตอบที่ได้รับจาก @Thierry ในคำถามสุดท้ายของคุณ

dat.str <- '5/1/2012  0:00  0 
5/1/2012  3:00  1
5/1/2012  6:00  2
5/1/2012  9:00  5
5/1/2012 12:00  3
5/1/2012 15:00  6
5/1/2012 18:00  2
5/1/2012 21:00  1
5/2/2012  0:00  2
5/2/2012  3:00  3
5/2/2012  6:00  6
5/2/2012  9:00  4
5/2/2012 12:00  6
5/2/2012 15:00  7
5/2/2012 18:00  9
5/2/2012 21:00  1
'

dat <- read.table(textConnection(dat.str))

library(plyr)
ddply(dat, .(V1), function(x){
   sum(x[1:(which.max(x$V3)), "V3"])
})

ฉันจะบอกด้วยว่าคุณไม่ได้แสดงความคิดริเริ่มหรืองานใดๆ เลย แก้ไข @John ใช่ OP เปลี่ยนแปลงข้อมูลเล็กน้อยเนื่องจากคำถามสุดท้ายได้แก้ไขเพื่อสะท้อนถึงสิ่งนี้