在 R 中的 ggplot2 Barplot 中将 Y 轴更改为百分比

在本文中，我们将讨论如何使用 R 编程语言中的 ggplot2 条形图将 Y 轴更改为百分比。

首先，如果之前未在 R Studio 中安装 ggplot2 包，则需要安装它。要安装和加载在 R 控制台中写入以下命令：

install.packages("ggplot2")
library(ggplo2)

为了创建一个简单的条形图，我们将使用函数geom_bar()。

句法：

geom_bar(stat, fill, color, width)

Parameters :  

• stat : Set the stat parameter to identify the mode.
• fill : Represents color inside the bars.
• color : Represents color of outlines of the bars.
• width : Represents width of the bars.

首先，我们将创建一个具有两个向量“字母”和“概率”的数据框，并将其存储在变量 prob 中。

R

# Insert Data
prob <- data.frame(letter = c("B1","B2","B3","B4","B5"),
                   probability = c(0.5, 0.1, 0.2, 0.8, 0.3))
  
head(prob)

让我们创建一个简单的条形图。

电阻

# Insert Plot
library("ggplot2")
  
dt <- ggplot(data=prob, aes(x=letter, y=probability)) +
  geom_bar(stat = "identity")
  
dt

将 Y 轴更改为百分比

使用的一些重要关键字是：

1. 精度：数字四舍五入到的精度值。
2. scale：用于缩放数据。缩放因子与原始数据值相乘。
3. 标签：用于分配标签。

使用的函数是scale_y_continuous() ，它是库 ggplot2 中“y-aesthetics”中的默认比例。由于我们需要在 Y 轴的标签中添加百分比，因此使用关键字“标签” 。

现在使用scales::percent将 y 轴标签转换为百分比。这会将 y 轴数据从十进制缩放到百分比。它只是将值乘以 100。缩放因子为 100。

在上面的代码中添加：

电阻

# Changing Y-axis to percentage
dt + scale_y_continuous(labels = scales::percent)

输出：

在旧版本的 R 中，使用上面的代码，您可以获得 Y 轴小数点后一位的百分比值，如上例所示。在这种情况下，我们将使用函数percent_format()来修改 Y 轴上百分比标签的准确性。它基本上用于分配精度值以对其进行四舍五入。

现在，将上面的代码修改为：

电阻

# Accuracy of y-axis
dt + scale_y_continuous(labels = scales::percent_format(accuracy = 1))

输出：