- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有下面列出的格式的数据,其中我需要使用的所有变量都是 NA
或变量的名称,我需要将 NA 更改为 0,并将字符串为 1。我正在尝试使用 dplyr::across()
和 ifelse()
,但返回的都是 1。我现在唯一可行的解决方案是单独改变每个变量。
我如何一次将多个变量中的所有 NA
更改为 0 并将所有字符串更改为 1?
library(dplyr)
color_names <- c("black", "grey", "white", "purple")
my_colors <- tribble(
~black, ~grey, ~white, ~purple,
NA, "grey", NA, "purple",
NA, NA, "white", NA,
"black",NA, NA, NA,
NA, "grey", NA, NA
)
my_colors %>%
mutate(across(all_of(color_names), ~ifelse(is.na(cur_column()), 0, 1)))
#> # A tibble: 4 x 4
#> black grey white purple
#> <dbl> <dbl> <dbl> <dbl>
#> 1 1 1 1 1
#> 2 1 1 1 1
#> 3 1 1 1 1
#> 4 1 1 1 1
由 reprex package 创建于 2021-01-13 (v0.3.0)
最佳答案
使用 across
你可以通过以下方式避免 ifelse
:
library(dplyr)
my_colors %>% mutate(across(.fns = ~+(!is.na(.))))
但是,您也可以避免across
,因为is.na
使用数据帧/小标题。
my_colors[] <- +(!is.na(my_colors))
my_colors
#A tibble: 4 x 4
# black grey white purple
# <int> <int> <int> <int>
#1 0 1 0 1
#2 0 0 1 0
#3 1 0 0 0
#4 0 1 0 0
!is.na(.)
返回一个逻辑向量TRUE
/FALSE
,+
用于将它们转换为 1
/0
。
关于r - 与 ifelse 和 is.na 交叉变异,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/65711973/
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)
我是一名优秀的程序员,十分优秀!