如何使用ggplot2将R中的每个条形图放在geom_bar上

我发现了这个， 如何使用ggplot2将标签放在R中的geom_bar上 ，但是它只是把标签（数字）放在一个条上。

我们假设，每个x轴有两个小节，如何做同样的事情？

我的数据和代码如下所示：

dat <- read.table(text = "sample Types Number sample1 A 3641 sample2 A 3119 sample1 B 15815 sample2 B 12334 sample1 C 2706 sample2 C 3147", header=TRUE) library(ggplot2) bar <- ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + geom_bar(position = 'dodge') + geom_text(aes(label=Number)) 

那么，我们会得到：

数字文字似乎也被定位在“闪避”模式。 我search了geom_text手册来查找一些信息，但无法使其工作。

build议？

Answer 1

尝试这个：

 ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + geom_bar(position = 'dodge') + geom_text(aes(label=Number), position=position_dodge(width=0.9), vjust=-0.25) 

Answer 2

要添加到rcs的答案，如果你想使用position_dodge（）和geom_bar（）当x是一个POSIX.ctdate，你必须乘以86400的宽度，例如，

 ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + geom_bar(position = "dodge") + geom_text(aes(label=Number), position=position_dodge(width=0.9*86400), vjust=-0.25)