- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
数据集示例如下。当 temp.change == 0 时,我希望 R 只需将 X 列中上方单元格的状态复制到新列中。我创建了另一列,将 X 列中的数据向下移动以引用它。换句话说,如果 temp.change == 0,则使 X = X_shifted。我意识到如果连续有多个 0,这也可能是这种方法的问题。二进制 X 列是许多关于列 temp.change 的 ifelse 语句的结果
temp.change X X_shifted
9.5 1 NA
1 1 1
-0.5 1 1
-1 0 1
-0.5 0 0
0 1 0
0 1 1
3 1 1
0 0 1
1 1 0
dplyr
找到一种方法来做到这一点。 ,因为我有一个非常大的数据集,而且速度相当快。我已经尝试了下面的代码,以及一些非 dplyr 方法,但没有任何成功。
mutate(X_fixed = ifelse(temp.change_prev==0, X_shifted, X))
temp.change X X_shifted X_fixed
9.5 1 NA 1
1 1 1 1
-0.5 1 1 1
-1 0 1 0
-0.5 0 0 0
0 1 0 0
0 1 1 0
3 1 1 1
0 0 1 1
1 1 0 1
最佳答案
你不需要X_shifted
您可以使用 lag
这给你以前的值(value)
library(dplyr)
df %>% mutate(x_fixed = ifelse(temp.change == 0, lag(X), X))
X
从
temp.change
的最后一个非零值开始我们可以使用:
df %>%
mutate(X_fixed = replace(X, temp.change == 0,NA)) %>%
tidyr::fill(X_fixed)
# temp.change X X_fixed
#1 9.5 1 1
#2 1.0 1 1
#3 -0.5 1 1
#4 -1.0 0 0
#5 -0.5 0 0
#6 0.0 1 0
#7 0.0 1 0
#8 3.0 1 1
#9 0.0 0 1
#10 1.0 1 1
df <- structure(list(temp.change = c(9.5, 1, -0.5, -1, -0.5, 0, 0,
3, 0, 1), X = c(1L, 1L, 1L, 0L, 0L, 1L, 1L, 1L, 0L, 1L)),
row.names = c(NA, -10L), class = "data.frame")
关于r - 如何使用 dplyr mutate 引用 ifelse 中的其他列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/59834112/
if () {}else if (){} else if (){} else if (){} else{} 我们是否需要至少有一个else {}? 最佳答案 不,不需要 else block 。 以下
如果为TRUE,我想从函数返回一个data.frame,否则使用return(ifelse(condition, mydf, NA)) 返回NA 但是, ifelse 会从 data.frame 中删
我有一个如下所示的数据框: dat <- data.frame(T1 = c('s', 's', 'm', 'l', 'm', 'xl'), T2 = c('s',
我有两个矩阵: mat <- matrix(1:6, 2, 3) mat2 <- matrix(1:2, 2, 3) 和一个参数 a <- 1 使用 ifelse , 是否可以在 a 时返回矩阵是一定
这个问题在这里已经有了答案: How to prevent ifelse() from turning Date objects into numeric objects (7 个答案) 关闭 7
而 R 的 ifelse非常方便,它确实有一个特别的缺点:在通话中 ifelse(test, yes, no) yes的所有元素和 no被评估,即使是那些将被扔掉的。 如果您在复杂的数值练习中使用它,
我有一个数据框(示例数据): id dat$ex1 + dat$ex2, 5, dat$ex) 此处,ex1 是最大值,其次是 ex1 和 ex2。 对于 id 2,它应该是: dat$ex da
我从 ifelse() 得到了一个完全出乎意料的结果,如果能解释原因,我将不胜感激。请参阅底部的可重现数据。 split_ratio = 0.8 target_label = "DV" trainin
我希望将两个函数之一应用于向量元素。选择使用哪个函数是基于向量的值。 具体来说:假设所有日期都在 1919 年和 2018 年之间,假设您想将用两位数字编码的年份(如 '07' 表示 '2007' 和
我仍然觉得 R 中的 ifelse 结构有点困惑,我有以下数据框: df <- structure(list(snp = structure(1:11, .Label = c("AL0009", "A
运行后我得到了意想不到的结果: test = c(rep(FALSE, 2), rep(TRUE, 6)) ifelse(test, c(1:8)[test], 1) [1] 1 1 5 6 7
这很奇怪:R的ifelse()似乎做了一些(不需要的)强制转换: 可以说我有一个时间戳向量(可能是NA),并且NA值应与现有日期区别对待,例如,只需忽略即可: formatString = "%Y-%
想法是使用可管理的方法从一些表中定义规则: library(data.table) a % print() lb[a, on = .(rule, bool), nomatch = 0L][
我有两个向量: ab 1 if ab,1,0) 但我不确定如何合并a和b相等的情况。 最佳答案 如何添加另一个ifelse: ifelse(a>b, 1, ifelse(a==b, sample(1:
基本上在 SAS 中,我可以在没有 else 的情况下执行 if 语句。例如: if species='setosa' then species='regular'; 不需要别的。 如何在R中做到这一
如果运行此命令,则会获得有关财务报表的信息 library(RJSONIO) data<-fromJSON("http://www.registeruz.sk/cruz-public/api/ucto
我有两个如下变量: var a = "active" //[two possible value active/inactive] var b = "inactive" //[three possi
我仍在学习 R,并遇到了一些超出我理解的事情。我花了大约 2 个小时试图自己解决这个问题,但失败了:-( 。 我有一个 data.frame(例如,让我们考虑一下鸢尾花),我想使用 ifelse 对其
我从 ifelse 函数中得到了意想不到的结果: vector <- factor(c('x', 'x', 'y', 'z'), levels = c('x', 'y', 'z')) ifelse(c
我有一个非常大的数据框(大约 100 行,200 列)。我的数据子集如下所示: example = 100,则 3 个数字 我知道对特定列执行类似的操作: example$Value1 = 100)
我是一名优秀的程序员,十分优秀!