所以我放在一起非常基本的图表。没有什么花哨。我只是想确定这个数据是否有价值。
p <- ggplot(geomean.build.time.by.user)
p + geom_line(aes(x = week, y = user_geomean_build_time), stat = "smooth", method = "loess", colour = "#00DCFF", size = 2) +
geom_line(aes(x = week, y = proj_geomean_build_time), colour = "#E85831", linetype = "dashed", size = 1) +
geom_line(aes(x = week, y = user_geomean_bt_plus_sd), colour = "#0ED26E", size = 2) +
geom_line(aes(x = week, y = user_geomean_bt_minus_sd), colour = "#0ED26E", size = 2) +
geom_line(aes(x = week, y = proj_geomean_bt_plus_sd), colour = "#00695D", size = 2) +
geom_line(aes(x = week, y = proj_geomean_bt_minus_sd), colour = "#00695D", size = 2)
编辑
我把意见和改为丝带。整体看起来更好,但它并没有给我我期待的看法。
p <- ggplot(geomean.build.time.by.user)
p + geom_line(aes(x = week, y = user_geomean_build_time)) +
geom_ribbon(aes(ymin = proj_geomean_bt_minus_sd, ymax =proj_geomean_bt_plus_sd, x = week, fill = "avg org build time +/- sd")) +
geom_ribbon(aes(ymin = user_geomean_bt_minus_sd, ymax = user_geomean_bt_plus_sd, x = week, fill = "avg dev build time +/- sd")) +
geom_line(aes(x = week, y = user_geomean_build_time), stat = "smooth", method = "loess", colour = "#F2F2F2", size = 2) +
geom_line(aes(x = week, y = proj_geomean_build_time), colour = "#F20404", linetype = "dashed", size = 1)
请参阅'?geom_ribbon'。 – Gregor
您也可以使用'geom_smooth()'而不是'geom_line'和'stat ='smooth''。默认值为黄土平滑线,置信区间为带状图。 – Gregor
@Gregor我会研究geom_ribbon。我已经尝试了两种方法。我不认为我的数据在这两方面都有很大的不同。 – zach