在R中对齐直方图和散点图

library(ggplot2)

# 创建示例数据
data <- data.frame(
  group = rep(c("A", "B"), each = 100),
  value = c(rnorm(100, mean = 0, sd = 1), rnorm(100, mean = 2, sd = 1))
)

# 绘制对齐直方图
ggplot(data, aes(x = value)) +
  geom_histogram(binwidth = 0.5, fill = "lightblue") +
  facet_wrap(~ group, nrow = 1)

library(ggplot2)

# 创建示例数据
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100)
)

# 绘制散点图
ggplot(data, aes(x = x, y = y)) +
  geom_point()