分组条形图中的ggplot标签条

Question

我尝试绘制的数据结构如下：

      Year                        Country                           Count   
 1:   2010 St. Vincent and the Grenadines                               0
 2:   1970                        Ukraine                               0
 3:   1980                          Yemen                               1
 4:   1970                        Romania                               0
 5:   1950                         Cyprus                               0
 6:   1950                    Netherlands                               0
 7:   1980                     Mauritania                               0
 8:   1980                          Niger                               0
 9:   2010                        Grenada                               2
10:   1970                         Israel                               6
11:   1990                       Suriname                               0
12:   1990                      Singapore                               1
13:   1960                         Russia                               0
14:   1970                       Barbados                               0
15:   1950                         Panama                               0
16:   2010                           Mali                               3
17:   1980                         Greece                              11
18:   2010                      Venezuela                              15
19:   2000                         Malawi                               9
20:   2000                        Jamaica                              34
21:   1970                         Angola                               0
22:   1990                        Lebanon                               0
23:   1980       Central African Republic                               0
24:   1950                 United Kingdom                               1
25:   2010                        Iceland                              26

我已经创建了下面的分组条形图：

我需要国家标签来排列它们对应的酒吧。即使在这里和此处进行了咨询并按照链接中的建议使用position = position_dodge（width = 0.9）之后，标签似乎也无法对齐。我也尝试过不同的width值。

这是创建以上绘图的代码：

> p<-ggplot(x[which(x$Count>0)], aes(Year, Count, label=Country)) + geom_bar(aes(fill = Country), position = "dodge", stat="identity")
> p+ theme(legend.position="none")+scale_x_discrete(limits=unique(x$Year))+geom_text(position = position_dodge(width= 0.9), aes(y=Count+10), angle=90)

Answer 1

你可以试试

library(ggplot2)
ggplot(a,aes(factor(Year), Count, fill =Country, label =Country)) + 
  geom_col(position = position_dodge2(width = 0.9, preserve = "single"), show.legend = F) +
  geom_text(position = position_dodge2(width = 0.9, preserve = "single"), angle = 90, vjust=0.25, hjust=0) +
  ylim(0,40)

数据

a <- read.table(text="Year  Country Count
2010    St.VincentandtheGrenadines  0
1970    Ukraine 0
1980    Yemen   1
1970    Romania 0
1950    Cyprus  0
1950    Netherlands 0
1980    Mauritania  0
1980    Niger   0
2010    Grenada 2
1970    Israel  6
1990    Suriname    0
1990    Singapore   1
1960    Russia  0
1970    Barbados    0
1950    Panama  0
2010    Mali    3
1980    Greece  11
2010    Venezuela   15
2000    Malawi  9
2000    Jamaica 34
1970    Angola  0
1990    Lebanon 0
1980    CentralAfricanRepublic  0
1950    UnitedKingdom   1
2010    Iceland 26", header=T)

Answer 2

添加fill = Country到geom_text并明确指定躲避宽度，以确保条和标签都对齐：

library(data.table)
library(ggplot2)

# Fictional sample data
x <- data.table(Year = c(2010,1970,1980,1970,1950,1950,1980,1980,2010), 
                Country = c("St. Vincent and the Grenadines", "Ukraine", "Yemen", "Romania", "Cyprus", "Netherlands",
                            "Mauritania", "Niger", "Grenada"), Count = c(5,2,1,4,7,6,4,1,2))

p <- ggplot(x[which(x$Count>0)], aes(Year, Count)) + geom_bar(aes(fill = Country), position = position_dodge(9), stat="identity")
p + theme(legend.position="none") + scale_x_discrete(limits=unique(x$Year)) + geom_text(position = position_dodge(width= 9), aes(y=Count+0.25, fill=Country, label=Country, hjust=0), angle=90)

（注意：我也用调整了位置hjust）