以sdlg150挖掘机价格表中价格的平均值是多少?

# 以sdlg150挖掘机价格表
data <- read.csv("price_table.csv")

# 找出价格表中以sdlg150挖掘机的价格
sdlg150_prices <- data %>%
  filter(product == "sdlg150")

# 求价格平均值
average_price <- round(mean(sdlg150_prices$price), 2)

# 打印平均价格
print(average_price)
```