我的零值很重要，case_when 正在删除它们

Question

我有一个 2X2 设计（它更复杂，但下面是一个简单的例子来说明我的问题）。

假设我的输出数据如下所示：

图中，ID是每个参与者，block number是他们看到的条件，每个人看到了4个问题。

平衡发挥作用的地方（例如）是相同的项目（例如项目 1）在 Q1-Q4 之间的不同位置重复出现在参与者之间，具体取决于区块。在上图中，Item1 将是红色数字。我使用 case_when 提取组合并给我一个干净的 Item1 响应列：

data <- data %>% mutate(
  Item1= case_when(
    BlockNumber == 'Block1' & Q1 ~ Q1, 
    BlockNumber == 'Block5' & Q2 ~ Q2,
    BlockNumber == 'Block6' & Q3 ~ Q3,
    BlockNumber == 'Block7' & Q4 ~ Q4))

这给了我类似的东西：

代码完全按照我的需要做，但零值正在下降 [在图片中突出显示]。

它不是零，而是一个 NA 值。像这样的东西： enter image description here

问题是零在我的数据中是有意义的，我需要保留它们。

有人知道我可以添加/使用什么代码来避免这种情况吗？之后它真的搞砸了我的平均分数，因为零被丢弃了。

Answer 1

data <- data %>% mutate(
  Item1= case_when(
    BlockNumber == 'Block1' & Q1 ~ Q1, 
    BlockNumber == 'Block4' & Q2 ~ Q2,
    BlockNumber == 'Block6' & Q3 ~ Q3,
    BlockNumber == 'Block7' & Q4 ~ Q4,

    # Get ready for some magic!
    TRUE ~ 0))

如果您想在其他测试未通过的情况下指定一个值，您可以使用 TRUE 作为最后一个“测试”来使用该值。

否则，任何未通过先前测试的情况都会输出 NA。

Answer 2

我相信您遇到这种情况的原因是整数 0 的计算结果为 FALSE。也就是说，在BlockNumber == 'Block5' 所在的行中，您有Q2 == 0，这意味着您正在询问BlockNumber == 'Block5' & FALSE 的情况，即FALSE。因此，对于这种情况，您会得到 NA。

从您的解释看来，您实际上并不需要第二个条件，所以您可以做的是简化您的 case_when 操作：

data %>% mutate(
  Item1= case_when(
    BlockNumber == 'Block1' ~ Q1, 
    BlockNumber == 'Block5' ~ Q2,
    BlockNumber == 'Block6' ~ Q3,
    BlockNumber == 'Block7' ~ Q4))

至少我不明白你为什么需要& Qx 条件。但如果我误解了什么，请告诉我。