在我的数据框中，我想通过将DiscVar变量乘以数字（1400，(1400-342)或(1400+500)）来计算产品（帽子，鞋子或伞）的成本，具体取决于产品。
计算只能用于第一次操作的问题，即dfq$DiscVar * 1400，我不知道为什么。
谢谢你的帮助！！
# Data & arithmetic operation
dfq <- data.frame(ObjVar=c("hat","hat","shoe","shoe","umbrella"),DiscVar=c(0.19,0.39,0.18,1.00,0.64))
dfq$CostVar[dfq$ObjVar == "hat"] <- dfq$DiscVar * 1400
dfq$CostVar[dfq$ObjVar == "shoe"] <- dfq$DiscVar * (1400-342)
dfq$CostVar[dfq$ObjVar == "umbrella"] <- dfq$DiscVar * (1400+500)