R barplot：不同高度的柱子

Question

想象一下，我想从列联表中创建一个条形图。数据如下：

df<-data.frame(read.table(header = TRUE, text = 
"Age    Gender  Mobile
13  Male    1
14  Female  1
18  Female  1
13  Male    1
13  Female  1
14  Female  0
16  Male    1
16  Female  0
16  Male    0
20  Male    0
14  Male    0
13  Female  0
25  Male    1
13  Female  0
24  Female  0"))

然后我创建了列联表（在这种情况下，我只对数据的一个子集感兴趣）：

df$Gender<-factor(df$Gender)
df$Mobile<-factor(df$Mobile)
table1<-prop.table(xtabs(~Mobile+Age, df[df$Gender=="Female",]))

然后我创建条形图：

barplot（表1）

确实有效。但是柱子的高度不同。它看起来不太好看。

我想让列对齐。我能做什么？提前谢谢！

Answer 1

您使用prop.table 而不使用 margin参数，因此它会计算总频率，而不是行或列频率。您希望列频率具有相同的高度。试试这个：

table1<-prop.table(xtabs(~Mobile+Age, df[df$Gender=="Female",]),margin=2)

barplot(table1)