R 按组中的函数在组中创建新变量

我尝试执行此功能时遇到一些问题：

server = function(input, output) {
Casco_l = subset(Data,INSR_TYPE==3003)
aggregated <- reactive({
Casco_l %>%
  group_by_("3003"=input$select) %>%
  summarise("Exposure" = sum(Exposure), "Earned Premium" = sum(Earned_Premium), ,"GWP" = sum(GWP_RON), "Incurred" = sum(inc),"NO of events" = sum(No_ev),
            "Frequency" = (sum(Exposure)/sum(No_ev)), "Loss Ratio" = (sum(Earned_Premium)/sum(inc)),
            "ULR"= ((sum(Earned_Premium)/sum(inc))*ulr), "Avr premium" = (sum(Earned_Premium)/sum(Exposure)),
            "Avr claim" = (ifelse(sum(No_ev)=0,0,(sum(inc)/sum(No_ev))) ))

我不明白为什么“损失率”没有问题，而其他变量smth不起作用

---

谢谢。

阅读您的错误消息：

Error: unexpected '=' in:
 "                "ULR"= ((sum(Earned_Premium)/sum(inc))*ulr), "Avr premium" = (sum(Earned_Premium)/sum(Exposure)),
                  "Avr claim" = (ifelse(sum(No_ev)="

---

问题是你应该在ifelse语句中使用“==”而不是“=”，这就是脚本抛出错误的原因。

没问题，很高兴它帮助了你。你知道我为什么会出现这个错误吗：“缺少参数“expr”，没有默认值”？请尝试给我更多详细信息和代码，以了解你的问题威尔，我不能再问其他问题，也不能在这里复制整个代码。我在服务器部分有这样一条语句：

output$table1
Error: unexpected '=' in:
 "                "ULR"= ((sum(Earned_Premium)/sum(inc))*ulr), "Avr premium" = (sum(Earned_Premium)/sum(Exposure)),
                  "Avr claim" = (ifelse(sum(No_ev)="