r:从两列展开二进制值序列

Question

我有一个非常复杂的数据集。但为了简化，我将使用这些数据。假设我们有这个数据，一列X显示不同范围内的数字，另一列是二进制0/1。我想将二进制0/1的序列扩展为1。这将创建新的更长的列（newX，newbinary），形成原始的X和二进制列。

  X    binary
1 1    1
2 3    0
3 5    0
4 6    1
5 8    1
6 10   0

我想在这里扩展 X 列并将二进制值放在它旁边。像这样，

   newX    newbinary
1   1       1
2   2       1
3   3       0
4   4       0
5   5       0
6   6       1
7   7       1
8   8       1
9   9       1
10  10      0

我的尝试是，首先我创建了新的X列（扩展了X）。

   newX <- seq(X[1], X[length])

然后，我使用for循环遍历newX，然后将该值与X进行比较，以检查它是否等于或小于该值。如果newX[i]不等于X[i】，则放入前一个二进制值，否则放入二进制值[i]。

    for (i in 1:newX[length])
  {
    newbinary= ifelse((newX != X)&(between(newX[i], X[i],X[j+1])), lag(binary), binary)
   }

但这不管用，把这个给我，

   newX    newbinary
  1 1         1
  2 2        NA
  3 3        NA
  4 4        NA
  5 5        NA
  6 6        NA

我真的不知道newX列(较长的一个)将如何遍历X(较短的一个)并相应地放置值。

如何在R中实现这一点？

Answer 1

假设注释末尾可再现地显示数据帧，下面的一个线性使用<代码>读取。zoo将其转换为zoo对象，并将其转换成ts对象，同时将其展开。然后它使用na。locf来填写NAs并加强防御。zoo将其转换为data.frame。将数据帧上的名称设置为原始名称。

library(zoo)
setNames(fortify.zoo(na.locf(as.ts(read.zoo(DF)))), names(DF))

给：

    X binary
1   1      1
2   2      1
3   3      0
4   4      0
5   5      0
6   6      1
7   7      1
8   8      1
9   9      1
10 10      0

上述一个线性可以交替地写为流水线：

library(zoo)
library(magrittr)

DF %>%
  read.zoo %>%
  as.ts %>%
  na.locf %>%
  fortify.zoo %>%
  setNames(names(DF))

Lines <- "
  X    binary
1 1    1
2 3    0
3 5    0
4 6    1
5 8    1
6 10   0"
DF <- read.table(text = Lines)

Answer 2

这是否有效：

library(dplyr)
library(tidyr)
library(purrr)
df %>% mutate(y = lead(X, default = max(X)+1), newX = map2(X,y-1,`:`)) %>% 
   unnest(newX) %>% mutate(newbinary = binary) %>% select(newX, newbinary)
# A tibble: 10 x 2
    newX newbinary
   <int>     <dbl>
 1     1         1
 2     2         1
 3     3         0
 4     4         0
 5     5         0
 6     6         1
 7     7         1
 8     8         1
 9     9         1
10    10         0

使用的数据:

df
# A tibble: 6 x 2
      X binary
  <dbl>  <dbl>
1     1      1
2     3      0
3     5      0
4     6      1
5     8      1
6    10      0

Answer 3

尝试这种< code>tidyverse方法，为序列创建一个数据帧，然后使用< code>left_join()并最终使用< code>fill()来完成二进制变量:

library(dplyr)
library(tidyr)
#Code
newdf <- data.frame(X=seq(min(df$X),max(df$X),by=1)) %>%
  left_join(df) %>%
  fill(binary)

输出:

    X binary
1   1      1
2   2      1
3   3      0
4   4      0
5   5      0
6   6      1
7   7      1
8   8      1
9   9      1
10 10      0

使用的一些数据：

#Data
df <- structure(list(X = c(1L, 3L, 5L, 6L, 8L, 10L), binary = c(1L, 
0L, 0L, 1L, 1L, 0L)), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6"))