如何解决关于R中ggplot中的分组
我有此数据框,我想将期望的栏与不同的患者个人数据分组。我编写了代码,但仅适用于1位患者。我想对14位患者进行此操作。如图所示,此图适用于1位患者,我必须为所有患者显示相似的组。目前,我有2位患者的数据。所以我必须标记14位患者的x轴,但将图保留为空
c<- data.frame(Var=character(),Expected=double(),Pat_1=double(),Pat_2=double(),stringsAsFactors=FALSE)
x<-data.frame("IT-6",2,4,3)
names(x)<-c('Var','Expected','Pat_1','Pat_2')
c<-rbind(c,x)
x<-data.frame("IT-7",3,8)
names(x)<-c('Var',x)
x<-data.frame("IT-8",7)
names(x)<-c('Var',x)
c_melt<-melt(c,id = c("Var"))
c_melt<-dplyr::rename(c_melt,"Patient"="variable")
c_melt$col<-ifelse(grepl("Expected",c_melt$Patient),"gray88","grey60")
> c_melt
Var Patient value col
1 IT-6 Expected 2 gray88
2 IT-7 Expected 3 gray88
3 IT-8 Expected 4 gray88
4 IT-6 Pat_1 4 grey60
5 IT-7 Pat_1 2 grey60
6 IT-8 Pat_1 2 grey60
7 IT-6 Pat_2 3 grey60
8 IT-7 Pat_2 8 grey60
9 IT-8 Pat_2 7 grey60
ggplot(data=c_melt,aes(x=Var,y=value,fill=col))+
geom_bar(stat="identity",na.rm = T,position="dodge")+
labs(y="display(%)",x="")+
theme(axis.title.x = element_blank(),axis.text.x = element_text(size=12,angle=0,vjust = 0.5,face = c( 'bold')),panel.grid.major.x = element_blank(),panel.grid.minor.x = element_blank())+
theme(axis.ticks=element_line(colour = "black"),panel.border = element_rect(colour = "black",fill=NA,size=0.5),panel.background = element_blank(),axis.title.y = element_text(size=15,vjust = 0.5),axis.text.y=element_text(size=12,vjust = 0.5))+
theme(legend.position = "none")+
scale_fill_identity()
解决方法
也许您可以尝试facet_wrap
ggplot(data=c_melt,aes(x=Var,y=value,fill=col))+
geom_bar(stat="identity",na.rm = T,position="dodge")+
facet_wrap(~Patient) +
,
我认为您需要一个更好的例子来展示您的追求。
以下是一些想法,这些想法要么填充在“患者”上,要么在填充“患者”时在“患者”上分组。他们如何比较?
library(tidyverse)
library(tibble)
c_melt <- tibble( Var = c("IT-6","IT-7","IT-8","IT-6","IT-8"),Patient = c("Expected","Expected","Pat_1","Pat_2","Pat_2"),value = c(2,3,4,2,8,7),col = c("gray88","gray88","gray60","gray60")
)
#Example 1
c_melt %>%
ggplot(aes(x=Var,fill=Patient))+
geom_bar(stat="identity",position="dodge")
#Example 2
c_melt %>%
ggplot(aes(x=Var,fill=col,group=Patient))+
geom_bar(stat="identity",position="dodge") +
scale_fill_identity() +
theme_bw()
由reprex package(v0.3.0)于2020-11-03创建
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。