使用两个数据帧向ggplot scatterplot添加更多因子，而不添加行

我试图在ggplot2中为两个颜色不同的变量（两个物种）的R创建一个散点图，在该图中，根据形状不同的季节，显示两个物种之间的差异。我在运行以下代码时遇到此问题：

Species<- c('1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2')
Age<-c('I','M','M','I','I','M','I','M','I','I','I','M','I','M','M','I','I','I','I','M')
SA<-c(100,90,180,77,65,73,85,87,84,84,82,77,74,65,62,98,120,180,190,100)
V<-c(40,42,45,55,51,62,73,21,41,61,51,92,54,61,65,32,41,55,56,53)
PWstats<-data.frame(Species,Age,SA,V)

PlotSpeciescheck <- ggplot(PWstats,aes(x=log(V), y=log(SA), color=Species, shape=Age)) +
geom_point() +
geom_smooth(method=lm) + 
labs(x=expression("Volume ("*cm^3*")"), 
     y=expression("Surface Area ("*cm^2*")")) + 
theme(legend.text = element_text(face="italic"))  

---

Species顶级的造型美学正在把你的事情搞砸。因为您只想将其应用于点，所以只需将其专门移动到该层

PlotSpeciescheck <- ggplot(PWstats,aes(x=log(V), y=log(SA), color=Species)) +
  geom_point(aes(shape=Age)) +
  geom_smooth(method=lm) + 
  labs(x=expression("Volume ("*cm^3*")"), 
       y=expression("Surface Area ("*cm^2*")")) + 
  theme(legend.text = element_text(face="italic")) 

plotspecies请求帮助时检查您应该包含一个示例输入数据，以便我们可以运行代码来查看发生了什么。也许可以画出你想要输出的样子？我无法从您的描述中看出您想要什么。您好，请阅读如何为R制作一个最小的、可复制的示例，然后相应地编辑您的问题。如果您希望
形状
影响
几何点
层，而不是
几何平滑
层，将美学贴图移入
geom_点
并移出全局
ggplot
贴图：
geom_点（aes（shape=seasure））
或使用
geom_平滑（aes（group=Species），method=lm）
@MrFlick，我已经创建了样本数据，但目前无法上传照片。如果您使用代码运行示例数据，希望您能够看到我指出的内容。我希望这能让这个问题更有帮助！这太完美了！非常感谢你！