Shiny 创造了一个反应式传奇

Question

我正在关注R shiny Aesthetics must be either length 1 or the same as the data (8): y 中给出的解决方案，以解决我很高兴解决的烦人问题。

我要解决的下一个问题是我希望我的情节有一个反应图例 - 我只希望图例显示实际选择的内容和情节

我还想将线条的颜色设置为我想要的颜色。最后，我想确保图例始终按照我指定的顺序进行

这是一个可重现的示例（注释掉的代码是我尝试解决自己的问题。

如您所见，注释掉的部分是我尝试获取我想要的图例和颜色的方式：

library(shiny)
library(tidyverse)
library(reshape2)
library(scales)

time <- seq(-9, 60, 1)
var1 <- rnorm(70, 35, 2)
var2 <- rnorm(70, 50, 2)
var3 <- rnorm(70, 24, 2)
var4 <- rnorm(70, 17, 2)

data <- data.frame(time = time, 
                   var1 = var1, 
                   var2 = var2,
                   var3 = var3,
                   var4 = var4)

datamelt <- melt(data, "time")

p <- ggplot(datamelt, aes(x = time, y = value, color = variable)) +
  # scale_color_manual(values = c(
  # 'first' = 'red',
  # 'second' = 'blue',
  #   'third' = 'green',
  #   'fourth' = 'orange'
  #   ),
  # breaks = c("first", "second", "third", "fourth")) +
  #  labs(color = 'Legend') +
  theme_classic() +
  theme(axis.ticks = element_blank()) +
  labs(title = 'it means nothing',
       subtitle = 'these are made up data') +
  theme(plot.title = element_text(hjust = 0.5),
        plot.subtitle = element_text(hjust = 0.5)) +
  scale_x_continuous(name ="a y variable", breaks = seq(-9, 60, 1)) +
  scale_y_continuous(name = "yep an x variable", 
                     breaks = seq(0, 60, 5), labels = comma) + geom_blank()


ui <- fluidPage(
  titlePanel("trying to make this work"),
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput("whichone", "Choose something:", 
                         choiceNames = c("first", 
                                         "second", 
                                         "third",
                                         "fourth"), 
                         choiceValues = c("var1", 
                                          "var2",
                                          "var3",
                                          "var4"))
    ),
    ###the plot
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
   output$plot <- renderPlot({
      data_filtered <- datamelt %>% filter(variable %in% input$whichone)
      p + geom_line(data = data_filtered)
   })
}

shinyApp(ui, server)

Answer 1

出现问题是因为ggplot 使用了所有因子水平，这些因子水平在您过滤时保持不变。所以你需要先降低这些水平。

其次，您正在使用所有级别静态生成图。因此，您还需要更新 teh plto 中的数据，让ggplot 知道要在图例中显示哪些级别。将它们放在一起，您可以使用以下内容：

server <- function(input, output) {
   output$plot <- renderPlot({
      ## 1. drop unused levels from teh filtered database
      data_filtered <- datamelt %>% filter(variable %in% input$whichone) %>%
          droplevels()
      ## 2. tell ggplot to update the data
      p %+% data_filtered + geom_line()
   })
}

注意。这种方法有一个讨厌的 (?) 副作用，如果你不选择任何数据来显示你只会看到一个空的画布。这也可以补救，但需要对代码逻辑进行一些更改（基本上将 ggplot 的构造移动到 renderPlot 中）

---

截图