R中的条件划分

Question

我正在尝试计算R中产品的价格。因为并非所有产品都已售出，所以有些产品没有实际销售价格。我想计算销售价格并为没有销售价格的价值返回空白。

我从这个功能开始，但它似乎不起作用。

sale.price <- function(price) {
  if (CM.sample$Sales > 0) {
    return(CM.sample$Sales / CM.sample$Product.Quantity.Purchased)
  } else {
    return("")
  }
 }

 sale.price <- as.numeric(sapply(sale.price, price))

这是我的数据的一个例子。

Product   Sales   Order.Quantity  Price
P1         120         2
P2          45         1
P3                
P4          25         2
P5   
P6         180         3

理想情况下，我希望最终结果看起来像这样。

 Product   Sales   Order.Quantity  Price
 P1         120         2           60
 P2          45         1           45
 P3                                 
 P4          25         2           12.5
 P5   
 P6         180         3           60

Answer 1

怎么样：

# Initialize with ""
CM.sample$Price <- ""
# Calculate for rows with quantites
CM.sample$Price[as.numeric(as.character(CM.sample$Sales)) > 0] <- CM.sample$Sales / CM.sample$Product.Quantity.Purchased