尺寸数量不正确r -rowsums

Question

我是编码的新手，所以我基本上是在谷歌搜索所有内容，但我无法弄清楚这一点：

我有一个32行和19列的数据框架。我想在三个特定列中计算每行的总和。

我是这样写的：

d10 - 我的数据框架。

compriance_score - 我想要添加

CROMPIANCE_1-3的新列 - 我想要总和

D10$Compliance_score = rowSums(D10[ ,c("Compliance_1", "Compliance_2", "Compliance_3"), drop = FALSE])

我继续遇到错误的列：“尺寸不正确的数量”。<<<<<<<<< /code>

无法弄清楚我在做什么错，或者此错误消息甚至意味着什么。

有什么想法吗？

**编辑：如果我正确理解了什么是复制的例子（这是我的第一次，我希望我得到了正确的 - 如果不是，请让我知道）

> dput(head(D10))
structure(list(PP = c("003", "014", "047", "013", "053", "048"
), MAAS_1 = c("4.0", "4.0", "3.0", "5.0", "3.0", "4.0"), MAAS_2 = 
c("3.0", 
"1.0", "6.0", "4.0", "3.0", "3.0"), MAAS_3 = c("4.0", "5.0", 
"4.0", "3.0", "4.0", "4.0"), MAAS_4 = c("2.0", "2.0", "6.0", 
"2.0", "3.0", "4.0"), MAAS_5 = c("3.0", "3.0", "4.0", "5.0", 
"5.0", "5.0"), MAAS_6 = c("3.0", "3.0", "4.0", "3.0", "2.0", 
"4.0"), MAAS_7 = c("3.0", "3.0", "4.0", "3.0", "3.0", "5.0"), 
    MAAS_8 = c("2.0", "4.0", "4.0", "4.0", "4.0", "4.0"), MAAS_9 
= c("3.0", 
    "4.0", "3.0", "2.0", "4.0", "5.0"), MAAS_10 = c("3.0", "4.0", 
    "4.0", "2.0", "4.0", "4.0"), MAAS_11 = c("2.0", "5.0", "4.0", 
    "4.0", "1.0", "5.0"), MAAS_12 = c("2.0", "5.0", "6.0", "3.0", 
    "3.0", "6.0"), MAAS_13 = c("3.0", "3.0", "5.0", "3.0", "3.0", 
    "2.0"), MAAS_14 = c("3.0", "4.0", "5.0", "4.0", "4.0", "4.0"
    ), MAAS_15 = c("3.0", "5.0", "6.0", "3.0", "5.0", "5.0"), 
    Compliance_1 = c("0.0", "0.0", "0.0", "0.0", "1.0", "0.0"
    ), Compliance_2 = c("1.0", "0.0", "1.0", "0.0", "1.0", "0.0"
    ), Compliance_3 = c("0.0", "0.0", "0.0", "0.0", "0.0", "0.0"
    )), row.names = c(NA, -6L), class = c("tbl_df", "tbl",         
"data.frame"
))
>

这是有道理的吗？

Answer 1

您可以尝试一下：

library(tidyverse)
New_D <- D10 %>%
  mutate(Compliance_score = sum(c(Compliance_1, Compliance_2, Compliance_3), na.rm=TRUE))

但是，一个可重现的示例很棒，可以理解错误。

克莱尔

Answer 2

您的问题是您的数据被存储为字符，因此您需要将其转换为类numeric，以便计算总和，即

library(dplyr)

New_D <- df %>%
  mutate(across(starts_with("Compliance"), as.numeric)) %>% 
  mutate(Compliance_score = Compliance_1 + Compliance_2 + Compliance_3)

或使用@claire建议，当您有Na'values时

New_D <- df %>%
  mutate(across(starts_with("Compliance"), as.numeric)) %>% 
  mutate(Compliance_score = sum(c(Compliance_1, Compliance_2, Compliance_3),
                                na.rm=TRUE))