[英]Labeling X-axis Values by Group
I have the following dataset with the following code that produces the graph I want in ggplot2. 我有以下数据集,以下代码生成我想要的图形ggplot2。 I would like to lable the PTIDs on the x axis by group so that it shows the ptids how they are already displayed but also with what group they are in.
我希望按组分别在x轴上标记PTID,以便它显示ptid如何显示它们以及它们所处的组。
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
Thanks! 谢谢!
One possibility is to use the interaction
between 'PTID' and 'Group' as x
variable: 一种可能性是使用'PTID'和'Group'之间的
interaction
作为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))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.