R 绘制比直线尺寸大1的点

我想用

geom=“line”

和

geom=“point”

为此，我使用以下函数：

drawPlot <- function(...) ggplot2::ggplot(...) + 
  stat_summary(fun.y=mean, geom="line" ) + 
  stat_summary(fun.y=mean, geom="point" ) +
  scale_size_manual(values = c(0.5, 0.8, 1.2, 2, 3, 4, 5) ) 

我得到一个图，它有不同大小的线，没有点

---

取而代之的是，我想画一个图，在图中线条也会有点，这些点会比线条本身大1倍，所以它们很明显

我相信这可以通过分别绘制每个绘图（不使用

drawPlot

功能）和对

stat\u摘要（geom=“point”）

执行

aes

来实现

---

在

drawPlot

功能中是否可以实现相同的效果？

正在绘制的点，但它们的颜色和大小与直线相同，因此您无法看到它们。您可以在下面的示例中看到这一点，代码稍微更改为使用内置的

mtcars

数据帧。线和点以不同的颜色打印，点现在可见：

drawPlot <- function(...) ggplot2::ggplot(...) + 
  stat_summary(fun.y=mean, geom="line", colour="grey40") + 
  stat_summary(fun.y=mean, geom="point", colour="yellow") +
  scale_size_manual(values = c(1:3) ) 

drawPlot(data = mtcars, aes(x = wt, y=mpg, size=as.factor(gear))) 

---

回答得太好了！除非它破坏了我的传奇，否则就太完美了！

drawPlot <- function(...) ggplot2::ggplot(...) + 
  stat_summary(fun.y=mean, geom="line", colour="grey40") + 
  stat_summary(fun.y=mean, geom="point", colour="yellow") +
  scale_size_manual(values = c(1:3) ) 

drawPlot(data = mtcars, aes(x = wt, y=mpg, size=as.factor(gear))) 

drawPlot2 <- function(...) ggplot2::ggplot(...) + 
  stat_summary(fun.y=mean, geom="line", aes(size=factor(gear)), colour="grey40") + 
  stat_summary(fun.y=mean, geom="point", aes(size=factor(gear + 3)), 
               pch=21, fill="yellow", colour="black") +
  scale_size_manual(values = c(1,1.5,2,2,3,4)) 

drawPlot2(data = mtcars, aes(x = wt, y=mpg))