y 轴上逐步具有多个变量的折线图

Question

我需要一些帮助。这是我要绘制的数据。我想在 y 轴上保留 $path.ID 并逐步添加所有其他列的数字。这是非常大的数据集的一个子集，所以我想将 pathID 标签附加到每一行。如果可能的话，还有每个点的其他列的值。

head(table)
  Path.ID     sc    st    rc    rt
  <chr>    <dbl> <dbl> <dbl> <dbl>
1 map00230     1    12     5    52
2 map00940     1    20    10    43
3 map01130    NA    15     8    34
4 map00983    NA    14     5    28
5 map00730    NA     5     3    26
6 map00982    NA    16     2    24

somewhat like this 谢谢

Answer 1

这是伪代码。

library(tidyr)
library(dplyr)
library(ggplot2)
# convert your table into a long format - sorry I am more used to this type of data
table_long <- table %>% gather(x_axis, value, sc:rt)

# Plot with ggplot2
ggplot() +
  # draw line
  geom_line(data=table_long, aes(x=x_axis, y=value, group=Path.ID, color=Path.ID)) +
  # draw label at the last x_axis in this case is **rt**
  geom_label(data=table_long %>% filter(x_axis=="rt"),
             aes(x=x_axis, y=value, label=Path.ID, fill=Path.ID),
             color="#FFFFFF")

请注意，使用此代码，如果 Path.ID 没有 rt 值，那么它将没有任何标签

Answer 2

p<-ggplot() +
  # draw line
  geom_line(data=table_long, aes(x=x_axis, y=value, group=Path.ID, color=Path.ID)) +
  geom_text(data=table_long %>% filter(x_axis=="rt"),
             aes(x=x_axis, y=value, label=Path.ID),
             color= "#050505", size = 3, check_overlap = TRUE)
p +labs(title= "title",x = "x-lable", y="y-label")

我不得不使用 geom_text，因为我的数据集很大，它给了我更清晰的图表谢谢@sinh，它帮了很多忙。

y 轴上逐步具有多个变量的折线图

line graph with multiple variables on y axis stepwise

r

ggplot2

r-plotly