R语言 如何的百分比条形图上添加百分比或计数标签

在这篇文章中，我们将讨论如何在R编程语言中的百分比条形图上添加百分比或计数。

该软件包的ggplot()方法用于初始化ggplot对象。它可以用来声明一个图形的输入数据框架，也可以用来指定一组图形的美学效果。ggplot()函数用于构造初始的绘图对象，并且几乎总是在其后面添加组件以添加到绘图中。

语法 。

ggplot(data, mapping = aes())

参数:

• data – 用于数据绘图的数据框架
• mapping – 用于绘图的美学映射的默认列表。

geom_bar()用于绘制条形图。

添加计数

geom_bar()方法用于绘制每组中出现的案例数量与每个条形图的值。使用 “stat “属性作为 “identity”，绘制并显示数据的原貌。该图还可以在条形图的顶部用显示的文本进行注释，以按原样绘制数据。

语法 。

geom_text(ais(label = ), vjust )

标签可以被赋予列的值，以便将该值分配给与每个条形图的值相对应的每个条形。

例子 。

library("ggplot")
  
# creating a data frame
data_frame <- data.frame(col1 = sample(letters[1:10]),
                         col2 = 1:10,
                         col3 = 1)
# printing the data frame
print ("Original DataFrame")
print (data_frame)
  
# plotting a barplot with counts
ggplot(data_frame, aes(x = col1, y = col2, fill = col1)) + 
  geom_bar(stat = "identity") +
  geom_text(aes(label = col2), vjust = 0)

输出

[1] "Original DataFrame" 
   col1 col2 col3 
1     j    1    1 
2     d    2    1 
3     b    3    1 
4     a    4    1 
5     g    5    1 
6     e    6    1 
7     f    7    1 
8     i    8    1 
9     c    9    1 
10    h   10    1

添加百分比

同样地，百分比也可以添加到图中，但在这种情况下，图例将是连续的，而不是离散的。

例子 。

# importing the required libraries
library("ggplot")
library("scales")
library("dplyr")
  
# creating a data frame
data_frame <- data.frame(col1 = sample(letters[1:10]),
                         col2 = 1:10
                         )
# printing the data frame
print ("Original DataFrame")
print (data_frame)
  
# plotting a barplot with percentages
data_frame %>% 
  count(col1 = factor(col1), col2 = col2) %>% 
  mutate(col4 = prop.table(col2)) %>% 
  ggplot(aes(x = col1, y = col4, fill = col2, label = scales::percent(col4))) + 
  geom_col(position = 'dodge') + 
  geom_text( vjust = 0) + 
  scale_y_continuous(labels = scales::percent)

输出

[1] "Original DataFrame" 
col1 col2 
1     g    1 
2     d    2 
3     j    3 
4     f    4 
5     i    5 
6     e    6 
7     h    7 
8     a    8 
9     c    9 
10    b   10