ggplot2雷达图未读取输入$亮

如何解决ggplot2雷达图未读取输入$亮

我正在构建一个仪表板。仪表板中的边栏不与图表交互。我想让他们一起互动缺少一些东西。关于input$的一些事情我还没有弄清楚。

这是我的代码：

Inputs {.sidebar}
-----------------------------------------------------------------------


```{r}
ui <- selectInput(inputId = "country",label = h3("Country"),choices = c("Afghanistan","Algeria","Botswana"),selected = "Afghanistan")
```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}
server <- function(input,output) {
  
ggplot(Radar_P6,aes(x = category,y = P6_scores,group = input$country,color = country)) +
  geom_polygon(size = 1,alpha= 0) +
  theme(strip.text.x = element_text(size = rel(0.9)),axis.text.x = element_text(size = rel(0.9)),axis.ticks.y = element_blank(),axis.text.y = element_blank()) +
  xlab("") + ylab("") +
  guides(color = guide_legend(ncol=1)) +
  coord_polar() +
 geom_point()}

shinyApp(ui,server)

```