如何使用ggplot在条形图中并排显示频率和累积频率(躲避位置)

install.packages("ggplot2")

library(ggplot2)

ggplot(data, aes(x = x)) +
  geom_bar(stat = "count", position = "dodge")

ggplot(data, aes(x = x)) +
  geom_bar(stat = "count", position = "dodge") +
  geom_line(stat = "cumcount", aes(group = 1), color = "red")

library(ggplot2)

# 准备数据集
data <- data.frame(x = c(1, 2, 2, 3, 3, 3, 4, 4, 4, 4))

# 创建频率条形图和累积频率线图
ggplot(data, aes(x = x)) +
  geom_bar(stat = "count", position = "dodge") +
  geom_line(stat = "cumcount", aes(group = 1), color = "red")

# 调整图形样式
# ggplot函数中可以使用labs函数设置标题和坐标轴标签
# ggplot函数中可以使用theme函数设置图形的主题和样式
ggplot(data, aes(x = x)) +
  geom_bar(stat = "count", position = "dodge") +
  geom_line(stat = "cumcount", aes(group = 1), color = "red") +
  labs(title = "Frequency and Cumulative Frequency",
       x = "Value",
       y = "Frequency") +
  theme_minimal()