不同尺度的折线图和堆积条形图在R中如何区分

# 创建示例数据
x <- c(1, 2, 3, 4, 5)
y <- c(10, 8, 6, 4, 2)

# 绘制折线图
plot(x, y, type = "l", xlab = "X轴标签", ylab = "Y轴标签", main = "折线图示例")

# 安装和加载ggplot2包
install.packages("ggplot2")
library(ggplot2)

# 创建示例数据
df <- data.frame(x = c(1, 2, 3, 4, 5), y = c(10, 8, 6, 4, 2))

# 绘制折线图
ggplot(df, aes(x, y)) +
  geom_line() +
  labs(x = "X轴标签", y = "Y轴标签", title = "折线图示例")

# 创建示例数据
data <- matrix(c(10, 20, 30, 40, 50, 60), nrow = 2, ncol = 3, byrow = TRUE)
colnames(data) <- c("A", "B", "C")
rownames(data) <- c("Group 1", "Group 2")

# 绘制堆积条形图
barplot(data, beside = TRUE, legend.text = TRUE, xlab = "X轴标签", ylab = "Y轴标签", main = "堆积条形图示例")

# 安装和加载ggplot2包
install.packages("ggplot2")
library(ggplot2)

# 创建示例数据
df <- data.frame(Group = c("Group 1", "Group 1", "Group 1", "Group 2", "Group 2", "Group 2"),
                 Category = c("A", "B", "C", "A", "B", "C"),
                 Value = c(10, 20, 30, 40, 50, 60))

# 绘制堆积条形图
ggplot(df, aes(x = Group, y = Value, fill = Category)) +
  geom_bar(stat = "identity", position = "stack") +
  labs(x = "X轴标签", y = "Y轴标签", title = "堆积条形图示例") +
  scale_fill_manual(values = c("red", "blue", "green"), labels = c("A", "B", "C"))