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")

从qdap库中的dist_tab（）函数绘制结果

1 个答案: