R - 共享刻度的直方图

在R语言中，可以使用ggplot2包来创建共享刻度的直方图。下面是一个包含代码示例的解决方法：

# 导入所需的包
library(ggplot2)

# 创建一个示例数据集
df <- data.frame(
  group = rep(c("Group 1", "Group 2"), each = 100),
  value = c(rnorm(100, mean = 50, sd = 10),
            rnorm(100, mean = 75, sd = 15))
)

# 创建共享刻度的直方图
ggplot(df, aes(x = value, fill = group)) +
  geom_histogram(binwidth = 5, position = "identity", alpha = 0.7) +
  facet_grid(~ group, scales = "free") +
  theme_classic()

在上述代码中，首先导入了ggplot2包，然后创建了一个示例数据集df，其中包含了两个组的值。接下来，使用ggplot函数创建一个图形对象，并通过aes函数指定了x轴的值和填充颜色。然后，使用geom_histogram函数创建直方图，并通过binwidth参数指定了bin的宽度，通过position参数设置了直方图的位置为“identity”，通过alpha参数设置了透明度为0.7。最后，使用facet_grid函数将图形按照组进行分面，并通过scales参数设置了刻度的共享。最后，使用theme_classic函数设置了经典的主题样式。