如何在R中的多个箱图中更改x轴的顺序

Question

我正在尝试更改此箱图中的x轴顺序。

[现在的订单是放大镜，显微镜和视频，我想将其更改为显微镜，放大镜和视频]

数据框示例如下所示

 Label      Mental Physical Temporal Performance Effort Frustration sum
 Microscope  10     10      10       10     10      10    60
 Microscope  10     10      10       10     10      10    60
 Loupe       20     20      20       20     20      20    120 
 Loupe       20     20      20       20     20      20    120 
 Video       15     15      15       20     20      20    105 
 Video       15     15      15       20     20      20    105 

这是我现在拥有的boxplot boxplot1

这是我的ggplot代码

  mydata <- read.csv("boxplotyiyu2.csv",header=TRUE)
  dfm <- melt(mydata, id.var = "Label")
  ggplot(data = dfm, aes(x=variable, y=value)) + geom_boxplot(aes(fill=Label),width=0.5)+ xlab("Demand") + ylab("NASA-TLX Scores")

我已经尝试过了，但是结果不正确。

dfm$variable <- factor(dfm$variable,levels = c("Microscope","Loupe","Video"))

另一个问题是如何修改多个箱形图的y轴。 我将这七个箱形图放在一起，但是我想为每个小图更改y轴。 boxplot2

（数据框与上面的数据框相似，只是将角度，物理...替换为角度数据）

我的代码是

  df.m <- melt(mydata, id.var = "Label")
  p <- ggplot(data = df.m, aes(x=variable, y=value))
  p <- p + geom_boxplot(aes(fill=Label))
  p <- p + facet_wrap( ~ variable, scales="free")
  p <- p + xlab("Angle") + ylab("Degree")

请帮我一个忙！ 真的很感激！

Answer 1

您将需要使用factor函数重新定义因素的顺序。

#Sample data
Label<-c("Microscope", "Microscope", "Loupe", "Loupe", "Video", "Video")
mydata<-data.frame(Label)

#print out
levels(mydata$Label)

mydata$Label<-factor(mydata$Label, levels=c("Microscope", "Loupe",  "Video"))
#print out
levels(mydata$Label)

更多信息请参见该cookbook-r.com： http://www.cookbook-r.com/Manipulating_data/Changing_the_order_of_levels_of_a_factor/