搜索
查看: 803|回复: 5

ggplot画GO二级层次图遇到的问题

[复制链接]

7

主题

37

帖子

404

积分

中级会员

Rank: 3Rank: 3

积分
404
发表于 2018-3-9 20:53:10 | 显示全部楼层 |阅读模式
X轴的term是以 字符串为中心倾斜的。。如何才能顶格?     

[AppleScript] 纯文本查看 复制代码
## load data
load(url("https://raw.githubusercontent.com/x2yline/Rdata/master/data%20visualization%20R/go_enrich_df.Rdata"))
head(go_enrich_df)

library(ggplot2)
CPCOLS <- c("#66C3A5", "#8DA1CB", "#FD8D62")
ggplot(data=go_enrich_df,aes(x=Description,y=GeneNumber,fill=type))+
	geom_bar(stat='identity',width=0.8)+
	scale_fill_manual(values=CPCOLS)+
	theme(axis.text.x = element_text(angle=70,hjust=0.5,vjust=0.5))


另外X 轴如何做出这种分类的效果?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x



上一篇:hg19.gff在哪下?
下一篇:Cystocape
回复

使用道具 举报

7

主题

37

帖子

404

积分

中级会员

Rank: 3Rank: 3

积分
404
 楼主| 发表于 2018-3-9 20:58:18 | 显示全部楼层
代码参考  @x2yline  
回复 支持 反对

使用道具 举报

3

主题

18

帖子

328

积分

中级会员

Rank: 3Rank: 3

积分
328
发表于 2018-3-10 11:37:32 | 显示全部楼层
第一个问题调整一下hjust和vjust参数即可
比如你可以比较一下这两个命令的结果
df<-data.frame(trt=c("ABCDEFGHT","ABC","ADEFR"),
               outcome=c(2.3,1.9,3.2))
ggplot(df,aes(x=trt,y=outcome))+geom_bar(stat="identity")+
  theme(axis.text.x=element_text(angle=70,hjust=0.5,vjust=0.5))
ggplot(df,aes(x=trt,y=outcome))+geom_bar(stat="identity")+
  theme(axis.text.x=element_text(angle=70,hjust=1,vjust=1))
如何用R做出第二个问题的分类效果目前自己也不太清楚,目前想到的解决办法是借助其他软件比如AI
回复 支持 反对

使用道具 举报

7

主题

37

帖子

404

积分

中级会员

Rank: 3Rank: 3

积分
404
 楼主| 发表于 2018-3-10 18:22:42 | 显示全部楼层
牧羊的男孩儿 发表于 2018-3-10 11:37
第一个问题调整一下hjust和vjust参数即可
比如你可以比较一下这两个命令的结果
df ...

hjust=1,vjust=1   解决了
回复 支持 反对

使用道具 举报

1

主题

49

帖子

626

积分

高级会员

Rank: 4

积分
626
发表于 2018-3-12 09:31:28 | 显示全部楼层
求原代码,和输入文件的格式
回复 支持 反对

使用道具 举报

7

主题

37

帖子

404

积分

中级会员

Rank: 3Rank: 3

积分
404
 楼主| 发表于 2018-3-14 17:29:59 | 显示全部楼层
生信小小菜鸟 发表于 2018-3-12 09:31
求原代码,和输入文件的格式

代码我已经贴出来了 ,  源文件在 load里面的 那个网址,你点击下就可以在浏览器里面打开了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树    

GMT+8, 2018-6-25 15:41 , Processed in 0.116486 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.