求助：ggplot2绘图，图例无法改变位置，想加到条形图右上角

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家好，如题，ggplot2绘图，图例无法改变位置，加与不加 theme(legend.position='top')，结果都一样，求高手指点，多谢！所需数据文件与代码都在网盘里。

链接: https://pan.baidu.com/s/1fZ7sF6ZkYXU3eW4TBXu9xA 提取码: 8fpk

主要问题是图例位置问题，想加到条形图右上角
还有次要问题，希望能一并解释一些，多谢！
1.BP <- read.table('BP.txt', sep='\t', header=T)    # Error 不知为何无法读入，而同一网站获得的其他文件正常读入。
2.数据框中不允许用这种方法（主要是有-）go_enrich_df$-log10_PValue新建名为-log10_PValue的变量吗？
3.ggplot(data=go_enrich_df, aes(x=term_order, y= go_enrich_df[, '-log10_PValue'], fill=type)) +  ...
开始是写的y= -log10_PValue, 提示找不到对象'log10_PValue'，为何？
4.左下角文字溢出，如何使图像整体右移？
legend.rar (67.38 KB) 本附件包括：

• BP.xlsx
• KEGG.txt
• MF.txt
• CC.txt
• plot.rich6.R
• enrichment_of_miRNA_targets7.pdf
• BP.txt

2020-3-31 23:04:24 上传

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

+ guides(fill = guide_legend(direction="horizontal",label.position = "top", label.hjust = 1))
试试这个，不过ggplot2只有四个位置选项，放不到右上角

llb_321 发表于 2020-4-1 11:43
+ guides(fill = guide_legend(direction="horizontal",label.position = "top", label.hjust = 1))
试试这 ...

多谢朋友指点，不过貌似不成功啊，我加上您这条命令后是这样的结果，见图，图例在右面您运行后是什么效果啊？或者您还别的建议吗？多谢！

您的代码中 有theme legeng.position="none" 可能与这个有关 删掉试试

1. p <- ggplot(data=go_enrich_df, aes(x=term_order, y= go_enrich_df[, '-log10_PValue'], fill=type)) +  ####  y= -log10_PValue, 找不到对象'log10_PValue'
   
2.   geom_bar(stat="identity", width=0.8) +
   
3.   
   
4.   coord_fixed(ratio=2) +  
   
5.   
   
6.   scale_fill_manual(values=CPCOLS) +
   
7.   
   
8.   theme_bw() + xlab("GO Terms /KEGG Pathway") + ylab("-log10_PValue") +
   
9.   
   
10.   labs(title="The Most Enriched GO Terms /KEGG Pathway") +
    
11.   
    
12.   theme(axis.text.x=element_text(face="bold",
    
13.                                  color="gray50", angle=70, vjust=1, hjust=1),
    
14.         legend.position=c(0.8,0.8))
    
15. 
    
16. #pdf("enrichment_of_miRNA_targets7.pdf")
    
17. p

复制代码

llb_321 发表于 2020-4-2 10:16
您的代码中 有theme legeng.position="none" 可能与这个有关 删掉试试

也试过了，还是不行。楼下zhou1_20朋友完美解决问题。仍然感谢您的耐心解答，多谢！

zhou1_20 发表于 2020-4-2 11:19

多谢，问题完美解决。顺便请教，您贴上来的代码是怎么弄的？
此外，我的次要问题，您有没有建议？再次感谢！

1.BP <- read.table('BP.txt', sep='\t', header=T)    # Error 不知为何无法读入，而同一网站获得的其他文件正常读入。
2.数据框中不允许用这种方法（主要是有-）go_enrich_df$-log10_PValue新建名为-log10_PValue的变量吗？
3.ggplot(data=go_enrich_df, aes(x=term_order, y= go_enrich_df[, '-log10_PValue'], fill=type)) +  ...
开始是写的y= -log10_PValue, 提示找不到对象'log10_PValue'，为何？
4.左下角文字溢出，如何使图像整体右移？

EveIOU 发表于 2020-4-2 15:19
多谢，问题完美解决。顺便请教，您贴上来的代码是怎么弄的？
此外，我的次要问题，您有没有建议？再次感 ...

编辑的时候点击"<>"符号可以插入代码