如何用只有数字变量绘制一条线？

Question

这是数据框（csv文件）

   Estación pH Conductividad
1        N1  6            29
2        N2  4            23
3        N3  2            16
4        N4  8            16
5        N5  3            20
6        N6  5            22
7        N7  8            27
8        N8  2            10
9        N9  3            27
10      N10  8            27
11      N11  8            26
12      N12  8            12
13      N13  2            19
14      N14  3            30
15      N15  5            25
16      N16  1            16
17      N17  1            17
18      N18  5            16
19      N19  8            15
20      N20  6            14

这是我一直在使用的代码：

library(ggplot2)

pl <- ggplot(df) + geom_point(aes(x=Estación, y = pH))

print(pl)

这是情节

我需要添加一条跟随点的相同位置的线。

我该怎么做？

Answer 1

你的意思是这样吗？

df %>%
    mutate(Estacion = factor(Estacion, levels = paste0("N", 1:nrow(df)))) %>%
    ggplot(aes(Estacion, pH, group = 1)) +
    geom_point() +
    geom_line()

说明：我们通过重新调整x变量factor来确保Estacion值的正确排序;由于x是一个分类变量，我们需要使用ggplot美学告诉group点属于同一组，以便属于同一组的点可以用一条线连接。

样本数据

df <- read.table(text =
    "   Estacion pH Conductividad
1        N1  6            29
2        N2  4            23
3        N3  2            16
4        N4  8            16
5        N5  3            20
6        N6  5            22
7        N7  8            27
8        N8  2            10
9        N9  3            27
10      N10  8            27
11      N11  8            26
12      N12  8            12
13      N13  2            19
14      N14  3            30
15      N15  5            25
16      N16  1            16
17      N17  1            17
18      N18  5            16
19      N19  8            15
20      N20  6            14");