如何克服图表中条形标签的重叠

Question

我正在尝试使用 ggplot2。我遇到的问题是图表的每两个条形图的条形图标签都是上下的。我想将每个标签放在自己的栏上。我希望你能帮我解决这个问题。

此外，我想知道是否可以在每个条形图的标签中添加“k$”。我想知道是否可以将指标（实际和预算）放在图表的顶部。

这是我的代码：

library (ggplot2)

library(plotly)

library(readxl)

library(tidyverse)

df =read_excel("C:/Fall 2020 - Clarkson University/Information Visualization/Assignments/Assignment2/a2-DeptYearlyPerf.xls")

df2= df %>% pivot_longer(-Dept.,names_to="category", values_to="amount")

df3=df2 %>% separate(category,into=c("qtr","bud_or_act"),sep=" ")

df3 %>% ggplot(aes(x=qtr,y= amount,fill=bud_or_act, label= amount, width=.7)) +
  
  geom_col(position="dodge") +facet_wrap(~Dept.) +
  
  geom_text(size=3, position = position_stack(vjust = 0.5))

Answer 1

我没有你的数据，因此我无法帮助你编写代码，但是你可能会发现 ggrepel package 有帮助。

或者你可以试试：

df2= Book1 %>% pivot_longer(-Dept,names_to="category", values_to="amount")

df3=df2 %>% separate(category,into=c("qtr","bud_or_act"),sep=" ")

df3 %>% ggplot(aes(x=qtr,y= amount,fill=qtr, label= amount, width=.7)) +
  
geom_bar(stat='identity',position="dodge") +facet_wrap(~Dept) +
  
geom_text(size=3,hjust = 0.5)

在我的计算机上使用假设数字得出的结果： https://ibb.co/DrSsXCG

如何克服图表中条形标签的重叠

How to overcome on the overlapping of the labels for bars in graph

label

r

graph

ggplot2