Метод API Gateway Options, выбрасывающий 403

Вот базовое R-решение

# gives 2x2 table
x <- by(df[, !names(df) %in% c("ID", "Group")], list(df$ID, df$Group), max)

# get requested format
tmp <- expand.grid(ID = rownames(x), Group = colnames(x))
tmp$Max <- as.vector(x)
tmp[complete.cases(tmp), ]
#R   ID Group Max
#R 1 a1   abc  11
#R 3 a1   def   5
#R 4 a2   def  11

с

df <- structure(list(
  ID = structure(c(1L, 1L, 1L, 2L), .Label = c("a1", "a2"), class = "factor"), 
  Group = structure(c(1L, 1L, 2L, 2L), .Label = c("abc", "def"), class = "factor"), 
  Score1 = c(10L, 0L, 0L, 5L), Score2 = c(0L, 0L, 5L, 10L), 
  Score3 = c(0L, 11L, 2L, 11L)), 
  class = "data.frame", row.names = c(NA, -4L))