r-如何在没有分隔符的情况下在多个列上使用pivot_？

我有下面的示例数据集，我正在尝试使用pivot_longer()所以我有一个专栏test/retest，为color还有一个专栏change/pct_change.我不知道怎么用names_pattern =鉴于我的专栏标题没有分隔符。任何关于我如何处理这件事的建议都将被采纳。

subject <- paste("Subject", 1:10)
test <- round(rnorm(10, 42, 2), 1)
retest <- round(test + runif(10, -3, 4), 1)
change <- retest - test
pct_change <- round(((test - retest) / test) * -100, 1)
color <- rep(c("darkgreen", "green", "orange", "red", "darkred"),
                times = 2)


ex_dat <- data.frame(subject, test, retest, change, pct_change, color)