我有以下数据，我正在尝试提取cumsum列的最终值。例如，我想从cumsum值为0.7810417的数据框中取第8行，然后对1115值cumsum和{{1}的0.7282639执行相同操作} ... 1116等。
1117编辑： 我将数据帧设置为df＆lt; - head（df，100）
时获得的结果structure(list(WEEK = c(1114L, 1114L, 1114L, 1114L, 1114L, 1114L,
1114L, 1114L, 1115L, 1115L, 1115L, 1115L, 1115L, 1115L, 1115L,
1116L, 1116L, 1116L, 1116L, 1116L, 1116L, 1117L, 1117L, 1117L,
1117L, 1118L, 1118L, 1118L, 1118L, 1118L, 1118L, 1118L, 1119L,
1119L, 1119L, 1119L, 1119L, 1119L, 1119L, 1119L, 1120L, 1120L,
1120L, 1120L, 1120L, 1120L, 1120L, 1121L, 1121L, 1121L), price_per_ounce = c(0.124583333333333,
0.0832638888888889, 0.100972222222222, 0.100972222222222, 0.10375,
0.0832638888888889, 0.100972222222222, 0.0832638888888889, 0.124583333333333,
0.0855555555555556, 0.109166666666667, 0.0832638888888889, 0.110972222222222,
0.10375, 0.110972222222222, 0.124583333333333, 0.0841666666666667,
0.110972222222222, 0.110972222222222, 0.0832638888888889, 0.110972222222222,
0.0838888888888889, 0.110972222222222, 0.0832638888888889, 0.110972222222222,
0.124583333333333, 0.0786111111111111, 0.110972222222222, 0.110972222222222,
0.10375, 0.110972222222222, 0.0832638888888889, 0.124583333333333,
0.0925, 0.110972222222222, 0.0832638888888889, 0.110972222222222,
0.10375, 0.110972222222222, 0.0832638888888889, 0.124583333333333,
0.0844444444444444, 0.110972222222222, 0.0832638888888889, 0.10375,
0.110972222222222, 0.0832638888888889, 0.124583333333333, 0.0694444444444444,
0.110972222222222), Total = c(0.124583333333333, 0.207847222222222,
0.308819444444444, 0.409791666666667, 0.513541666666667, 0.596805555555556,
0.697777777777778, 0.781041666666667, 0.124583333333333, 0.210138888888889,
0.319305555555556, 0.402569444444444, 0.513541666666667, 0.617291666666667,
0.728263888888889, 0.124583333333333, 0.20875, 0.319722222222222,
0.430694444444444, 0.513958333333333, 0.624930555555556, 0.0838888888888889,
0.194861111111111, 0.278125, 0.389097222222222, 0.124583333333333,
0.203194444444444, 0.314166666666667, 0.425138888888889, 0.528888888888889,
0.639861111111111, 0.723125, 0.124583333333333, 0.217083333333333,
0.328055555555556, 0.411319444444444, 0.522291666666667, 0.626041666666667,
0.737013888888889, 0.820277777777778, 0.124583333333333, 0.209027777777778,
0.32, 0.403263888888889, 0.507013888888889, 0.617986111111111,
0.70125, 0.124583333333333, 0.194027777777778, 0.305)), .Names = c("WEEK",
"price_per_ounce", "Total"), class = c("data.table", "data.frame"
), row.names = c(NA, -50L), .internal.selfref = <pointer: 0x0000000008450788>)
然而，当我在整个数据帧中运行时，我得到以下内容。
structure(list(df = c(0.781041666666667, 0.728263888888889, 0.624930555555556,
0.389097222222222, 0.723125, 0.820277777777778, 0.70125, 0.658611111111111,
0.769583333333333, 0.759027777777778, 0.751666666666667, 0.741597222222222,
0.519930555555556, 0.712152777777778)), .Names = "df", row.names = c(NA,
-14L), class = "data.frame")
我不确定为什么现在出现structure(list(df = c(220.124649739256, 199.217289598068, 199.774511556463,
206.738587849235, 205.766197136359, Inf, Inf, Inf, 205.103350187295,
199.567357907284, 212.900103648094, 200.477169383407, Inf, 203.441435413023
)), .Names = "df", row.names = c(NA, 14L), class = "data.frame")
值，值也会发生显着变化，但我所做的只是跳过此命令Inf
以下是我正在应用的代码（当我应用下面的所有解决方案时会发生同样的事情）
df <- head(df, 100)答案 0 :(得分：3)
基础R
aggregate(df$cumsum, by = list(df$wks), FUN = tail, n = 1)
答案 1 :(得分：3)
OP的数据集是data.table。使用data.table获取每个＆＃39; WEEK＆＃39;的最后一行＆＃39; TOTAL的方法元素并提取＆＃39; TOTAL＆＃39;会是
library(data.table)
df1[, Total[.N], WEEK]$V1
#[1] 0.7810417 0.7282639 0.6249306 0.3890972 0.7231250 0.8202778 0.7012500 0.3050000
如果不打算提取列，那么我们可以对其进行子集化并将其保留为data.table
df1[, .(Total = Total[.N]), WEEK]
答案 2 :(得分：2)
tapply(dat$Total, dat$WEEK, tail, 1)
# 1114 1115 1116 1117 1118 1119 1120 1121
#0.7810417 0.7282639 0.6249306 0.3890972 0.7231250 0.8202778 0.7012500 0.3050000
dat$Total是我们的原子对象，dat$WEEK我们的分组变量，tail我们要应用的函数，1是传递给它的第一个参数，所以我们得到了dat$Total中每个索引的最后一个值dat$WEEK。
答案 3 :(得分：1)
library(dplyr)
df %>% group_by(wks)%>%
filter(row_number()==n())