我有以下问题,在我的数据集中,我有来自不同设备的相同日期结果。我想在x轴上做一个情节智能数据,结果在y轴(也就是0或1)上,颜色由设备数量编码。 我找到了用position_dodge绘制点的解决方案。 我希望每个点都能得到不同的结果a" segmented"由设备编号构成的不同颜色代码的点。
任何人都可以帮我解决这个问题吗?
一个简短的例子:
library(ggplot2)
test <-data.frame(device=c(1,1,2,2,3,3), date=c("2011-02-15", "2012-02-15", "2011-02-15", "2012-03-12", "2011-02-15", "2012-03-12"), result=c(1,0,1,0,0,1))
test$device<-as.factor(test$device)
theme_set(theme_bw(16))
p <-ggplot(aes(x = date, y = result, colour=device), data = test) +
geom_point(position=position_dodge(width = 0.1),size=5) +
xlab("date") +
ylab("result") +
scale_y_continuous(breaks=c(0,1))
p + theme(axis.text.x = element_text(angle = 90,vjust = 0.5, hjust = 0))