Используйте цикл для возврата результатов из фрейма данных

Question

Хорошо, создайте 17 векторов (o1, o2, ..., o17) для учета. Каждый вектор имеет 3 элемента account (символ), T операция (символ) и Value (числовой). Я использую rbind и data frame it. так что у меня было это.

                           Account T operation  Value
o1                           Cash       Debit 100000
o2                Paid in Capital      Credit  10000
o3                           PP&E       Debit  10000
o4                           Cash      Credit  10000
o5                           Cash       Debit  48000
o6                           COGS       Debit  24000
o7         Revenue wardrobes 1stY      Credit  48000
o8       Inventory wardrobes 1stY      Credit  24000
o9                           Cash       Debit  20000
o10                          COGS       Debit  10000
o11        Revenue bookcases 1stY      Credit  20000
o12      Inventory bookcases 1stY      Credit  10000
o13            Operating expenses       Debit  30000
o14                          Cash      Credit  20000
o15              Accounts Payable      Credit  10000
o16          Depreciation Expense       Debit   1000
o17 Accumulated depreciation 1stY      Credit   1000

но я хочу суммировать кредиты и дебеты с if и else. Я не буду описывать свою функцию, потому что может быть много ошибок, и для братьев моих экспертов, я предполагаю, что примерно 3 строки кода я мог бы получить ответ.

Answer 1

Я не так, что я понимаю, что вы хотите, но я думаю, что вы хотите этого:

credits_indices <- as.character(data[["Credits"]]=="Credits" #indices to the credits
values <- values[["Value"]] #all the values
total <- sum(values) #total value
total_credits <- sum(values[credits_indices]) #total credits
total_debit <- total-total_credits # total debit

Я надеюсь, что это то, что вы хотите!Если это так, пожалуйста, проверьте это для ответа на свой вопрос.