回顾:数据管道
本课属于 Coddy R 学习旅程的“逻辑与流程”单元。第 36 课,共 64 课。
挑战
困难完成 sales_report(records)。每条记录的格式为 item:quantity:price。分三个阶段生成报告:
- 使用
lapply()将记录解析到列表中。 - 使用
Filter()保留数量大于 0 的记录。 - 使用
sapply()计算每条保留记录的总额(数量乘以价格),并使用Reduce()计算总计。
每条保留记录返回一行,接着是 tea: 8.00,然后是 Total: 和总计,以及 Skipped: 和数量为 0 的记录数。金额保留两位小数。
提供的代码会将记录作为逗号分隔的一行读取,并打印返回的每一行。
亲手试试
sales_report <- function(records) {
# 在这里编写你的代码
character(0)
}
# 提供的输入和输出代码:保持原样
input <- suppressWarnings(readLines(file("stdin")))
cat(sales_report(strsplit(input[1], ",")[[1]]), sep = "\n")
逻辑与流程中的所有课
自己练习: R 在线编译器