如何在R中创建条形图？

Question

我有以下数据框。

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代码？

Answer 1

<Root xmlns='namespace...'> was not expected.

是执行此操作的基本版本。

Answer 2

如果您需要同时在同一图中绘制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")