geom_bar 中的动态数据标签

Question

我正在使用 ggplot2 geom_bar 制作一系列条形图。每个城市都有三个数据点，我正在为每个城市制作一个图表。我想将每个图表中的第二个和第三个柱标记为前一个柱的百分比（例如，看起来像 5、4、3 的数据将显示为 5、80%、75%）。

在这个数据中，我的值应该是所有图表中第 1 条的标签。 dum2/dum1*100 应该是值为 dum2 的条的标签。 dum3/dum2*100 应该是值为 dum3 的条的标签。

例子

State <- c("AA","AB","AC","AD","AE")
dum1 <- c(34, 30, 8, 22, 5)
dum2 <- c(22.5, 28.1, 3, 12, 1)
dum3 <- c(12.8, 23, 2.8, 11.9, 0.3)
df <- data.frame(State, dum1, dum2, dum3)
m1 <-melt(df)

for(i in levels(m1$State)) 
p <- ggplot(subset(m1, State==i), aes(variable, value,  fill = variable)) +
facet_wrap(~ State) + 
geom_bar(stat="identity", show_guide=FALSE) + 
geom_text(aes(x=variable, y=value + 2, label=round(value,digits=0)), vjust=0,
        size=30) +
theme(axis.title.x = element_blank(),
    plot.background = element_rect(fill = "transparent", color=NA),
    panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
    panel.border = element_blank(), panel.background = element_blank(),
    axis.line = element_blank(), axis.title.y=element_blank(),
    axis.line = element_blank(), 
    axis.text.x = element_blank(), 
    axis.text.y = element_blank(),
    axis.ticks = element_blank(), 
    axis.title.y = element_blank(),
    strip.text.x = element_blank(),
    strip.background = element_rect(fill="transparent")
     ) +
     scale_y_continuous(limits=c(0,40)) +
    scale_fill_manual(values=c("navy", "coral", "gold")) +
  ggsave(sprintf("plot %s.jpg", i))

我尝试添加一个包含相关行的计算百分比的列，但不知道如何只为图表上选定的数据点调用一个列。我用了类似

的东西

lab<-c(0,0,0,0,0,66.2,93.7,37.5,54.5,20.0,56.9,81.9,93.3,99.2,30.0)

但无法弄清楚如何为正确的柱适当地调用它。

Answer 1

没有所有无关的格式，这似乎可以满足您的要求：

ggplot(subset(m1, State=="AA"), aes(variable, value,  fill = variable)) +
  facet_wrap(~ State) + 
  geom_bar(stat="identity", show_guide=FALSE) + 
  geom_text(aes(x=variable, y=value + 2, 
                label=paste0(round(value/c(1,0.01*head(value,-1))),c("","%","%"))))

geom_bar 中的动态数据标签

Dynamic data labels in geom_bar

r

ggplot2

geom-bar

geom-text