You might find setNames
handy here…
rbind(df, setNames(rev(df), names(df)))
# x y
#1 1 3
#2 2 4
#3 3 1
#4 4 2
I suspect your real use-case is somewhat more complex. You can of course reorder columns in the first argument of setNames
as you wish, just use names(df)
in the second argument, so that the names of the reordered columns match the original.