Q&A
product_a_newdate <- product_a %>% group_by(id) %>% min(date)
を試してみて下さい。
Rにてデータ抽出を実施しています。
下記のようなデータフレームより、各id毎の一番古い日付けのみ抽出したいと考えています。
色々調べて、実施したもののうまくソートが掛かりません。どのようにコードを書けばよいかご教示いただけませんでしょうか？よろしくお願いいたします。
ありがとうございます。
こちらのコードも実施いたしましたが、下記エラーがでてきてしまいます。
Error in product_a(.) : could not find function "product_a"
> %>% group_by(id)
Error: unexpected SPECIAL in " %>%"
> %>% min(date)
Error: unexpected SPECIAL in " %>%"
最初の部分 product_a_newdate <- ... は %>% ではなく <- なのですが、そこは大丈夫でしょうか？
ありがとうございます。ご指摘頂いた部分はコードの記載を間違えておりました。
更に新たなエラーが出てきました。dateの設定がおかしいのでしょうか？
> product_a_newdate <- product_a %>% group_by(id) %>% min(date)
Error in FUN(X[[i]], ...) :
only defined on a data frame with all numeric-alike variables
> class(date)
[1] "function"
date という関数が既に定義されていますので、以下を試してみて下さい。(min(date) を min(.$date) に変更)
product_a_newdate <- product_a %>% group_by(id) %>% min(.$date)
ありがとうございます。下記エラーがでます。dateの設定のところが問題だと思うのですが、うまくいきません。。
> product_a_newdate <- product_a %>% group_by(id) %>% min(.$date)
ごめんなさい、勘違いをしていました。回答を投稿しましたのでそちらを確認してみて下さい。
ありがとうございます。途中まで、コードを書けていたみたいですが、Print関数をまだ理解しておらず、最後の所で手間取っておりました。もし可能でしたらView画面には、でてこなかったのですが、これはなぜでしょうか？まだRを勉強し始めたところでして。
Rstudio をお使いでしょうか？ 私の方はプログラムコードをファイルに保存して、それをコマンドラインで実行しています。Rstudio を利用したことがないので推測になりますが、print 関数の出力は View 画面に表示されない様に設定されているのかもしれません。
R studioを使用しています。view画面に出てこなかったので、混乱してしまいました。
色々とご教示頂きありがとうございました。
回答1件
0
ベストアンサー
r
1library(dplyr) 2library(tibble) 3 4product_a <- data.frame( 5 id = c(rep(1, 4), rep(2, 2), rep(4, 3)), 6 product = rep("A", 9), 7 date = as.Date(c( 8 "2020-01-01", "2020-02-01", "2020-03-01", "2020-04-01", 9 "2019-07-01", "2019-07-14", "2021-12-01", "2021-02-01", 10 "2021-04-01"))) 11 12product_a_newdate <- product_a %>% group_by(id) %>% slice(which.min(date)) 13print(product_a_newdate) 14 15# 16# A tibble: 3 × 3 17# Groups: id [3] 18 id product date 19 <dbl> <chr> <date> 201 1 A 2020-01-01 212 2 A 2019-07-01 223 4 A 2021-02-01
投稿2022/10/02 09:12
総合スコア19754
あなたの回答
tips
プレビュー
