r - 绘制来自 qdap 库的 dist_tab() 函数的结果

Question

我有兴趣绘制以下代码的结果，该代码生成频率分布表。我想将 Freq 列绘制为条形图，并将 cum.Freq 绘制为一条线，它们都将区间列共享为 x 轴。

library("qdap")

x <- c(1,2,3,2,4,2,5,4,6,7,8,9)

dist_tab(x)

我已经能够使用 ggplot 构建条形图，但我想通过将 cum.Freq 添加为辅助轴来更进一步。我还想添加添加为数据标签的百分比和 cum.percent 值。任何帮助表示赞赏。

library("ggplot2")

ggplot(dist_tab(x), aes(x=interval)) + geom_bar(aes(y=Freq))

Answer 1

不确定我是否理解你的问题。这是你想要的？

df <- dist_tab(x)
df.melt <- melt(df, id.vars="interval", measure.vars=c("Freq", "cum.Freq"))
#
ggplot(df.melt, aes(x=interval, y=value, fill=variable)) + 
  geom_bar(stat="identity", position="dodge")