按照自定义顺序重新排序表中的行

Question

我有以下代码块：

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")

如何让输出表显示上面列出的自定义顺序中的行？

Answer 1

不是用标签替换值，而是将向量转换为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