R 如何将两列销售子数据相加，即面积和总面积，以生产纳米为基础

error=参数必须具有相同的长度

这是一个数据框，我在这个数据框中创建了一个子数据，在这个子数据上，我想应用一个lappy（）对同一个乘积的数据求和

 biz1=data.table(
    year=query2$YEAR,
    ProdNm=query2$PROD_NM,
    AreaTotal = as.numeric(as.character(query2$AREATOTAL)),
    Sold_that_area = query2$AREAQTY,
    Month = query2$MONTHNAME,
    Weekand= query2$AREAWEEK,
    AreaName=query2$AREA_NAME,
    Manufacturer=query2$MFG,
    stringsAsFactors = FALSE
  )


here 
subdata4 = reactive(biz1[which(biz1$year == input$YEAR),])
  subdata5 = reactive(subdata4()[which(subdata4()$Weekand == input$WEEK),])
subdata7 = reactive(subdata6()[which(subdata6()$Manufacturer == input$manufacturer),])
this data is coming from

product name      AreaQTY    AreaTotal   
       AA        1        1                
       AA        1        1                
       AA        2       10              
       AA        2       10               
       AA        3      100             
       AA        3      100             

       BB        7       -1               
       BB        7       -1              
       BB        8      -10       


and i want sum of AreaQty And Area total


renderDataTable({
    if(is.null(input$manufacturer) ){return()
    }
    else
    {

我想在prodnm的基础上计算销售面积和总面积之和

by(subdata7()[,c("ProdNm","Sold_that_area","AreaTotal")],subdata7()$ProdNm, FUN=colSums)


    }
  },rownames = FALSE, colnames=c("Product Name","Quantity Sold","Total")

---

试试这个：

href=“？action=addToCart&PROD\u ID=#cart”

prakash谢谢你的帮助，但这是主要问题，这不起作用。帮我解决这个问题试试这个：

href=“？action=addToCart&PROD\u ID=#cart”

prakash谢谢你的帮助，但这是主要问题，这不起作用。帮我解决这个问题