R语言绘图:绘制横向柱状图

代码主要实现: 对数据进行排序,并且相同分组的数据会有相同的颜色。最后,绘制横向柱状图。

r 复制代码
# 加载ggplot2包
library(ggplot2)

# 示例数据,假设有三列:Group, Variable, Value
data <- data.frame(
  Group = factor(c('A', 'B', 'A', 'C', 'B', 'C', 'A', 'B', 'C')),
  Variable = c('Var10', 'Var12', 'Var23', 'Var54', 'Var15', 'Var76', 'Var27', 'Var38', 'Var19'),
  Value = c(5, 3, 6, 2, 8, 7, 4, 1, 9)
)

# 按Value排序,确保绘图时按值大小顺序排列
data <- data[order(data$Value),]

# 更新Variable为按Value排序的因子,确保绘图时Y轴按Value的大小顺序排列
data$Variable <- factor(data$Variable, levels = unique(data$Variable))

data$Group <- factor(data$Group,
                       levels = c('A', 'B', 'C'),
                       labels = c('climate', 'topography', 'Soil'))


# 绘制横向柱状图
ggplot(data, aes(x = Variable, y = Value, fill = Group)) + 
  geom_bar(stat = "identity", position = "dodge") +
  coord_flip() +  # 使柱状图横向显示
  theme_minimal() +  # 使用简洁的主题
  scale_fill_brewer(palette = "Set1") +  # 根据分组使用不同颜色
  labs(x = "Variable", y = "Value", title = "按Value大小顺序排列的横向柱状图", fill = "Group")+
  theme(
    text = element_text(size = 14, family = "serif"),
    axis.ticks.length = unit(0.2, "cm"),  # 设置刻度线的长度
    axis.ticks = element_line(size = 1),  # 设置刻度线的粗细
    plot.title = element_text(size = 14, colour = "black", hjust = 0.5),
    axis.title.y = element_text(size = 14, color = "black", vjust = 1.9, hjust = 0.5, angle = 90),
    legend.title = element_text(color = "black", size = 14),
    legend.text = element_text(color = "black", size = 14),
    axis.text.x = element_text(size = 14, color = "black", vjust = 0.5, hjust = 0.5, angle = 0),
    axis.text.y = element_text(size = 14, color = "black", vjust = 0.5, hjust = 1, angle = 0),
    panel.border = element_rect(color = "black", size = 1, fill = NA),
    # panel.grid.major = element_blank(),
    # panel.grid.minor = element_blank(),
    axis.line = element_line(colour = "black", size = 2),
    axis.line.x = element_line(colour = "black", size = 0),
    axis.line.y = element_line(colour = "black", size = 0)
  )

结果展示:

相关推荐
每次的天空9 分钟前
kotlin与MVVM结合使用总结(三)
开发语言·microsoft·kotlin
keep intensify19 分钟前
通讯录完善版本(详细讲解+源码)
c语言·开发语言·数据结构·算法
ephemerals__22 分钟前
【c++11】c++11新特性(下)(可变参数模板、default和delete、容器新设定、包装器)
开发语言·c++
先生沉默先30 分钟前
c#接口_抽象类_多态学习
开发语言·学习·c#
沐土Arvin38 分钟前
理解npm的工作原理:优化你的项目依赖管理流程
开发语言·前端·javascript·设计模式·npm·node.js
IT瘾君42 分钟前
Java基础:认识注解,模拟junit框架
java·开发语言·junit
爱上解放晚晚1 小时前
QT 的.pro 转 vsproject 工程
开发语言·qt
不秃的开发媛1 小时前
前端技术Ajax入门
java·开发语言·前端
egoist20231 小时前
【C++指南】告别C字符串陷阱:如何实现封装string?
开发语言·数据结构·c++·c++11·string·auto·深/浅拷贝
iReachers1 小时前
使用命令行加密混淆C#程序
开发语言·c#