修改列以某些数字开头的行

作者: 不想吃东西
发布时间: 2025-03-12 07:16:52 (1天前)
转自：

3 条回复

0#
回复此人
我头上有犄角 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 正如@markus所提到的，这是一个很好的例子 <code> case_when </code> 在那里你可以有多个条件和输出这些条件。 </p> <pre> <code> library(tidyverse) df %>% mutate(d_value = case_when(str_detect(district_id, "^11") ~ d_value + 1, str_detect(district_id, "^22") ~ d_value + 0.6, state_id == 11 ~ d_value + 0.9, TRUE ~ d_value)) </code> </pre> <P> 我们改变了价值 <code> d_value </code> 根据具体条件和 <code> TRUE ~ d_value </code> 我们保持 <code> d_value </code> 因为如果没有满足上述条件的话。 </p> </DIV>

编辑
1#
回复此人
筱梨 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 看起来像一个子串（或RegEx）练习，基础R也可以处理。使用前2位数创建一个附加（辅助）列。这里是子串解决方案。 </p> <pre> <code> df$first_2_digits <- substr(x = df$district_id, start = 1, stop = 2) </code> </pre> <P> 然后是“正常”索引。 </p> <pre> <code> df[df$first_2_digits == 11, "d_value"] <- df[df$first_2_digits == 11, "d_value"] + 0.9 </code> </pre> <P> 可轻松打包成功能，并可通过两位以上的组合和可能的“切换”功能进行扩展。 </p> </DIV>

编辑

登录后才能参与评论