我有一个数据框，它将社会人口统计数据与多个网站的意识措施相结合。每个网站都有一个单独的列，说明此人是否知道该网站（“是”/“否”）。此外，每个受访者都应该根据他出席的人数（变量 popWeight）加权。
我想创建一个闪亮的应用程序，为知道所选网站的人显示图表。该网站应该可以通过 selectInput () 按钮进行选择。
我发现了几篇关于 stackoverflow 的文章，这些文章涵盖了 dplyr+shiny 的数据集过滤器。但所有这些都改变了变量值而不是变量本身。
我尝试使用以下方法，但没有成功（编码示例见下文）。
示例数据框：
gender <- factor(sample(1:2, 5, replace=TRUE), levels = c(1,2,99), labels = c("Male", "Female", "Missing Value"))
age <- sample(18:55, 5, replace=TRUE)
web1 <- factor(sample(1:2, 5, replace=TRUE), levels = c(1,2,99), labels = c("Yes", "No", "Missing Value"))
web2 <- factor(sample(1:2, 5, replace=TRUE), levels = c(1,2,99), labels = c("Yes", "No", "Missing Value"))
web3 <- factor(sample(1:2, 5, replace=TRUE), levels = c(1,2,99), labels = c("Yes", "No", "Missing Value"))
web4 <- …