Neuordnen von Zeilen in einer Tabelle nach einem kundenspezifischen Auftrag

Question

ich den folgende Code-Block hat:

q1 <- VectorSource(hcsv$one) 
    q1 <- q1[1:81] 
    q1 <-replace(q1, q1==1, "Very good") 
    q1 <-replace(q1, q1==2, "Good") 
    q1 <-replace(q1, q1==3, "Average") 
    q1 <-replace(q1, q1==4, "Poor") 
    q1 <-replace(q1, q1==5, "Very poor") 
    q1 <-replace(q1, q1==77, "Unsure") 
    q1 <-replace(q1, q1==99, "No answer") 
frequencyQ1 <- table(q1) 
write.csv(frequencyQ1, "frequencyQ1.csv") 

Wie kann ich die Ausgabetabelle habe die Zeilen in der benutzerdefinierten oben angegebenen Reihenfolge angezeigt werden?

Answer 1

Statt die Werte mit den Etiketten ersetzen, wandeln den Vektor in ordered:

q1 <- sample(c(1:5, 77, 99), 100, T) 

q1 <- ordered(q1, labels= c("Very good", "Good", "Average", 
          "Poor", "Very poor", "Unsure", "No answer")) 

table(q1) 

q1 
Very good  Good Average  Poor Very poor Unsure No answer 
     15  14  13  21   9  16  12