我有以下数据框。
IN <- c(3.5, 5.75, 9, 13.25, 13, 9.5, 9.25, 6.75, 7, 4.25, 3.25, 1.75, 0)
OUT <- c(0.25, 2, 5.25, 8.5, 10.5, 11, 11.75, 9.25, 9.5, 7, 3.75, 4, 3.5)
dat <- data.frame(IN, OUT)
rownames(dat) <- c("10~11", "11~12", "12~13", "13~14", "14~15", "15~16", "16~17", "17~18", "18~19", "19~20", "20~21", "21~22", "22~23")
此数据是从上午 10:00 到晚上 11:00,每小时四天在餐厅测量的平均人数。我想使用这些数据将 x 轴绘制为时间,将 y 轴绘制为人数。我应该如何处理 r 代码?
如果您需要在同一图中同时绘制 IN 和 OUT,您可以通过稍微更改数据来实现,如下所示:
library(ggplot2)
IN <- c(3.5, 5.75, 9, 13.25, 13, 9.5, 9.25, 6.75, 7, 4.25, 3.25, 1.75, 0)
OUT <- c(0.25, 2, 5.25, 8.5, 10.5, 11, 11.75, 9.25, 9.5, 7, 3.75, 4, 3.5)
type <-c(rep("IN", 13), rep("OUT", 13))
values <- c(IN, OUT)
foo <- c("10~11", "11~12", "12~13", "13~14", "14~15", "15~16",
"16~17", "17~18", "18~19", "19~20", "20~21", "21~22", "22~23")
dat <- data.frame(foo, values)
p <- ggplot(dat, aes(foo, values))
p + geom_bar(stat = "identity", aes(fill = type), position = "dodge")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句