Menghubungkan NA dengan LOCF bersyarat

Saya telah memperbarui masalah baru yang berbeda. Kali ini saya ingin mendapatkan kolom Oxy2 dari Oxy.

ID Oxy  Y   Oxy2
1  NA 2010   NA
1   0 2011    0
1  NA 2012   NA
1   1 2013    1
1  NA 2014    1
1  NA 2015    1
1  -1 2016    1
2   0 2011    0
2  NA 2012   NA
2   1 2013    1
2  -1 2014    1
3   0 2012    0
3  -1 2013   -1
3  NA 2014   NA
4  -1 2010   -1
4   1 2011    1
4  -1 2012    1
4  -1 2013    1
4   0 2014    1
4  NA 2015    1

Pada dasarnya, saya perlu menyimpan NA, jika ada, ketika nilai variabel Oxy saya sebelumnya adalah 0 atau -1, dan mengganti semua yang muncul setelah angka 1 pertama muncul dengan 1.

Sekali lagi, terima kasih atas saran Anda.


r dplyr na plyr locf
person SimoneG    schedule 06.12.2019    source sumber

Jawaban (2)


arrow_upward
1
arrow_downward 

library(dplyr)
library(zoo)
df %>% 
   group_by(ID) %>% 
   mutate(Ins1=na.locf(ifelse(is.na(Ins) & lag(Ins)==0, 999, Ins), na.rm = FALSE), Ins2=na_if(Ins1, 999))
   #one step version
   #mutate(Ins1 = na_if(na.locf(ifelse(is.na(Ins) & lag(Ins)==0, 999, Ins), na.rm = FALSE), 999))

# A tibble: 8 x 5
# Groups:   ID [2]
     ID   Ins     Y  Ins1  Ins2
  <int> <int> <int> <dbl> <dbl>
1     1     0  2010     0     0
2     1    NA  2011   999    NA
3     1     1  2012     1     1
4     1    NA  2013     1     1
5     1    NA  2014     1     1
6     2     0  2011     0     0
7     2     0  2012     0     0
8     2    NA  2013   999    NA

Pembaruan: Untuk mengatasi masalah -1, saya menambahkan sedikit perubahan pada apa yang disarankan @ user12492692 di Edit, yaitu mengganti | dengan %in%

df %>% 
  group_by(ID) %>% 
  mutate(Ins1 = na.locf(ifelse(is.na(Ins) & lag(Ins) %in% c(0,-1), 999, Ins), na.rm = FALSE), 
         Ins2 = na_if(Ins1, 999))
person A. Suliman    schedule 06.12.2019
comment
Terima kasih banyak @A.Suliman atas balasan Anda. Sebenarnya mungkin ada beberapa ID yang INSnya hilang di awal. Ini memberi saya kesalahan berikut Kolom Ins1 harus panjangnya 10 (ukuran grup) atau satu, bukan 9 - person SimoneG; 06.12.2019
comment
@ pengguna:8467042, Bisakah Anda membantu saya lagi? - person SimoneG; 10.12.2019
comment
@ user12492692 Saya rasa lebih baik mengajukan pertanyaan baru. Berikan tautannya dan saya akan melihatnya. - person A. Suliman; 10.12.2019
comment
@ pengguna8467042 stackoverflow.com/questions/59275742/ - person SimoneG; 11.12.2019

arrow_upward
0
arrow_downward

Berikut adalah alternatif lain yang mengisi semua nilai menggunakan LOCF dan kemudian menambahkan NA mengikuti angka nol:

library(dplyr)

df1 %>%
  mutate(Ins_b = Ins[!is.na(Ins)][cumsum(!is.na(Ins))],
         Ins_b = replace(Ins_b, is.na(Ins) & Ins_b == 0, NA))

  ID Ins    Y Ins_b
1  1   0 2010     0
2  1  NA 2011    NA
3  1   1 2012     1
4  1  NA 2013     1
5  1  NA 2014     1
6  2   0 2011     0
7  2   0 2012     0
8  2  NA 2013    NA
person Andrew    schedule 06.12.2019
comment
Terima kasih @Andrew atas solusi bagus Anda. Ini berhasil tetapi gagal untuk observasi yang memiliki In pertama sebagai NA (yang seharusnya tetap NA). - person SimoneG; 06.12.2019
comment
@ user12492692, apakah Anda perlu melakukan ini berdasarkan grup? - person Andrew; 07.12.2019
comment
Ya @Andrew, selalu berdasarkan grup (ID) diurutkan berdasarkan tahun. - person SimoneG; 07.12.2019