组合变量2个x变量为一

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)