Вот альтернатива, которая позволяет передавать любое значение через аргумент YMul
, не добавляя его в файл ff.frame или в глобальную среду:
plotfunc <- function(Data, YMul = 2){
eval(substitute(
expr = {
ggplot(Data,aes(x=x,y=y*YMul)) + geom_line()
},
env = list(YMul=YMul)))
}
plotfunc(xy, YMul=100)
To посмотрите, как это работает, попробуйте следующую строку в отдельности:
substitute({ggplot(Data, aes(x=x, y=y*YMul))}, list(YMul=100))
Я думаю, что вы описываете lead()
:
select t.*,
lead(balance) over (partition by number order by date) as next_balance
from t