Rearrange sample in Taxonomy plot based on groups

[Jawen-D]

Hi Kai,

I need help in rearranging samples in the results of my taxonomy plot based on groups and relative abundance.

I used this script and produce this:

plotbar(norm,level="Phylum")

I want to reorder my samples like this:
sampleorder <- c(Control=c("YHY", "LJH", "KSH", "HSO", "LCH", "KHK", "HMG", "GYJ", "NYJ", "CYY"),(Patient=c("GSJ_R", "GSJ_L", "JSA_R", "OJY_L", "OJY_R", "CCS_L", "CCS_R", "PIR_R", "LEJ_L", "JSA_L", "LEJ_R", "KEJ_R", "KEJ_L", "PIR_L")))

Thanks
James

[guokai8]

Hi @Jawen-D,
The plotbar function return a ggplot object so you can change the order for x axis by using scale_x_discrete.
K

[Jawen-D]

Hello @guokai8,

Thanks for your reply. I'm very new to R programing. Can I have a sample script to get a hold of how to do this?
Thank you.

[guokai8]

Hi @Jawen-D

sampleorder <- c("YHY", "LJH", "KSH", "HSO", "LCH", "KHK", "HMG", "GYJ", "NYJ", "CYY","GSJ_R", "GSJ_L", "JSA_R", "OJY_L", "OJY_R", "CCS_L", "CCS_R", "PIR_R", "LEJ_L", "JSA_L", "LEJ_R", "KEJ_R", "KEJ_L", "PIR_L")
plotbar(norm,level="Phylum")+scale_x_discrete(limits=sampleorder)

You can also google it and then you will find lots of answers
K

[Jawen-D]

I got it now. Thanks a lot.