使用下面的代码来总结变量根据定义的向量，但失败了。任何人都可以帮助这个？谢谢！

library(tidyverse)
data('diamonds')
group_variables <- c('color','clarity','cut')
value_variables <- c('x','y','z')

for (group_variable in group_variables){
  for (value_variable in value_variables){
    result <- diamonds %>% 
      group_by(group_variable) %>% 
      summarise(values_sum=sum(value_variable))
     
    print(result)
  }  
}