减少R堆叠条形图标签中逗号后面的数字

6yt4nkrj 于 2023-04-03 发布在其他

关注(0)|答案(3)|浏览(90)

我计算了以下数据，以便将标签绘制到R中的堆叠条形图：

Scenario Losses      Model   percent
1 Scenario 1  23221   Upstream 0.6095231
2 Scenario 1  14876 Downstream 0.3904769
3 Scenario 2    722   Upstream 0.3764338
4 Scenario 2   1196 Downstream 0.6235662
5 Scenario 3  28487   Upstream 0.7256355
6 Scenario 3  10771 Downstream 0.2743645

当我绘制这个：

ggplot(test, aes(x = Scenario, y = percent, fill = Model, label = paste(percent * 100, "%", sep = ""))) + 
  geom_bar(stat = "identity", position = "fill", color = "black", alpha=0.8)+
  theme_bw()+
  scale_fill_manual(values = c("#00008B", "#800080"))+ 
  geom_text(position = position_stack(vjust = 0.5), size = 2)

结果图为：

这个问题的解决方案在网上已经被广泛讨论过了。通过添加下面的代码，逗号的数量应该会减少：

scale_y_continuous(label = scales::percent(percent, accuracy=0.1))

我尝试了很多方法，但每次都是：

Error in number(x = x, accuracy = accuracy, scale = scale, prefix = prefix,  : 
  object 'percent' not found

我不能真正fanthom我需要的机会，因为我看到正是这个代码块正在成功地运行在另一个线程。
任何帮助都很感激。

来源：https://stackoverflow.com/questions/75896705/reducing-numbers-behind-comma-in-r-stacked-barchart-label

3条答案

按热度按时间

lndjwyie1#

你可以使用round到你的label，例如只显示两个digits，如下所示：

library(ggplot2)
ggplot(test, aes(x = Scenario, y = percent, fill = Model, label = paste(round(percent * 100, 2), "%", sep = ""))) + 
  geom_bar(stat = "identity", position = "fill", color = "black", alpha=0.8)+
  theme_bw()+
  scale_fill_manual(values = c("#00008B", "#800080"))+ 
  geom_text(position = position_stack(vjust = 0.5), size = 2)

创建于2023-03-31带有reprex v2.0.2

使用数据：

test = read.table(text = "    Scenario Losses      Model   percent
1 Scenario_1  23221   Upstream 0.6095231
2 Scenario_1  14876 Downstream 0.3904769
3 Scenario_2    722   Upstream 0.3764338
4 Scenario_2   1196 Downstream 0.6235662
5 Scenario_3  28487   Upstream 0.7256355
6 Scenario_3  10771 Downstream 0.2743645", header = TRUE)

赞(0）回复(0）举报 2023-04-03

ifsvaxew2#

不使用paste，而是使用sprintf，如下所示：

label = sprintf("%.2f%%",percent * 100)

即

ggplot(test, aes(x = Scenario, y = percent, fill = Model,
                 label = sprintf("%.2f%%",percent * 100))) + 
  geom_bar(stat = "identity", position = "fill", color = "black", alpha=0.8)+
  theme_bw()+
  scale_fill_manual(values = c("#00008B", "#800080"))+ 
  geom_text(position = position_stack(vjust = 0.5), size = 2)

赞(0）回复(0）举报 2023-04-03

nzk0hqpo3#

还有一种方法是对文本标签和轴标签都使用scales::percent，如下所示：
注：无耻从@Quinten窃取数据。

library(ggplot2)

ggplot(test, aes(x = Scenario, y = percent, fill = Model, label = scales::percent(percent))) +
  geom_bar(stat = "identity", position = "fill", color = "black", alpha = 0.8) +
  theme_bw() +
  scale_fill_manual(values = c("#00008B", "#800080")) +
  scale_y_continuous(labels = scales::percent) +
  geom_text(position = position_stack(vjust = 0.5))

赞(0）回复(0）举报 2023-04-03

我来回答

减少R堆叠条形图标签中逗号后面的数字

3条答案

相关问题

热门标签

最新问答