r - 通过三种措施将条形图分组

我正在尝试在R中通过Excel生成以下图形。



CSV文件具有以下内容：

> myd
  type       am      tae      tac
1   kA 81.73212 73.07151 26.92849
2   kI 78.87324 84.50704 15.49296
3   kL 82.52184 69.91262 30.08738
4   kS 82.67147 69.31411 30.68589
5   sA 81.67176 73.31295 26.68705
6   sI 79.54135 81.83460 18.16540
7   sL 81.58485 73.66061 26.33939
8   sS 82.09616 71.61536 28.38464

以下R代码在y轴上创建am，但我也想添加tae和tac。

ggplot(myd, aes(x=type, y=am)) + geom_bar(stat="identity")

您知道如何将其添加到R中以使其像在Excel图中那样吗？

最佳答案

require(reshape2)
myd_molten <- melt(data = myd, id.vars = "type")

require(ggplot2)
ggplot(myd_molten, aes(x = type, y = value, fill=variable)) +
  geom_bar(stat="identity", position=position_dodge())+
  coord_flip()