R 如何制作两条线和四个符号的图形？

我想制作一个有两条线的图（一条线表示一个级别，另一条线表示因子的其他级别），但每个级别在ggplot2上有两个类别。所以我需要做一个像这样的图，但是每行有两个符号。救命啊

R基中的一种（潜在）溶液是：

在数据框中定义数据：

df <- data.frame(Gender = c(rep("m",10), rep("f", 10)),
       Age = sample(10:90, 20, replace = T),
       Fitness_level = sample(1:10, 20, replace = T))

---

请与

dput（）

和您尝试的代码共享一些数据。我尝试放置数据，结果显示为图像。图是互联网的一个例子。请考虑一下。我在网上放了一个数据表。

df$pch <- ifelse(df$Age > 40, 8, 12) # 8 and 12 are point characters

# scatter plot:
plot(df$Fitness_level[df$Gender=="m"] ~ df$Age[df$Gender=="m"], pch = df$pch,     col="red", ylim=c(1,10))

# regression line for men:
abline(lm(df$Fitness_level[df$Gender=="m"] ~ df$Age[df$Gender=="m"]), col="red")

# add points for women:
points(df$Fitness_level[df$Gender=="f"] ~ df$Age[df$Gender=="f"], pch = df$pch, col = "blue")

# add regression line:
abline(lm(df$Fitness_level[df$Gender=="f"] ~ df$Age[df$Gender=="f"]), col="blue")