使用R语言给条形图添加百分比标签

使用R语言给条形图添加百分比标签

在R语言中，我们可以使用geom_text()函数来给条形图添加百分比标签。首先，让我们生成一些示例数据并创建一个简单的条形图。

# 导入必要的库
library(ggplot2)

# 创建示例数据
data <- data.frame(
  类别 = c("A", "B", "C", "D"),
  数量 = c(20, 35, 15, 30)
)

# 创建条形图
plt <- ggplot(data, aes(类别, 数量)) +
  geom_bar(stat = "identity") +
  labs(title = "不同类别的数量分布")

# 显示条形图
print(plt)

运行以上代码将生成一个没有标签的基本条形图。

接下来，我们将使用geom_text()函数在每个条形上添加百分比标签。我们需要计算每个类别的百分比，并将其添加到条形图中。

# 计算百分比
data$百分比 <- data$数量 / sum(data$数量) * 100

# 更新条形图，并添加百分比标签
plt + geom_text(aes(label = paste0(format(百分比, digits = 1), "%")),
                vjust = -0.5, color = "black", size = 3)

运行以上代码将在条形图的每个条形上添加相应的百分比标签。paste0()函数用于将百分比值和百分号连接在一起，并使用f