R 变压器数据（按列名称）

Question

我有上面的这些数据，希望将常见标题（斑马鱼、Car-Po Wax）的分数相加，以获得下面的数据

我知道我应该插入代码，但我不知道如何在 R 中使用空格创建变量名，我尝试过，但它给出了“Zebra..fish”

Answer 1

数据

quux <- data.frame(Score=1:3, "Zebra (text)"=c(5,1,1), "Zebra (feow)"=c(4,1,4), "Car-Po (wordz)"=c(2,2,5), "Car-Po (bat)"=c(2,4,3), check.names=FALSE)

dplyr

library(dplyr)
library(tidyr)
quux |>
  pivot_longer(-Score) |>
  mutate(name = trimws(gsub("\\(.*", "", name))) |>
  summarize(value = sum(value), .by = c(Score, name)) |>
  pivot_wider(id_cols = Score)
# # A tibble: 3 × 3
#   Score Zebra `Car-Po`
#   <int> <dbl>    <dbl>
# 1     1     9        4
# 2     2     2        6
# 3     3     5        8