X-axis values by group
I have the following dataset with the following code that creates the plot I want in ggplot2. I would like to map the PTID on the x-axis by group so that it shows the ptids how they are already displayed, but also which group they are in.
PTID Group variable value
1 subject1 Group 1 Bio.V3.B 43
2 subject2 Group 1 Bio.V3.B 7410
3 subject3 Group 2 Bio.V3.B 13227
4 subject4 Group 2 Bio.V3.B 4832
5 subject5 Group 3 Bio.V3.B 205
6 subject6 Group 3 Bio.V3.B 24899
1 subject1 Group 1 Bio.V3.C 496
2 subject2 Group 1 Bio.V3.C 5932
3 subject3 Group 2 Bio.V3.C 24093
4 subject4 Group 2 Bio.V3.C 85
5 subject5 Group 3 Bio.V3.C 9503
6 subject6 Group 3 Bio.V3.C 18249
ggplot(data=meltedwk28v3, aes(x=PTID, y=value, fill=variable)) +
geom_bar(width= .5, colour="black", stat="identity", #barwidth
position=position_dodge(width=.7), #gapwidth
size=.2) + # Thinner lines
scale_fill_hue(name="Bio-V3 Clade") + # Set legend title
xlab("PTID") + ylab("MFI") + # Set axis labels
ggtitle("Wk28 Bio-V3 MFI") + # Set title
theme_classic() + theme(axis.text.x = element_text(angle=90, hjust=0, vjust=0)) #Themes
Thank!
+3
source to share
1 answer
One possibility is to use interaction
between 'PTID' and 'Group' as a variable x
:
ggplot(data = df, aes(x = interaction(PTID, Group, sep = " "), y = value, fill = variable)) +
geom_bar(width= 0.5, colour="black", stat = "identity",
position = position_dodge(width = 0.7),
size = 0.2) +
xlab("PTID") + ylab("MFI") +
ggtitle("Wk28 Bio-V3 MFI") +
theme_classic() +
theme(axis.text.x = element_text(angle = 90, hjust = 0, vjust = 0))
+1
source to share