r - 使用 dplyr 在 r 数据帧中使用非标准评估和变异
问题描述
我无法弄清楚如何使用包含 R 数据框列名的字符串进行一些基本计算以变异为新列。例如,我有基线值列和其他具有治疗后时间点的列。我想为此使用列名字符串,因为我将使用指定了不同时间点的数据,并且我想要一个编程解决方案。
例如,我有这个数据框,我想我需要在下面的 mutate 行中使用一些语法,但无法弄清楚如何写右手边。我希望名为“day1_fc”和“day2_fc”的列代表 day1/baseline 和 day2/baseline 的倍数变化。
df <- data.frame(day0 = c(1,1,1),
day1 = c(2,3,4),
day2 = c(3,4,5))
baseline = 'day0'
sym_baseline <- sym(baseline)
post = c('day1', 'day2')
post1 <- post[1]
post2 <- post[2]
df %>%
mutate(!!paste0(post1, '_fc' := ?????),
!!paste0(post2, '_fc') := ?????)
我希望结果看起来像:
df <- data.frame(day0 = c(1, 0.5, 2),
day1 = c(2, 3, 4),
day2 = c(3, 4, 5),
day1_fc = c(2, 6, 2),
day2_fc = c(3, 8, 2.5))
解决方案
您可以使用 :
library(dplyr)
library(rlang)
df %>%
mutate(!!paste0(post1, '_fc') := !!sym(post[1])/!!sym_baseline,
!!paste0(post2, '_fc') := !!sym(post[2])/!!sym_baseline)
# day0 day1 day2 day1_fc day2_fc
#1 1.0 2 3 2 3.0
#2 0.5 3 4 6 8.0
#3 2.0 4 5 2 2.5
许多值的一般解决方案post
是使用map
:
bind_cols(df, purrr::map_dfc(post,
~df %>% transmute(!!paste0(.x, '_fc') := !!sym(.x)/!!sym_baseline)))
推荐阅读
- mysql - 简单优化查询 - MYSQL
- c - 为什么 gcc 即使在使用 f 后缀后仍将浮点文字转换为 double 但 clang 似乎没有?
- html - 为什么居中和超链接的图像左右两侧的空白是可点击的?
- linux - 在 Linux 脚本中接收“curl: (3) Illegal characters found in URL”
- javascript - Javascript - 为什么 Ramda over 函数在这里不起作用?
- c# - 将列表中的登录信息与 txt 值匹配
- mysql - 在 MySQL 中将两个查询连接在一起
- optimization - SAT和线性规划有什么区别
- ruby-on-rails - 将 Rails 条件语句传递给 where 子句
- php - 如何翻译 Laravel 5.7 电子邮件验证?