R：使用现有值创建新列，以另一列的组为条件

Question

我正在研究一个眼动追踪数据集，希望将现有列中的值分配给新列，以第二个现有列为条件。

我有列：带有因子 left 和 right 的“targetlocation”、带有数值的“right_looks”和带有数值的“left_looks”。

我想要做的是：

• 为“target_looks”和“distractor_looks”创建新列，其中：
• 如果“targetlocation”为right，则“right_looks”中的值将分配给“target_looks”，并且“ left_looks”被分配给“distractor_looks”
• 如果“targetlocation”是left，那么“left_looks”中的值将被分配给“target_looks”，并且来自“target_looks”的值将被分配给“target_looks” “right_looks”被分配给“distractor_looks”

我尝试创建第一个空列，然后填充它们，但也许 mutate() 或 if_else() 语句在这里效果更好。有什么解决办法吗？

Answer 1

这是示例数据的另一种方法。为了清楚起见，我创建了一个带有“左”和“右”的简单2个元素向量。您的TargetLocation可以是这些级别的因素，而nontargetLocation将是该因素的反向级别。您可以使用GET根据“左”或“右”提取适当的列名的值。

set.seed(123)

df <- data.frame(
  targetlocation = c("left", "left", "right", "left"),
  left_looks = sample(4),
  right_looks = sample(4)
)

library(tidyverse)

my_levels <- c("left", "right")

df %>%
  rowwise() %>%
  mutate(
    targetlocation = factor(targetlocation, levels = my_levels),
    nontargetlocation = rev(my_levels)[targetlocation],
    target_looks = get(paste0(targetlocation, "_looks")),
    distractor_looks = get(paste0(nontargetlocation, "_looks"))
  )

输出

  targetlocation left_looks right_looks nontargetlocation target_looks distractor_looks
  <fct>               <int>       <int> <chr>                    <int>            <int>
1 left                    3           3 right                        3                3
2 left                    4           2 right                        4                2
3 right                   1           4 left                         4                1
4 left                    2           1 right                        2                1

Answer 2

这是一种选择。

df$target_looks <- df$distractor_looks <- 0
df[df$targetlocation == 'right', c('target_looks', 'distractor_looks')] <- df[df$targetlocation == 'right', c('rightlooks', 'leftlooks')]
df[df$targetlocation == 'left', c('target_looks', 'distractor_looks')] <- df[df$targetlocation == 'left', c('leftlooks', 'rightlooks')]