R 在ggplot2中的数据点处绘制带有黑点的粗线

我想绘制一条路径并显示数据点的位置

使用

geom_point（）+geom_line（）

，但我不喜欢点厚得多，线条看起来不连续

-x-x--x--

，因此我决定

创建我自己的虚线：

---

mya美学可以在ggplot调用中设置或映射


aes（…）中定义的美学根据数据进行映射，并创建图例
通过在aes（）之外定义美学，也可以将美学设置为单个值

在您的情况下，似乎需要将大小设置为单个值。您还可以使用
scale\u…\u手册（值=…，指南='none'）
禁止创建图例。
这似乎就是您想要的
颜色

然后，您可以使用命名颜色，如
浅蓝色
和
深蓝色
（有关详细信息，请参阅
？颜色
）

美学可以在ggplot调用中设置或映射


aes（…）中定义的美学根据数据进行映射，并创建图例
通过在aes（）之外定义美学，也可以将美学设置为单个值

在您的情况下，似乎需要将大小设置为单个值。您还可以使用
scale\u…\u手册（值=…，指南='none'）
禁止创建图例。
这似乎就是您想要的
颜色

然后，您可以使用命名颜色，如
浅蓝色
和
深蓝色
（有关详细信息，请参阅
？颜色
）

你所说的线/点不连续是什么意思？你的意思是在
绘图（1:5，type='b'）
中，而不是
绘图（1:5，type='o'）
？（我本以为“b”是不连续的，但“o”类型的ggplot图？）你说线/点不连续是什么意思？你的意思是在
绘图（1:5，type='b'）
中，而不是
绘图（1:5，type='o'）
？（我本以为“b”是不连续的，但“o”类型的ggplot图是不连续的。）
mya <- data.frame(a=1:20)

ggplot() +
  geom_path(data=mya, aes(x=a, y=a, colour=2, size=1)) +
  geom_point(data=mya, aes(x=a, y=a, colour=1, size=1)) +
  theme_bw() +
  theme(text=element_text(size=11))

ggplot() +
 geom_line(data=mya, aes(x=a, y=a, colour='light'), size = 2) +
 geom_point(data=mya, aes(x=a, y=a, colour='dark'), size = 2) + 
 scale_colour_manual(values = setNames(c('darkblue','lightblue'), 
                                       c('dark','light')), guide = 'none') +
 theme_bw()