Объединение переменных 2-х переменных в одну

Question

Я хотел бы объединить x-переменные со строками, поскольку они были измерены не во взаимосвязанные периоды времени с разными цветами одной основной линии, чтобы обозначить разницу. Любые предложения к следующему сценарию?

plot(dat$days,dat$wc_10_1,
     main="Rollesbroich-1, 0.1 m",
     xlab="Days",
     ylab=expression( "water content (cm"^3 / "cm)"^3),
     type="l",
     col="blue",
     pch=16)
lines(dat$days,dat$m_wc_10_1, col="red",pch=16, type="l")

Answer 1

Вероятно, это проще всего сделать с помощью ggplot2. Ниже приведен воспроизводимый пример того, что, я думаю, вы пытаетесь достичь, предполагая, что обе переменные x непрерывны.

dat = data.frame(days=1:10, 
                 wc_10_1=rnorm(10),
                 m_wc_10_1=rnorm(10,5,5))

# ggplot2 ----
library(ggplot2)

ggplot(data = dat, aes(x=days, y=wc_10_1, colour=m_wc_10_1)) +
  geom_line() +
  labs(
    x="Days",
    y=expression(cm^{3} / cm)
  )

Не знаете, как задать непрерывную шкалу для линий, используя базовый график, но я уверен, что это возможный. Обходной путь должен был бы использовать type="b":

# base ----
my_colour = "blue"
x2_norm = dat$m_wc_10_1 - min(dat$m_wc_10_1)
x2_norm = x2_norm/max(x2_norm)
my_colour_scale = scales::alpha(my_colour, x2_norm)
plot(x=dat$days,
     y=dat$wc_10_1,
     col=my_colour_scale,
     t="b",
     pch=16)