想象一下，您有以下数据集：
df<-data.frame(read.table(header = TRUE, text = "
ID Wine Beer Water Age Gender
1 0 1 0 20 Male
2 1 0 1 38 Female
3 0 0 1 32 Female
4 1 0 1 30 Male
5 0 1 1 30 Male
6 0 1 1 26 Female
7 0 1 1 36 Female
8 0 1 1 29 Male
9 0 1 1 33 Female
10 0 1 1 20 Female"))
想象一下你想创建一个条形图来绘制那些表示“是”（代码为“1”）的频率与那些表示“否”（编码为“0”）的频率。
一般来说，我会这样做：
con<-apply(df[,c(2:4)], 2, table)
con_P<-prop.table(con,2)
barplot(con_P)
你最终得到的是一个条形图，描绘了图表底部的No。你怎么能反转一个条形图，因为每个栏的底部都是'是'而顶部是'否'？
我认为结构的原因是因为我首先创建一个表，数字'0'首先出现。因此，我可以将'0'编码为'1'，反之亦然。这将在技术上解决问题。它不优雅。我的另一个想法是barplot(rev(con_P))但同样，它不一样了！
有什么想法吗？非常感谢任何帮助！