R 中同一时间序列中两组之间的相关（散点）图

Question

我正在努力制作散点图，然后在两组之间进行互相关；跨时间序列的维生素摄入和扩散。请注意，两组都有相同的时间序列。

例如，见下面的数据表。

时间	维生素_rep1	维生素_rep2	扩散_rep1	扩散_rep2
1	0.025518341	0.019979193	0.048	0.056
2	0.045188729	0.002983554	0.0285	0.072
3	0.003721425	0.010350122	0.047	0.084
4	0.005316321	0.002091164	0.063	0.055
5	0.023923445	0.013849514	0.023	0.043

我一直在尝试获取每个重复的散点图，x = 维生素，y = 扩散，然后尝试与线性回归进行互相关。

请告诉我这是否可行。

到目前为止，我一直在努力将这些内容分组。

谢谢

Answer 1

如果对数据进行透视，您可以获得代表 1 和代表 2 的扩散与维生素图。我制作了一些中间数据框，以便您可以看到每个步骤的作用。结果是你所追求的吗？我还添加了每个代表的线性拟合。我不知道你所说的“与线性回归的互相关”是什么意思。

library(tidyverse)
DF <- read.csv("~/R/Play/Dummy.csv")
DFlng <- DF |> pivot_longer(cols = -Time, names_to = c("Type", "rep"), names_sep = "_")
DFlng2 <- DFlng |> pivot_wider(names_from = "Type", values_from = "value")  
ggplot(DFlng2, aes(x = Vitamin, y = Diffusion, color = rep, group = rep)) + 
  geom_line() + geom_point() + geom_smooth(method = "lm", se = FALSE)
#> `geom_smooth()` using formula = 'y ~ x'

^{创建于 2024-11-07，使用 reprex v2.1.1}