Question

我无法在Shiny中创建列联表。它导致两列并排而不是交叉表。

output$currtarget<-renderTable({

    currtgt<- cstable %>%

      select(parent_id,tutor_id,status_name,first_name) #%>%

      xtabs(as.formula(paste0("~",status_name,"+",first_name),currtgt)

  })

Answer 1

这也恰好发生在我今天更新了所有包裹之后 - 上周工作正常。不确定为什么会改变，但它非常烦人！

无论如何，我的解决方法是使用as.data.frame.matrix，然后在大括号和最后一个括号之间设置include.rownames=TRUE。

renderTable = ({
...
my_tbl = addmargins(table(one_group, another_group))
printed_tbl = as.data.frame.matrix(my_tbl)
print_tbl
}, include.rownames=TRUE)

R Shiny-列联表

1 个答案: