復習 - 売上レポート

CoddyのRジャーニー「ロジックとフロー」セクションの一部。レッスン 46/64。

チャレンジ

中級

sales_report(df)を完成させてください。dfにはregion、product、units、priceの列があります。レポートを作成します。

revenue列を追加します。値は units と price の積です。
少なくとも1個販売された行だけを残します。
地域ごとに1行を返し、アルファベット順に並べます。形式はnorth: 45.00で、その地域の合計収益を示します。
収益が最も高い商品をTop product: に続けて1行に追加し、残した行数をRows used: に続けて追加します。

複数の行で収益が最高値になる場合は、その中で最初の行を使用します。金額は小数点以下2桁で表示します。

提供されたコードはread.csv(text = input)を使って入力から表を読み込みます。最初の行には列名が入り、それ以降の各行が1行分のデータで、値はコンマで区切られています。コードは返された各行を出力します。

自分で試してみよう

sales_report <- function(df) {
  # ここにコードを書いてください
  character(0)
}

# 提供された入出力コード：そのままにしておいてください
input <- suppressWarnings(readLines(file("stdin")))
df <- read.csv(text = input)
cat(sales_report(df), sep = "\n")