r - 如何为数值制作有序的刻面标签？

Question

我经常根据一个数字变量来分面，但我希望分面标签比简单的数字更能说明问题。我通常会创建一个新的标签变量，将数值粘贴到解释性文本中。但是，当值在小数点前有多个位时，第一个数字用于对因子进行排序。有什么建议可以避免这种情况吗？

iris[,1:4]<-iris[,1:4]*10

当 iris 的小数点前不超过一个值时，这对 iris 很有效。

iris$Petal.Width.label<-paste("Petal.Width=", iris$Petal.Width)



iris$Petal.Width.label<-paste("Petal.Width=", iris$Petal.Width)


qplot(data=iris,
      x=Sepal.Length,
      y=Sepal.Width,
      colour=Species)+facet_wrap(~Petal.Width.label)

相关:
ggplot: How to change facet labels?
How to change the order of facet labels in ggplot (custom facet wrap labels)

Answer 1

只需重新排序标签的级别:

data(iris)
iris[ , 1:4] <- iris[ , 1:4] * 10
iris$Petal.Width.label <- paste("Petal.Width=", iris$Petal.Width)
# reoder levels by Petal.Width
iris$Petal.Width.label2 <- factor(iris$Petal.Width.label, 
                                  levels = unique(iris$Petal.Width.label[order(iris$Petal.Width)]))
qplot(data = iris,
      x = Sepal.Length,
      y = Sepal.Width,
      colour = Species)+
        facet_wrap( ~Petal.Width.label2)