使用ggplot R将条形图和折线图与数值变量和分类变量相结合

library(ggplot2)

# 创建示例数据
data <- data.frame(
  category = c("A", "B", "C", "D", "E"),
  value = c(10, 20, 30, 40, 50),
  line_value = c(5, 15, 25, 35, 45)
)

# 使用ggplot创建图表，并使用aes函数映射数据到图形属性
ggplot(data, aes(x = category, y = value)) +
  # 添加条形图
  geom_col() +
  # 添加折线图
  geom_line(aes(y = line_value), color = "red") +
  # 添加标题和轴标签
  labs(title = "Bar Chart and Line Chart with Numeric and Categorical Variables",
       x = "Category",
       y = "Value")