R语言可视化散点图的绘制求解

Question

根据数据集“Global_Education.csv"中的数据，绘制Birth Rate和Gross Enrollment In Education之间的散点图，效果如图所示：

是一张图片截成两部分显示的，因为页面没法调图的大小。散点图的标题应为Birth Rate vs Gross Enrollment In Education。由于没办法上传文件，所以数据集没办法提供给大家，实在抱歉，把代码写出来就行，到时候我自己运行就可以。
以下图片是数据集文件内部数据的情况供大家参考：

Gross Enrollment In Education(教育总入学人数）为‘Gross_Primary_Education_Enrollment’列和‘Gross_Tertiary_Education_Enrollment’列数据的和。

Answer 1

基于Monster 组和AIGC的调写：若有帮助，还望采纳~~：

library(ggplot2)

data <- read.csv("这是目录的位置")

data$Gross_Enrollment_In_Education <- data$Gross_Primary_Education_Enrollment + data$Gross_Tertiary_Education_Enrollment

ggplot(data, aes(x = Birth_Rate, y = Gross_Enrollment_In_Education)) +
  geom_point(aes(color = 'Primary Enrollment'), alpha = 0.5) +
  geom_point(aes(y = Gross_Primary_Education_Enrollment, color = 'Tertiary Enrollment'), alpha = 0.5) +
  labs(title = "Birth Rate vs Gross Enrollment In Education", 
       x = "Birth Rate", 
       y = "Gross Enrollment in Education") +
  theme_minimal() +
  scale_color_manual(values = c('Primary Enrollment' = 'blue', 'Tertiary Enrollment' = 'orange'))