Aesthetics must be either length 1 or the same as the data (8): x, y, fill

[harsha1]

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(
   
   # Application title
   titlePanel("Immigration bar chart - Australia 2015 - 2017"),
   
   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("year", label = "Year", min = 2015, sep="", 
                     max = 2017, value = 2015, 
                     animate = animationOptions(interval = 500, loop = TRUE))
      ), 
      
      # Show a plot of the generated distribution
      mainPanel(
         plotOutput("Barchart")
      )
   )
)

library(ggplot2)
library(dplyr)
library(tidyr)
library(stringr)
library(shiny)

Immigration <- read.csv("C:/Users/Harsha Alluri/Downloads/nom123.csv" , stringsAsFactors = TRUE)

Immigration$state <- as.factor(Immigration$state)

Immigration$Year <- as.factor(Immigration$Year)

Immigration$Staus <- as.factor(Immigration$Staus)

Immigration$Figures <- as.numeric(Immigration$Figures)

str(Immigration)

# Define server logic required to draw a histogram
server <- function(input, output) {
   
   output$Barchart <- renderPlot({
     p1 <- ggplot(Immigration, aes(x = Immigration$state, y = Immigration$Figures, 
                                   fill = Immigration$Staus))
     p1 + geom_bar(data = filter(Immigration,Staus == "NOM_arrival" 
                                 & Year == input$year), 
                   stat = "identity") +
       geom_bar(data = filter(Immigration,Staus == "NOM_departure" & 
                                Year == input$year),
                stat = "identity")+
                  geom_bar(data = filter(Immigration,Staus == "NOM"
                                         & Year == input$year),
                           aes(y=Figures*(1)),stat = "identity") +
       
       labs(x = "State", y = "Figures")+
       coord_flip()
   })
}
# Run the application 
shinyApp(ui = ui, server = server)

[andresrcs]

Hi, welcome!

We can't reproduce your issue since we don't have access to your csv file "C:/Users/Harsha Alluri/Downloads/nom123.csv". To help us help you, could you please prepare a reproducible example (reprex) illustrating your issue? Please have a look at this guide, to see how to create one for a shiny app

Shiny debugging and reprex guide

Shiny issues can be challenging to resolve relative to other problems with your code or statistical methods. Shiny apps are often large, complex projects with interacting files. When seeking help from others it is considered polite to: First, do your best to work through RStudio's debugging tools to diagnose your issue on your own. Often those shiny logs and tracebacks are useful to others trying to help out. Second, strive to minimize the effort required to replicate your issue. You can do this with a reproducible example ("reprex"). Shiny Debugging Errors in Shiny code can be difficult to track down. If you don't know where your problem is coming from, you can track it down with some o…

[woodward]

I suggest you plot a few example plots without shiny first before you try to build the app. Try this. This works for me with some fake data.

	output$Barchart <- renderPlot({
		ggplot() +
			labs(x = "State", y = "Figures")+
			geom_bar(data=filter(Immigration, Year==input$year),
					 mapping=aes(x=state, y=Figures, fill=Staus), stat="identity") +
			coord_flip()
    })

[stkrog]

Maybe Immigration$Staus is a typo? One guess could be Immigration$Status.