R:确定组内某些子组的最大值和最小值之间的差异

Question

下面的示例数据字段

Event        Ethnicity        Score
50 yd dash    Asian             7
50 yd dash    Afr. Am           8
50 yd dash    White             5
Hurdle        Asian             6
Hurdle        Afr. Am           8
Hurdle        White             9

我正在尝试确定每个事件中某些种族之间的差异，希望使用 dplyr 或 tidyverse 中的某些东西，但会接受任何答案/帮助。比如亚组和白组在各个项目中的区别，

例如，亚洲人 (7) - 白人 (5) = 差异 (2)，

导致类似于下面的输出:

Event          Difference
50 yd dash         2
Hurdle            -3

Answer 1

使用以下内容应该可以帮助您:

library(tidyverse)

df %>%
    spread(Ethnicity, Score) %>%
    mutate("Difference" = Asian - White) %>%
    select(-Asian, -White, -`Afr. Am`)
#       Event Difference
#1 50 yd dash          2
#2     Hurdle         -3

数据。

df <-
structure(list(Event = structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = c("50 yd dash", 
"Hurdle"), class = "factor"), Ethnicity = structure(c(2L, 1L, 
3L, 2L, 1L, 3L), .Label = c("Afr. Am", "Asian", "White"), class = "factor"), 
    Score = c(7L, 8L, 5L, 6L, 8L, 9L)), class = "data.frame", row.names = c(NA, 
-6L))

@AntoniosK 已经发布了一种读取 OP 发布的数据的 read.table 方法，但我的方法有点不同。我没有从列的值中删除空格，而是将它们放在单引号之间。 (它必须是单引号，因为指令将参数text的值放在双引号之间。)

df <- read.table(text = "
Event        Ethnicity        Score
'50 yd dash'    Asian             7
'50 yd dash'    'Afr. Am'           8
'50 yd dash'    White             5
Hurdle        Asian             6
Hurdle        'Afr. Am'           8
Hurdle        White             9
", header = TRUE)