R語言ggplot2如何實現(xiàn)坐標軸放到右邊、更改繪圖邊界和數(shù)據(jù)分組排序

ggplot2作圖將Y軸的標簽放到右邊

正常坐標軸都是位于左邊和下邊，如果要改成上邊或者右邊可以使用如下代碼

正常

library(ggplot2)
df<-data.frame(x=1:10,y=1:10)
ggplot(df,aes(x=x,y=y))+
  geom_point()

 

不正常

ggplot(df,aes(x=x,y=y))+
  geom_point()+
  scale_x_continuous(position = "top")+
  scale_y_continuous(position = "right")

 

ggplot2 title放中間

library(ggplot2)
ggplot()+
  geom_point(aes(x=1,y=1))+
  labs(title=expression(R^2==0.56))+
  theme(plot.title = element_text(hjust=0.5))

 

ggplot2更改繪圖邊界

library(ggplot2)
ggplot()+
  geom_point(aes(x=1,y=1))+
  labs(title=expression(R^2==0.56))+
  theme(plot.title = element_text(hjust=0.5),
        plot.margin = unit(c(1,4,1,1),"lines"))

 

四個位置 控制的分別是上右下 左

> df<-data.frame(group=c("A","A","A","B","B","B"),
+                value=c(5,4,7,2,6,4))
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> df%>%
+   group_by(group)%>%
+   arrange(group,value)
# A tibble: 6 x 2
# Groups:   group [2]
  group value
  <chr> <dbl>
1 A         4
2 A         5
3 A         7
4 B         2
5 B         4
6 B         6

GO注釋結果整理

GO注釋的結果通常是兩列，第一列是GO號，第二列是好多基因名，用逗號分隔。就是下面這種

GO0001 gene1,gene2
GO0002 gene5,gene3,gene4
GO0003 gene3,gene10

有時候我們需要把它整理成，單個基因?qū)粋€GO號的形式

就是這種

 V1     V2    
  <chr>  <chr> 
1 GO0001 gene1 
2 GO0001 gene2 
3 GO0002 gene5 
4 GO0002 gene3 
5 GO0002 gene4 
6 GO0003 gene3 
7 GO0003 gene10

我最開始的解決辦法是寫簡單的python腳本，昨天在一個微信群里看到有人給出的R語言代碼，很好用，記錄在這里

#install.packages("tidyr")
library(tidyr)
df<-read.table("../Some_data/pra.txt",header=F,sep=" ")
df%>%
  separate_rows(V2,sep=",")