代码之家 › 专栏 › 技术社区 › abenol

用R中的新值重新编码多列中的多个值

recode replace r

abenol · 技术社区 · 3 年前

我有18列的数据框架。第2列到第13列包括数值,如0、1、2、4。。。我想根据范围将它们重新编码为三类:

if columns 2:13 are 0 -> 0
if columns 2:13 between 1 & 5 -> 1
else columns 2:13 >- 2.

我的尝试奏效了,但效率不高:

df[,2:13][df[,2:13] == 1 | df[,2:13] == 2 | df[,2:13] == 3 | df[,2:13] == 4 | df[,2:13] == 5] <- 1

我感谢你的帮助。

1 回复 | 直到 3 年前

r2evans 3 年前

尝试 findInterval :

dplyr

library(dplyr)
df %>%
  mutate(
    across(2:13, ~ findInterval(., c(0, 1, 5), rightmost.closed = TRUE) - 1L)
  )

如果这变得更加复杂(例如非连续的重新编码值),我们可能会切换到 case_when :

df %>%
  mutate(
    across(2:13, ~ case_when(
      . == 0           ~ 0L,
      between(., 1, 5) ~ 1L,
      TRUE             ~ 2L
    ))
  )

df[,2:13] <- lapply(df[,2:13], function(z) findInterval(z, c(0, 1, 5), rightmost.closed = TRUE) - 1L)

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前