使用mutate和case_when (R)通过多个条件创建新变量的函数

在R语言中，可以使用mutate和case_when函数通过多个条件创建新变量。

mutate函数是dplyr包中的一个函数，它用于在数据框中添加新的变量或修改已有的变量。它的基本语法是：

mutate(data, new_variable = expression)

其中，data是要操作的数据框，new_variable是新变量的名称，expression是用于计算新变量的表达式。

case_when函数也是dplyr包中的一个函数，它可以根据多个条件进行条件判断，并根据不同的条件返回不同的值。它的基本语法是：

case_when(condition1 ~ value1,
          condition2 ~ value2,
          ...
          conditionN ~ valueN,
          TRUE ~ default_value)

其中，condition1、condition2等是条件表达式，value1、value2等是对应条件为真时的返回值，TRUE ~ default_value是当所有条件都不满足时的默认返回值。

通过结合mutate和case_when函数，可以实现根据多个条件创建新变量的功能。例如，假设有一个名为df的数据框，其中包含了一个名为score的变量，我们想根据score的值创建一个新变量grade，可以使用以下代码：

library(dplyr)

df <- df %>%
  mutate(grade = case_when(
    score >= 90 ~ "A",
    score >= 80 ~ "B",
    score >= 70 ~ "C",
    score >= 60 ~ "D",
    TRUE ~ "F"
  ))

上述代码中，根据score的值，将其分为A、B、C、D、F五个等级，并将结果保存在名为grade的新变量中。

推荐的腾讯云相关产品和产品介绍链接地址：

腾讯云服务器（CVM）：https://cloud.tencent.com/product/cvm
腾讯云云数据库MySQL版：https://cloud.tencent.com/product/cdb_mysql
腾讯云云原生容器服务（TKE）：https://cloud.tencent.com/product/tke
腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
腾讯云物联网（IoT）：https://cloud.tencent.com/product/iotexplorer
腾讯云移动开发（移动推送）：https://cloud.tencent.com/product/umeng
腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
腾讯云区块链服务（BCS）：https://cloud.tencent.com/product/bcs
腾讯云虚拟专用网络（VPC）：https://cloud.tencent.com/product/vpc
腾讯云安全加速（DDoS防护）：https://cloud.tencent.com/product/ddos

相关·内容

R&Python Data Science 系列：数据处理（2）

1 衍生字段函数主要有两个函数，mutate()和transmute(）,两个函数在Python和R上使用方法相同，这两个函数本身有点区别：mutate()函数保留原来所有列，然后新增一列；transmute...2 条件函数这里介绍3个条件函数，if_else()、case_when()、between()函数，Python包dfply和R包dplyr中都是这3个函数，在用法上有点细微差别，日常中使用最多...而且if_else()函数可以嵌套使用，不过当条件判断超过2个的时候，建议使用case_when()函数。...注意：python在jupyter中使用管道函数换行书写代码的时候需要用()把代码括起来。 2.2 case_when函数用于多条件赋值，评分卡Woe赋值的时候使用起来很方便。...注意：case_when函数在Python和R语言中使用的时候有点区别，请留意。

7501 0

R语言批量生成CaseWhen的解决方案

大家好，又见面了，我是你们的朋友全栈君。近期写R代码，经常用dplyr::case_when结合stringr::str_detect进行条件判断。...痛点：判断条件可能会改或增删，全写在case_when里，代码冗余且不利于复制和维护，stackoverflow找了一圈，没发现好的解决方案，干脆自己写了一个通用代码以自动生成批量case_when判断...) 使用示例：初始表tibble(fruit=stringr::fruit) 想实现字母a开头为’starts with a’，字母e结尾为’ends with e’ 等若干条件。...结果如下图：单纯用case_when，需要写成 tibble(fruit=stringr::fruit) %>% mutate( category=case_when(...函数的核心依然是case_when，条件为真即停止，所以效率上没有损失。如果想改条件，在conditions里放肆增删改，改完再跑一遍allCaseWhen即可。

5642 0

如何使用Python中的装饰器创建具有实例化时间变量的新函数方法

1、问题背景在Python中，我们可以使用装饰器来修改函数或方法的行为，但当装饰器需要使用一个在实例化时创建的对象时，事情就会变得复杂。...例如，我们想要创建一个装饰器，可以创建一个新的函数/方法来使用对象obj。如果被装饰的对象是一个函数，那么obj必须在函数创建时被实例化。...如果被装饰的对象是一个方法，那么必须为类的每个实例实例化一个新的obj，并将其绑定到该实例。2、解决方案我们可以使用以下方法来解决这个问题：使用inspect模块来获取被装饰对象的签名。...如果被装饰的对象是一个方法，则将obj绑定到self。如果被装饰的对象是一个函数，则实例化obj。返回一个新函数/方法，该函数/方法使用obj。...f以及函数myfunc、myfunc2和myfunc3上。

701 0

数据处理第2节：将列转换为正确的形状

转换列：基础部分您可以使用mutate（）函数创建新列。 mutate中的选项几乎是无穷无尽的：你可以对普通向量做任何事情，可以在mutate（）函数内完成。...mutate中的任何内容都可以是新列（通过赋予mutate新的列名），或者可以替换当前列（通过保持相同的列名）。最简单的选项之一是基于其他列中的值的计算。...在这种情况下，您有一些选择：要么预先创建一个函数（如果它更长时间有用），或者通过将它包装在funs（）或波形符中来动态创建函数。...在这些情况下，我们必须在给出round（）指令之前添加列需要为数字的条件，这可以使用mutate_if来完成。通过使用mutate_if（），我们在管道中需要两个参数：首先，它需要有关列的信息。...（多个级别） ifelse（）可以嵌套，但如果你想要两个以上的级别，但是使用case_when（）可能更容易，它允许你喜欢的语句数量多，并且比许多嵌套的ifelse更容易阅读声明。

8K3 0

ggplot2进阶绘制蜂窝图

theme_minimal() + theme(plot.background = element_rect(fill = "grey99", color = NA)) # 构建ggplot图形，将结果存储在pp变量中...pp <- ggplot_build(p) # 从pp对象中提取数据，并创建一个新的数据框pp_df # 包含x, y坐标，半径r，以及cent_bee数据框中的其他相关列 pp_df <- data.frame...(id = row_number()) # 为每行添加一个唯一的id 调整点的位置 # 使用circleRepelLayout函数调整点的位置，以避免重叠 pp_repel <- circleRepelLayout...(pp_df, wrap = FALSE, sizetype = "area") # 使用circleLayoutVertices函数获取调整后的点的坐标 pp_repel_out <- circleLayoutVertices...x.x,y = y.x,color = case_when(place == "United States" ~ "#3B9AB2",

2484 0

ggpol包优雅的绘制蝴蝶图

欢迎关注R语言数据分析指南加载R包 library(tidyverse) # devtools::install_github('erocoar/ggpol') library(ggpol) 导入数据...ungroup() %>% # 解除分组 unite(col = "status_gender", gender, status, sep = "_") %>% # 将性别和选举状态合并成一个新的列...uncount(count) %>% # 根据count列的值，将行复制相应的次数 group_by(constituency, gender) %>% mutate(y = sequence...() %>% # 解除分组 mutate(status_label = case_when(status == "elected" ~ "elected",...gender == "male" ~ "Male candidates")) 数据可视化 ggplot() + geom_point(data = results, # 添加点图层，使用处理后的选举数据

2341 0

ggplot2优雅的绘制流程图

❝本节来介绍一个用R语言绘制流程图的案例 ❞ 「代码链接」https://gist.github.com/AlbertRapp/438102c458fc8fbdffcb6feb76ff93f7 可以从网站直接获取...，如果你下载网速很慢，可以从文末直接获取代码展示加载R包 library(tidyverse) library(igraph) library(showtext) library(thematic)..., 'Yes_4', 'Yes_4', 'You\'re not a horse_4' ) 创建图形和布局 graph <- graph_from_data_frame(dat, directed...(xmin = x - box_width,xmax = x + box_width,ymin = case_when( str_detect(step, '(legs|reading|write)...(y = ifelse(s_e == "from", ymin, ymax)) %>% select(-c(ymin, ymax)) %>% mutate(x = case_when(s_e

4682 0

3191 0

Day07 生信马拉松-数据整理中的R

2.3 mutate，数据框新增一列 test <- mutate(test, new = Sepal.Length * Sepal.Width) #R中的修改必须要赋值，不赋值=没发生 test...2.4 连续步骤的不同方法 2.4.1 多次赋值，产生多个中间的变量 x1 = select(iris,-5) #"-5"为删除第5列 x2 = as.matrix(x1) x3 = head(x2,50...管道符号传递，简洁明了--最优选择 iris %>% select(-5) %>% as.matrix() %>% head(50) %>% pheatmap::pheatmap() 3.条件和循环...ifelse(k1,"tumor","normal") k2 = str_detect(samples,"normal");k2 ifelse(k2,"normal","tumor") 3.1.3 多个条件...dir() # 列出工作目录下的文件 dir(pattern = ".R$") #列出工作目录下以.R结尾的文件 file.create("douhua.txt") #用代码创建文件 file.exists

2090 0

使用 ncov 包获取并分析疫情数据

包的 hchinamap 函数，因此可以直接使用 plot() 作用 ncov 对象进行绘图： # 确诊人数的省份分布： plot(df, itermName = "确诊人数",...新冠病毒的传染能力：R0 前面已经介绍过 R0 的计算了，这里就不再介绍了。...我们来使用最新的数据计算 R0: library(deSolve) R0 <- function(days){ historylist <- suppressMessages( df$jsondata...下降的很快，而且很稳定，这是因为我使用的是增量数据（并没有固定窗口）。...的变化和预测", x = "", y = TeX("R_0"), subtitle = TeX("R_0：表示平均有多少个健康的人被患者感染"), caption = "TidyFriday

1.3K2 0

ggplot2绘制多边形热图

欢迎关注R语言数据分析指南 ❝本节通过一个案例来介绍如何绘制多边形热图，整个过程仅参考。希望对各位观众老爷能有所帮助。...❞ 加载R包 library(tidyverse) library(camcorder) library(RColorBrewer) 导入数据 scurvy <- read_csv('scurvy.csv...') pal <- RColorBrewer::brewer.pal(name = "Paired", n = 4) 定义函数 # 格式处理 clean_format % # 对处理和症状名称进行清洁和格式化 mutate(...(i = row_number()) # 为每一行添加一个行号创建背景网格数据 rct <- expand.grid(x = 1:5 + 0.5, y = 1:6 + 0.5) 数据可视化 ggplot

1361 0

R语言ggplot2：单元格为方块的热图简单小例子-2

昨天公众号后台有人留言作图，示例图如下 image.png 我选择使用R语言的ggplot2来实现，这个是箱线图和热图的拼接，右侧的热图可以借助geom_point()函数实现，将点的形状改为正方块，数值按照正负来映射颜色...继续昨天推文的内容 R语言ggplot2绘图单元格为方块的热图—1—调整图例的位置（点击蓝色字体直达昨天的推文）今天的推文记录一下如何实现这个热图首先构造一份数据集 set.seed("20200407...head(df) df1<-reshape2::melt(df,id.vars="Sample") head(df1) image.png 构造数据 library(dplyr) df1%>% mutate...(group_1 = case_when( value <= 0 ~ "A", TRUE ~ "B" ))%>% mutate(group_2=case_when( value...(value_1=case_when( value >= -1 & value < -0.7 ~ -0.8, value >= -0.7 & value < -0.5 ~ -0.6,

2.6K2 0

R代码|dplyr包的使用示例

代码代码来自《r-data-science-quick-reference-master》的内容。 dplyr包的使用例子。...## 变量选择函数select iris_df %>% select(Sepal.Length, Species) %>% print(n = 3) iris_df %>% select...>% select(sepal_length = Sepal.Length, sepal_width = Sepal.Width) %>% print(n = 3) ## 变量重命名函数...print(n = 5) df <- tribble( ~height, ~width, 10, 12, 42, 24, 14, 12 ) ## 变量生成函数...mean_income ) ) %>% spread(key = "year", value = "mean_income") 温馨提示：第一步：运行一边代码，掌握相应的包和函数使用

1.6K3 0

生信技能树- R语言-day7

duplicated(mm)] 提取没有重复的第一次出现的mutate，数据框新增一列mutate(test, new = Sepal.Length * Sepal.Width) new是新产生的列名新加之后...多次赋值，会产生多个中间的变量x1 = select(iris,-5)x2 = as.matrix(x1)x3 = head(x2,50)pheatmap::pheatmap(x3)2....select(iris,-5)),50))管道符号传递，简洁明了iris %>%select(-5) %>%as.matrix() %>%head(50) %>%pheatmap::pheatmap()玩转条件和循环条件...else2， ifelse（，，ifelse）在ifelse里加一个ifelse补充 case_when练习题1.加载deg.Rdata,根据a、b两列的值，按照以下条件生成向量x：load("deg.Rdata...() # 列出工作目录下的文件dir(pattern = ".R$") #列出工作目录下以.R结尾的文件file.create("douhua.txt") #用代码创建文件file.exists("douhua.txt

720 0

R语言第二章数据处理⑤数据框列的转化和计算目录正文

正文本篇描述了如何计算R中的数据框并将其添加到数据框中。一般使用dplyr R包中以下R函数： Mutate（）：计算新变量并将其添加到数据表中。它保留了现有的变量。...同时还有mutate（）和transmutate（）的三个变体来一次修改多个列： Mutate_all（）/ transmutate_all（）：将函数应用于数据框中的每个列。...Mutate_at（）/ transmutate_at（）：将函数应用于使用字符向量选择的特定列 Mutate_if（）/ transmutate_if（）：将函数应用于使用返回TRUE的谓词函数选择的列...mutate：通过保留现有变量来添加新变量，通过保留现有列来添加新列（sepal_by_petal）： library(tidyverse) my_data <- as_tibble(iris) my_data...my_data %>% mutate(sepal_by_petal_l = Sepal.Length/Petal.Length) transmute：通过删除现有变量来创建新变量，删除现有列，添加新列

4.1K2 0

Nature图表复现 | 组合绘制个性化热图

论文论文原图 ❝此图主要通过多个几何对象的叠加来进行绘制，图形的绘制并非难点，难点在于如何对源数据进行统计分析得到绘图所需数据，在此小编随意构建了数据仅供绘图展示。...❞ 加载R包 library(tidyverse) library(readxl) library(magrittr) 导入数据 df % drop_na() %>% mutate(group=case_when(value < -0.5 ~ "latter...color=value,size=value))+ coord_cartesian(clip = "off") + # 关闭坐标轴裁剪 labs(x=NULL,y=NULL)+ # 移除x和y...scale_color_gradient2(mid="#FBFEF9",low="#0C6291",high="#A63446") + # 设置填充颜色 theme_test()+ # 使用

4123 0

R语言利用转录组基因表达矩阵做基因共表达分析的学习资料推荐

参考资料链接 https://github.com/cxli233/SimpleTidy_GeneCoEx/tree/v1.0.1 提供完整的示例数据和代码，非常好的学习材料做基因共表达比较常用的是...WGCNA那个R包，这个链接里提供的代码不是用WGCNA这个R包实现的，而是利用表达量数据计算不同基因之间的相关性，这种方法也挺常用的在论文里见过表达量数据是来源于论文 High-resolution...(stage = case_when( str_detect(dev_stage, "MG|Br|Pk") ~ str_sub(dev_stage, start = 1, end = 2),...) PCA_by_stage library(patchwork) PCA_by_method+PCA_by_tissue+PCA_by_tissue image.png 以上用到的代码和示例数据都可以在推文开头提到链接里找到...上面的代码有一步是对TPM值加1然后取log10，他的实现方式是先将宽格式数据转换为长格式，然后把取log10后的长格式再转换为宽格式，这里我没能还可以借助mutate_at()函数 Exp_table

3671 0

使用 R 语言从 PDF 文档中提取表格

由于一个知识星球的小伙伴急需学习如何从 PDF 文档中提取表格，所以先插这个课，「使用 R 语言处理 netCDF 数据」系列的课程下次再发新的哈。...本课程介绍了如何使用 R 语言从 WHO（世界卫生组织）的官网上下载新冠疫情的每日报告以及如何从这些报告中的表格里面提取数据。...从 PDF 里面提取表格数据我选择最新的一个 PDF 做演示：20200523-covid-19-sitrep-124.pdf，下面使用 tabulizer 包进行数据提取，不过这个包依赖于 rJava...包，因此在使用这个包之前你需要在电脑上安装 Java 和在 R 里面安装 rJava 包。...因为电脑系统的关系，我不好演示，大家可以自己研究下，不难的。我这里提供几个 tips，Java 安装之后可能还需要进行环境变量的配置。

3.5K1 0

大更新，pandas终于有case_when方法了！

一、环境首先，pandas2.2.0的版本有个安装的前提条件，就是python的版本需要在3.9及以上才行，因此如果使用anaconda的朋友，可以通过conda install python=3.12.1...这里输入series是score_all，判断条件用的是english。替换值：替换值使用了lambda隐函数对输入series计算。...这就是case_when非常灵活的原因，判断条件和替换值既可以是固定的值，也可以是自定义的函数，根据自己的需求随意设置。...案例3 case_when只实现区域内的变量加工，其输出结果也可以与其他函数方法结合，产生更多强大的功能。...比如，可以将以上全部变量加工过程通过链式的方式更优雅的实现，结合assign的使用一行代码可完成全部。

1971 0

ggplot2绘制CNS级热图

❝本节来介绍如何使用分面来绘制热图并填充特殊字符，下面通过一个小例子来进行展示；加载R包 library(tidyverse) library(ggtext) library(ggforce) 数据清洗...❝此处使用case_when来根据数值大小进行特殊字符的转换 ❞ df % mutate( CL_evolution_sign = case_when...CL_evolution > 0 ~ "↑", CL_evolution < 0 ~ "↓", TRUE ~ "="), PR_evolution_sign = case_when...PR_evolution < 0 ~ "↓", TRUE ~ "=")) 数据可视化 df %>% ggplot() + geom_circle(aes( x0= 1, y0 = 1, r...= .5, fill = 8-CL), size = .125) + geom_circle(aes( x0= 2, y0 = 1, r = .5, fill = 8-PR), size = .125

3551 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云