将两个数据集相互绘制的最佳方法，它们以长格式放在一起

Question

我认为这最好用一个例子来解释。假设我有 6 对男女，12 人中的每一个人都有一定的薪水，如下面的 data.frame 所示

xx <- data.frame (gender = c(rep("man", 6), rep("woman", 6)), 
                  couple = c(1:6, 1:6), 
                  salary = c(1:6, seq (2, 12, 2)))

xx <- xx[sample (1:nrow(xx)), ]

数据是随机的。我需要将每个男人的工资与一对夫妇中的每个女人进行比较。我知道如何使用基本功能来做到这一点，但我想学习一些更优雅的东西，也许 ggplot2 有这样的功能，但我想不出办法来做到这一点

Answer 1

一种方法是这样的

library(ggplot2)

ggplot(xx,aes(x=couple,y=salary,fill=gender))+geom_bar(stat="identity",position="dodge")

您也可以在aes 语句中尝试x=factor(couple) - 这将标记每对夫妇。