powered by
Simply multiply by -1, corresponding scores and rotation vectors for PCA objects. PC orientation being arbitrary, this may help to have a better display.
flip_PCaxes(x, axs)
a PCA object
numeric which PC(s) to flip
# NOT RUN { bp <- bot %>% efourier(6) %>% PCA bp %>% plot bp %>% flip_PCaxes(1) %>% plot() # }
Run the code above in your browser using DataLab