\draw [name path=r] (R1) -- (R2) node[below] {$r$};

