将数据的两个子集和GLM结果合并到一个ggplot上

library(ggplot2)

# 导入数据集
data <- read.csv("data.csv")

# 创建两个子集
subset1 <- subset(data, condition == "A")
subset2 <- subset(data, condition == "B")

# 运行GLM分析
glm_result <- glm(dependent ~ independent, data = data, family = "binomial")

# 合并数据集和GLM结果
merged_data <- merge(merge(subset1, subset2, by = "common_variable"), glm_result, by = "common_variable")

# 创建ggplot图形
ggplot(merged_data, aes(x = x_variable, y = y_variable, color = condition)) +
  geom_point() +
  geom_smooth(method = "lm") +
  labs(title = "Data Subset and GLM Results", x = "X Variable", y = "Y Variable") +
  theme_bw()

# 显示图形
print(ggplot)