令人失望的结果显示ggplot箱线图

Question

我策划这样的数据：

Day,Property,Violent 
Mon,7.2,5.7 
Tue,5,4.5 
Wed,6.3,3.6 
Thu,5.4,4 
Fri,9.5,5.6 
Sat,16,10.9 
Sun,14.2,8.6 

用下面的代码：

library(ggplot2) 
library(reshape) 
week <- read.csv("week.csv", header=TRUE) 
data.melt <- melt(week,id="Day") 

ggplot() + 
geom_boxplot(aes(x=Day, y= value, fill= variable), 
      data= data.melt, position = position_dodge(width = .9)) 

1. 我的标志为什么出现在传说中，但不是在阴谋？
2. 我怎样才能从周一开始在逻辑上重新排序星期几？ 任何帮助将不胜感激

Answer 1

DF <- read.table(text="Day,Property,Violent 
Mon,7.2,5.7 
Tue,5,4.5 
Wed,6.3,3.6 
Thu,5.4,4 
Fri,9.5,5.6 
Sat,16,10.9 
Sun,14.2,8.6", header=TRUE, sep=",") 

#I would consider the weekdays ordered, so let's turn them into an ordered factor. 
DF$Day <- ordered(as.character(DF$Day), as.character(DF$Day)) 

library(ggplot2) 
library(reshape2) 
data.melt <- melt(DF,id.vars="Day") 

ggplot() + 
    geom_boxplot(aes(x=Day, y= value, fill= variable), 
       data= data.melt, position = position_dodge(width = .9)) 

这一切正常。你看不到太多，因为你每盒只有一个值。如果你想实际看到颜色，你需要每天更多的价值和变数。另外，您也可以使用geom_point：

ggplot() + 
    geom_point(aes(x=Day, y= value, colour= variable), 
       data= data.melt, position = position_dodge(width = .9))