r-使用不同行长的列计算：根据多个因子水平的参考值计算缩写百分比

我对R很陌生，第一次写函数时就被卡住了。我有一个数据集，里面有来自不同时期叶子提取物的多种化合物。下面是一些示例数据。

我想计算从第1天开始的每个值的缩写，以百分比的形式表示。这意味着我希望所有第1天数值的平均值成为我的参考值。

percentage <- function(x){
  mean1 <- mean(my_data$values[my_data$compound==x & my_data$day=="1"])
  percent <- ((my_data$values[my_data$compound==x] - mean1) / mean1) * 100
  return(as.numeric(percent))
}

该函数似乎适用于单个化合物，但我无法同时操作它，当我想将其作为新列添加到数据框时，

my_data$abbreviation <- percentage("Arginine")

我收到一条错误消息，因为行数不相等。有人知道我该如何克服这个问题吗？我必须重写函数吗？如果是，如何重写？

提前谢谢！

my_data <- 
  tibble::tribble(
  ~day, ~values,     ~compound,
    1L,     67L,    "Arginine",
    1L,     68L,    "Arginine",
    1L,     72L,    "Arginine",
    2L,     63L,    "Arginine",
    2L,     57L,    "Arginine",
    3L,     65L,    "Arginine",
    3L,     64L,    "Arginine",
    1L,    370L,     "Proline",
    1L,    355L,     "Proline",
    2L,    400L,     "Proline",
    3L,    450L,     "Proline",
    1L,    800L, "Citric acid",
    1L,    756L, "Citric acid",
    2L,    780L, "Citric acid",
    3L,    600L, "Citric acid"
  )