不同顺序的绑定数据产生相同的直方图

Question

我有这些数据：

hours <- 1:5
frequency <- c(41, 72, 48, 20, 21)

我绑定他们：

result <- cbind(hours, frequency)


result
     hours frequency
[1,]     1        41
[2,]     2        72
[3,]     3        48
[4,]     4        20
[5,]     5        21

我正在绘制直方图：

hist(result)

给了我

我希望在x轴上有几个小时。

所以，我正在尝试创建：

result <- cbind(frequency, hours)

给出：

result
     frequency hours
[1,]        41     1
[2,]        72     2
[3,]        48     3
[4,]        20     4
[5,]        21     5

但尝试制作直方图，它再次显示我与之前相同。 我希望能改变轴。

Answer 1

我建议使用barplot。

hours <- 1:5
frequency <- c(41, 72, 48, 20, 21)
df <- cbind(hours, frequency)
barplot(df[,2], names.arg = df[,1])

Answer 2

hist接受原始数据，然后在频率表中汇总。以下代码通过重新创建数据来解决此问题：

hours <- 1:5
frequency <- c(41, 72, 48, 20, 21)
result <- cbind(hours, frequency)

# rebuild the data and plot
result_obs <- rep(hours, frequency)
hist(result_obs)