散点图和闪亮

Question

我对闪亮和 ggplot 还是很陌生，所以我不确定是什么导致了这个问题，我之前已经发布了这个代码的不同问题但是我遇到了一个新问题......当我运行代码时我的情节没有出现，而是出现错误：警告：FUN 中的错误：找不到对象“total_pigs”。

无论我在 selectInput "x"function 中选择什么选项，我都会收到此错误。

我在 app.R 文件所在的同一目录中有一个单独的 CSV 文件。 selectInput(s) 匹配 CSV 中的列和行，我希望我的代码可以简单地读取存储在其中的数据，这将生成我的绘图点。

library(shiny)
library(ggplot2)
path <- file.path("eu_pigs.csv", stringsAsFactors = FALSE)
ui <- fluidPage(
titlePanel("Breeding Numbers 2016 - 2018 (pig)"),
sidebarLayout(
sidebarPanel(
selectInput(inputId = "x", 
          label = "Pig Breeds:", 
          choices = c("total_pigs", "female_breeding_herd", 
                      "in_pig_sows", "in_pig_gifts", "other_sows", 
                      "maiden_gilts", "boars_for_service", "other_pigs"),
          selected = "total_pigs"),
selectInput(inputId = "y",
          label = "Year by year change:",
          choices = c(2016, 2017, 2018, sep = ""),
          selected = 2016)
),
mainPanel(
plotOutput(outputId = "scatterplot")
)
)
)

server <- (function(input, output) {
output$scatterplot <- renderPlot({
ggplot(data = read.csv("eu_pigs.csv")) +
aes_string(x = input$x, y = input$y) +
geom_point()
})
})

shinyApp(ui, server)

我附上我的 csv 文件的图像。

Answer 1

正如 DS_UNI 所暗示的，问题可能在于您的数据结构。 ggplot2 想要处理整洁的数据，所以在这种情况下，这意味着每一行代表一个案例，即一年。

这就是我认为您需要做的事情，尽管这是对您希望最终结果的样子做出一些假设！

第一步：读入csv进行数据整理

pigs_data <- read.csv("eu_pigs.csv")

第二步：将第一列设为行名

row.names(pigs_data) <- pigs_data$pig_breeds
pigs_data[1] <- NULL

第三步：转置数据

pigs_data <- t(pigs_data)

然后，您将在 ggplot 数据参数中使用 pigs_data。