ggplot2前后斜率圖

Question

我對 ggplot2 不夠熟練，但它似乎是創建斜率圖以圖形方式表示我的結果的最佳庫。 我必須表示一個斜率圖，指出治療前后結果的差異。 請注意，我需要證明這兩種治療產生了幾乎相同的結果； 這就是為什么我正在尋找這張圖表。 謝謝你。

id<-c(1:5)
after<-c(35.69, 38.96, 33.10, 27.11, 36.55)
before<-c(35.96, 39.70, 33.85, 27.92, 38.38)
df<-data.frame(id, after,before)

Answer 1

這就是你所追求的嗎？

df <- data.frame(id, after,before) %>%
  pivot_longer(cols = c("after", "before"),
               names_to = "time")
ggplot(data = df,
       aes(x = time,
           y = value,
           group = id,
           color = factor(id))) +
  geom_line(size = 2,
            alpha = 0.5) +
  geom_point(size = 3)