自定义ggplot2轴和标签格式

时间:2016-06-06 16:09:56

标签: r ggplot2 axis labels axis-labels

我正在尝试绘制看起来信息丰富,清晰整洁的标签。

was following example并再提出一个关于labelaxis格式的问题。

例如,我的销售数据包括欧元的品牌,类别和支出。当欧元的总和很大(数百万或更多)时,标签看起来很难阅读而且没有提供信息。

因此,x-axis位于Scientific notation,看起来也非常不洁净。

我设法以自定义方式格式化标签:它显示数千欧元。  geom_text(aes(label= paste(round(EUR/1000,0),"€"), y=pos), colour="white") 是否有更简单或自动化的方式?

由于Scientific notation看起来真的不清楚,因为轴我尝试使用scale_y_continuous(formatter = "dollar"),但这似乎不起作用。而且,我无法找到是否还有Eur而不是美元。我相信最好在y-axis中展示thousands。 任何解决方案?

另外,我附上了可复制的例子:

library(plyr)
library(dplyr)
library(ggplot2)
library(scales)


set.seed(1992)
n=68

Category <- sample(c("Black", "Red", "Blue", "Cyna", "Purple"), n, replace = TRUE, prob = NULL)
Brand <- sample("Brand", n, replace = TRUE, prob = NULL)
Brand <- paste0(Brand, sample(1:5, n, replace = TRUE, prob = NULL))
EUR <- abs(rnorm(n))*100000

df <- data.frame(Category, Brand, EUR)


df.summary = df %>% group_by(Brand, Category) %>% 
  summarise(EUR = sum(EUR)) %>%   # Within each Brand, sum all values in each Category
  mutate( pos = cumsum(EUR)-0.5*EUR)



ggplot(df.summary, aes(x=reorder(Brand,EUR,function(x)+sum(x)), y=EUR, fill=Category)) +
  geom_bar(stat='identity',  width = .7, colour="black", lwd=0.1) +
  geom_text(aes(label=ifelse(EUR>100,paste(round(EUR/1000,0),"€"),""),
                y=pos), colour="white") +
  coord_flip()+
  labs(y="", x="")

enter image description here

3 个答案:

答案 0 :(得分:13)

您可以在dollar_format中为欧元而不是美元设置前缀:

scale_y_continuous(labels=dollar_format(prefix="€")) +

它处理科学记数法问题。

要获得成千上万的所有内容,您可以在创建摘要时除以1000。为了减少混乱,您可以在条形标签中省略欧元符号,但我在下面的示例中保留了符号:

df.summary = df %>% group_by(Brand, Category) %>% 
  summarise(EUR = sum(EUR)/1000) %>%   # Within each Brand, sum all values in each Category
  mutate( pos = (cumsum(EUR)-0.5*EUR))

ggplot(df.summary, aes(x=reorder(Brand,EUR,function(x)+sum(x)), y=EUR, fill=Category)) +
  geom_bar(stat='identity',  width = .7, colour="black", lwd=0.1) +
  geom_text(aes(label=ifelse(EUR>100,paste0("€", round(EUR,0)),""),
                y=pos), colour="white") +
  scale_y_continuous(labels=dollar_format(prefix="€")) +
  coord_flip()+
  labs(y="Thousands of €", x="")

enter image description here

答案 1 :(得分:2)

@ AK47有一个解析问题的欧元符号闪亮。

尝试将其替换为:(\ u20AC)

到目前为止,它对我来说非常好。

答案 2 :(得分:1)

这也有效

scale_y_continuous(labels = function(x) paste0(x, "€"))

您可以放置​​任何想要的符号来代替€