x <- "id,Price
1,Total:$164 (164+0)
2,Total:$449 (449+0)
3,Total:$910 (910+0)
4,Total:$477 (377+100)"

DF <- read.csv(textConnection(x), stringsAsFactors = FALSE)

library(stringr)
str_match_all(DF$Price, "Total:\\$\\d+ \\((\\d+)\\+(\\d+)\\)")
# [[1]]
#      [,1]                 [,2]  [,3]
# [1,] "Total:$164 (164+0)" "164" "0"
#
# [[2]]
#      [,1]                 [,2]  [,3]
# [1,] "Total:$449 (449+0)" "449" "0"
#
# [[3]]
#      [,1]                 [,2]  [,3]
# [1,] "Total:$910 (910+0)" "910" "0"
#
# [[4]]
#      [,1]                   [,2]  [,3]
# [1,] "Total:$477 (377+100)" "377" "100"
#