Question

我有一个数据集，其中包含一组进行ACL重建的运动员的肌肉活动数据。我想重新分配肢体侧以指示ACLR肢体和未受伤的肢体。查看下面名为EMG的数据集，假设John有一个左ACLR而Bob有一个正确的ACLR。

athlete     limb     EMG_value
John        left         0.8
John        right        1.2
Bob         left         0.5
Bob         right        0.9

我希望数据集看起来像这样：

athlete     limb       EMG_value
John        ACLR         0.8
John        uninjured    1.2
Bob         uninjured    0.5
Bob         ACLR         0.9

我最初的计划是由运动员对数据进行分组，更改肢体值，然后将数据绑定回原始数据集。

流程摘录如下：

John = subset(EMG, athlete=="John")

John$side<- as.character(John$side)

John$side[John$side=="Left"]="ACLR"
John$side[John$side=="Right"]="Uninjured"
John$side = as.factor(John$side)

Bob = subset(EMG, athlete=="Bob")

Bob$side<- as.character(Bob$side)

Bob$side[Bob$side=="Left"]="Uninjured"
Bob$side[Bob$side=="Right"]="ACLR"
Bob$side = as.factor(Bob$side)

EMG2 = rbind(Bob, John)

我确信有一种方法可以使用dplyr中的数据管道更快地完成此操作。我确定有一种方法可以根据指定的条件替换变量的值。

逻辑将是：如果运动员== Bob然后用ACLR替换Left并用Uninjured替换Right。

感谢您提供的任何帮助。

马特

Answer 1

顺便说一下：你的逻辑和例子是矛盾的：你说＆＃34; Bob＆＃34;和＆＃34;左＆＃34;意味着＆＃34; ACLR＆＃34;但是您的示例数据不同意。尽管如此：

library(dplyr)
## generalizable so you can easily add other patients, etc
leftAthletes <- c('Bob')

mutate(acl, limb=ifelse(xor(athlete %in% leftAthletes, limb == 'left'),
                        'uninjured', 'ACLR'))
##   athlete      limb EMG_value
## 1    John uninjured       0.8
## 2    John      ACLR       1.2
## 3     Bob      ACLR       0.5
## 4     Bob uninjured       0.9

（注意使用xor ... ifelse内的检查基本上是＆＃34;如果在leftAthletes和right肢体中，或者不在leftAthletes和left肢体中，那么未受伤的其他ACLR＆＃34; 。）

根据dplyr中另一个变量的子集更改值

1 个答案: