0

Rを使用しています。

no1,no2,
  1, 14,
  3, 25,
  4, 43,
  6, 65,

のようなデータフレームがありますが、これはno1=1,2のときno2=14、no1=4,5のときno2=43です。(3つ以上同じ数が連続して省略されることもあります。)
どのようにすれば

no1,no2,
  1, 14,
  2, 14,
  3, 25,
  4, 43,
  5, 43,
  6, 65,

のような形に変換できるでしょうか。

1 件の回答 1

3

tidyr パッケージの fill 関数を使うと、 NA値をその列の直前の NA でない値で埋められます。

> library(dplyr)
> library(tidyr)
> df1 <- dplyr::data_frame(no1 = c(1L,  3L,  4L,  6L),
+                          no2 = c(14L, 25L, 43L, 65L))
> dplyr::data_frame(no1 = 1:6) %>%
+       dplyr::left_join(df1, by = "no1") %>%
+       tidyr::fill(no2)
# A tibble: 6 × 2
   no1   no2
  <int> <int>
1     1    14
2     2    14
3     3    25
4     4    43
5     5    43
6     6    65

[2017/06/29]コメントを受け追記

元データが3スタートの場合1,2のデータがNAになってしまうのですが、何かいいアイデアあるでしょうか?1,2にも3の値を‌​入れる形でかまわないです。 – user87562

不格好ですが、以下ではどうでしょうか。fill関数を逆方向にもう1回実行する方針です。

> df1 <- dplyr::data_frame(no1 = c(3L,  4L,  6L), no2 = c(25L, 43L, 65L))
> dplyr::data_frame(no1 = 1:6) %>%
+        dplyr::left_join(df1, by = "no1") %>% 
+        tidyr::fill(no2) %>% 
+        tidyr::fill(no2, .direction = "up")
# A tibble: 6 x 2
    no1   no2
  <int> <int>
1     1    25
2     2    25
3     3    25
4     4    43
5     5    43
6     6    65
4
  • 1
    データフレームをつくってleft_join()しているところは、complete(df1, no1 = full_seq(no1, period = 1L))という書き方もできます。参考までに。 Commented 2017年6月20日 0:11
  • なるほどfull_seq...! ありがとうございます!!
    – ksmzn
    Commented 2017年6月21日 1:01
  • 元データが3スタートの場合1,2のデータがNAになってしまうのですが、何かいいアイデアあるでしょうか?1,2にも3の値を入れる形でかまわないです。
    – user87562
    Commented 2017年6月28日 16:32
  • @user87562 追記しました。
    – ksmzn
    Commented 2017年6月29日 4:15

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。