对多年四指标数据进行柱状图绘制的R语言代码

在R语言中，你可以使用ggplot2包来进行数据可视化，包括绘制多年四指标的数据柱状图。这里是一个基本的例子，假设你有一个data.frame，其中包含年份（year）、指标A、指标B、指标C和指标D：

# 首先，你需要安装并加载必要的库
if (!require("ggplot2")) install.packages("ggplot2")
library(ggplot2)

# 假设你的数据存储在一个名为df的数据框中
# 年份作为row.names，指标值列名为'A', 'B', 'C', 'D'
df <- data.frame(
  year = 2010:2022,
  A   = c(10, 15, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36),
  B   = c(20, 25, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46),
  C   = c(30, 35, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56),
  D   = c(40, 45, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66)
)

# 使用geom_bar函数绘制柱状图
bar_chart <- ggplot(df, aes(x=year)) +
  geom_bar(stat="identity", aes(y=A), fill="red", alpha=0.7, position="dodge") +
  geom_bar(stat="identity", aes(y=B), fill="blue", alpha=0.7, position="dodge") +
  geom_bar(stat="identity", aes(y=C), fill="green", alpha=0.7, position="dodge") +
  geom_bar(stat="identity", aes(y=D), fill="purple", alpha=0.7, position="dodge") +
  labs(title = "多年四指标柱状图",
       x = "年份", y = "指标数值") +
  theme_minimal()

# 显示图形
bar_chart

在这个例子中，我们为每个指标分配了不同的颜色，并使用`position="dodge"`让它们在图表上分组显示。如果你的数据不是这个结构，可能需要调整数据预处理部分。