我有这个示例dataframe,其中and列是引用列,列x1-3需要解析并插入新值。
下面是重新生成数据框架的代码:
df1 <- data_frame(a = c(0,1,0,1), b = c(0,0,1,1), c = c(0,0,0,0), d =
c(1,0,0,1), x1= c(NA, NA, NA, NA), x2= c(NA, NA, NA, NA), x3= c(NA, NA, NA, NA))

我想根据与列x1 -x3不同的值组合给a, b, c, d提供新的值。我的伪码如下:
for df1[ , "x1"]:
if a = 1: then return 1
else: return 0
for df1[ , "x2"]:
if a = 1 & b = 1: then return 1
else: return 0
for df1[ , "x3"]:
all conditions: return 1理想情况下,x1和x2中的所有值都将根据其给定的条件进行更改。无论如何,X3都应该充满1。有人能建议一种高效的方法来循环和解析这些列吗?
发布于 2017-11-15 20:56:42
你不需要循环:
df1$x1 <- df1$a
df1$x2 <- as.integer(df1$a & df1$b)
df1$x3 <- 1结果:
a b c d x1 x2 x3
1 0 0 0 1 0 0 1
2 1 0 0 0 1 0 1
3 0 1 0 0 0 0 1
4 1 1 0 1 1 1 1编辑:
如果a列不是二进制值(0或1),则仍然可以使用相同的表达式来创建x1-3列。假设您有这样的数据框架:
a b c d x1 x2 x3
1 0 0 1 5 NA NA NA
2 3 9 2 1 NA NA NA
3 4 2 3 5 NA NA NA
4 2 1 4 1 NA NA NA你的条件是:
x1 = 1 if (b >= 2) and (d < 4) 0 otherwise
x2 = 1 if (a > b) and (b < d) 0 otherwise
x3 = always 1您可以使用相同的方法:
df1$x1 <- as.integer(df1$b >= 2 & df1$d < 4)
df1$x2 <- as.integer(df1$a > df1$b & df1$b < df1$d)
df1$x3 <- 1结果:
a b c d x1 x2 x3
1 0 0 1 5 0 0 1
2 3 9 2 1 1 0 1
3 4 2 3 5 0 1 1
4 2 1 4 1 0 0 1https://stackoverflow.com/questions/47317035
复制相似问题