Create 每种葡萄酒的总分.R