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
bp <- bot %>% efourier(6) %>% PCA bp %>% plot bp %>% flip_PCaxes(1) %>% plot()
Run the code above in your browser using DataLab