title: Error: geom_bar requires the following missing aesthetics: y
body: <p>Here in zomato folder there are 4 csv( bengoli, chinese, italian and panjabi)file. I am comparing these files with positive and negative word text file using lexicom based sentiment analysis.everything is working well , also i am getting values of a, c, e , g very perfectly. but when it comes to plot it is giving me this error</p>
  
  <p>Don't know how to automatically pick scale for object of type list. Defaulting to continuous.
  Error: geom_bar requires the following missing aesthetics: y</p>
  
  <pre><code> library(stringr)
      library(ggplot2)
      library(tm)
  
  
       src &lt;- DirSource("./Data/foodwise/zomato")
          docs &lt;- Corpus(src)
          docs &lt;- tm_map(docs, removePunctuation)
          docs &lt;- tm_map(docs,content_transformer(tolower))
          docs &lt;- tm_map(docs, removeNumbers)
          docs &lt;- tm_map(docs, removeWords,stopwords("english"))
          docs &lt;- tm_map(docs, stripWhitespace)
          docs &lt;- tm_map(docs, stemDocument)
          writeCorpus(docs, path="./Data")
  
  texts &lt;- readLines("./Data/zomato bengoli.csv.txt")
          opinion.lexicon.pos &lt;- scan('./Data/positive-word.txt', what='character', comment.char = ';')
          opinion.lexicon.neg &lt;- scan('./Data/negative-word.txt', what='character', comment.char = ';')
          jj &lt;- str_split(texts, pattern="\\s+")
          a &lt;- lapply(jj,function(x){sum(!is.na(match(x,opinion.lexicon.pos)))})
          texts1 &lt;- readLines("./Data/zomato chinese.csv.txt")
          jj &lt;- str_split(texts1, pattern="\\s+")
          c &lt;- lapply(jj,function(x){sum(!is.na(match(x,opinion.lexicon.pos)))})
  
          texts2 &lt;- readLines("./Data/zomato Italian.csv.txt")
          jj &lt;- str_split(texts2, pattern="\\s+")
          e &lt;- lapply(jj,function(x){sum(!is.na(match(x,opinion.lexicon.pos)))})
  
          texts3 &lt;- readLines("./Data/zomato panjabi.csv.txt")
          jj &lt;- str_split(texts3, pattern="\\s+")
          g &lt;- lapply(jj,function(x){sum(!is.na(match(x,opinion.lexicon.pos)))})
          x &lt;-c("Bengoli", "Chinese", "Italian", "Panjabi")
          y &lt;- c(a, c ,e, g)
          data &lt;- data.frame(x, y)
          ggplot(data, aes(x, y)) + geom_bar(stat = "identity",aes(fill = x)) + xlab("Cuisines") + ylab("Total count") + ggtitle("")+ scale_fill_manual("Cuisines", values = c("Italian" = "lightpink", "Panjabi" = "lightblue", "Chinese" = "darkgrey", "Bengoli"="lightgreen"))
  </code></pre>