百分比堆积柱状图（R语言）跟子刊学配色

最新推荐文章于 2025-04-12 23:25:50 发布

光疏介质

最新推荐文章于 2025-04-12 23:25:50 发布

阅读量844

点赞数 3

文章标签： r语言云计算

本文链接：https://blog.csdn.net/weixin_53705272/article/details/140129969

版权

数据结构如下，绘制百分比堆积柱状图

# 加载必要的库
library(readxl)
library(ggplot2)
library(reshape2)
library(dplyr)

# 读取Excel文件
data <- read_excel("D:/Genus.xlsx")

# 检查数据的前几行以确保列名正确
head(data)

# 检查列名
colnames(data)

# 如果第一列名不是"Group"，将其重命名为"Group"
if(colnames(data)[1] != "Group") {
  colnames(data)[1] <- "Group"
}

# 将数据转换为长格式
data_long <- melt(data, id.vars = "Group", variable.name = "Genus", value.name = "Count")

# 计算每个分组中占比最高的所占比例
data_long <- data_long %>%
  group_by(Group) %>%
  mutate(Percentage = Count / sum(Count) * 100) %>%
  ungroup()

max_percentage <- data_long %>%
  group_by