按类别统计支出
本课属于 Coddy R 学习旅程的“逻辑与流程”单元。第 59 课，共 64 课。
挑战
简单添加 CATEGORY 命令。确保之前步骤中的每条命令仍按原样正常工作。
CATEGORY：按字母顺序，每个类别回复一行，food: 20.50，并将该类别的总额保留两位小数。没有记录时，回复no expenses。
一条 CATEGORY 命令会产生多条回复，每条回复单独打印一行。
提供的代码会将每一行输入作为一条命令传递给 tracker()，并将每条返回的回复单独打印一行。日期的格式为 YYYY-MM-DD，类别是小写单词，输入中只包含目前为止介绍过的命令。
亲手试试
tracker <- function(commands) {
expenses <- data.frame(date = character(0), category = character(0), amount = numeric(0))
replies <- c()
for (cmd in commands) {
parts <- strsplit(cmd, " ")[[1]]
if (parts[1] == "ADD") {
amount <- suppressWarnings(as.numeric(parts[4]))
if (length(parts) != 4 || is.na(amount) || amount <= 0) {
replies <- c(replies, paste("invalid:", cmd))
} else {
expenses <- rbind(expenses, data.frame(date = parts[2], category = parts[3], amount = amount))
replies <- c(replies, sprintf("added %s %.2f", parts[3], amount))
}
} else if (parts[1] == "TOTAL") {
replies <- c(replies, sprintf("total: %.2f, count: %d", sum(expenses$amount), nrow(expenses)))
}
}
replies
}
# 提供的输入/输出代码：保持原样。
input <- suppressWarnings(readLines(file("stdin")))
cat(tracker(input), sep = "\n")
逻辑与流程中的所有课
自己练习： R 在线编译器