问如何在r中复制以下财务表？
EN

Stack Overflow用户

提问于 2021-07-22 14:10:53

回答 1查看 89关注 0票数 4

我想在R中重新创建下表：

我只得到了这三个参数：

initial_deposit = 15000
contract_value = 250
closing_stock_indices = c(1000,  1002, 994,  998, 997)

我在R上的努力是这样的：

cl =c(1000,1002,994,998,997) # The closing stock indices.
re = c(0,diff(cl))
t = time(cl)
mtm = re*250 # The contract value of 250.
mb = 15000+mtm # The initial deposit of 15000.
vm = ifelse(mb>0,0,mtm)
d = data.frame(t,cl,re,mtm,mb,vm);d

但我不能做最后两个columns.Any帮助？

dataframe

finance

性能强劲，每月20元起的MySQL

功能完善，便宜稳定，没有业务可以自动停机，强效降本的MySQL

回答 1

Stack Overflow用户

回答已采纳

发布于 2021-08-07 08:27:05

您可以执行以下操作

library(tidyverse)

initial_deposit = 15000
contract_value = 250
closing_stock_indices = c(1000,  1002, 994,  998, 997)

(seq_along(closing_stock_indices) - 1) %>%
  as.data.frame() %>%
  setNames('Day') %>%
  mutate(Closing_SI = closing_stock_indices,
         Daily_change = c(0, diff(Closing_SI)),
         Marking_to_market = contract_value * Daily_change,
         Margin_balance = accumulate(Marking_to_market[-1], .init = initial_deposit,
                         ~ if (.x >= initial_deposit) .x + .y else initial_deposit + .y),
         Variation_Margin = -1 * pmin(Margin_balance - initial_deposit, 0),
         REquired_Deposit = c(initial_deposit, Variation_Margin[-n()]))

  Day Closing_SI Daily_change Marking_to_market Margin_balance Variation_Margin REquired_Deposit
1   0       1000            0                 0          15000                0            15000
2   1       1002            2               500          15500                0                0
3   2        994           -8             -2000          13500             1500                0
4   3        998            4              1000          16000                0             1500
5   4        997           -1              -250          15750                0                0

检查另一个向量

initial_deposit = 15000
contract_value = 250
closing_stock_indices = c(1000,  1002, 994,  998, 997, 990, 1000)

(seq_along(closing_stock_indices) - 1) %>%
  as.data.frame() %>%
  setNames('Day') %>%
  mutate(Closing_SI = closing_stock_indices,
         Daily_change = c(0, diff(Closing_SI)),
         Marking_to_market = contract_value * Daily_change,
         Margin_balance = accumulate(Marking_to_market[-1], .init = initial_deposit,
                         ~ if (.x >= initial_deposit) .x + .y else initial_deposit + .y),
         Variation_Margin = -1 * pmin(Margin_balance - initial_deposit, 0),
         REquired_Deposit = c(initial_deposit, Variation_Margin[-n()]))

  Day Closing_SI Daily_change Marking_to_market Margin_balance Variation_Margin REquired_Deposit
1   0       1000            0                 0          15000                0            15000
2   1       1002            2               500          15500                0                0
3   2        994           -8             -2000          13500             1500                0
4   3        998            4              1000          16000                0             1500
5   4        997           -1              -250          15750                0                0
6   5        990           -7             -1750          14000             1000                0
7   6       1000           10              2500          17500                0             1000