title: How to fix color for the Likert data in R package HH?
body: <p>I would like to assign colors according to my choice;</p>
  
  <h1>data</h1>
  
  <pre><code>resp &lt;- data.frame(replicate(50, sample(1:7, 100, replace=TRUE)))
  resp &lt;- data.frame(lapply(resp, factor, ordered=TRUE, 
                  levels=1:7, 
                  labels=c("Missing","Not Applicable","Strongly disagree","Disagree", "Neutral","Agree","Strongly Agree")))
  
  resp = t(apply(resp,2,table))[,levels(resp[,1])]
  </code></pre>
  
  <h1>plot likert</h1>
  
  <p>I don't want to use diverge_hcl or sequential_hcl.</p>
  
  <pre><code>library(HH)
  myColor &lt;- likertColor(nc=7, ReferenceZero=5)
  
  plot.likert(resp,as.percent=TRUE,col=myColor)
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/p2Hq8.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/p2Hq8.jpg" alt="Likert Plot for example"></a></p>
  
  <p>I have two columns extra named "Missing" and "Not Applicable". 
  I need a color scheme that relates to the categories, such as:-</p>
  
  <ul>
  <li>Missing = "light grey" </li>
  <li>Not applicable = "Grey" </li>
  <li>Strongly Disagree = "Red" </li>
  <li>Disagree = "ligt red" </li>
  <li>Netural = "White" or "Yellow" </li>
  <li>Agree = "Light Blue" </li>
  <li>Strongly Agree = "Blue"</li>
  </ul>
  
  <p>Is there any idea that how to apply above color scheme to my plot?</p>