目標(biāo)：
要做一個(gè)下面這種圖，用ggplot2做了上半部分和下半部分匣屡，需要將兩個(gè)部分組合起來(lái)
tumor.count3.png
1. 圖片組合方法一：grid.arrange
library(grid)
library(gridExtra)
pdf('test.pdf')
grid.arrage(p1,p2,heights=c(4/5,1/5))
dev.off()
1.1 grid.arrage說(shuō)明：
主要有幾個(gè)參數(shù)：
nrows
ncols
layout = 跟一個(gè)矩陣扼菠，eg如下：
lay <- rbind(c(1,1,1,2,3),
c(1,1,1,4,5),
c(6,7,8,9,9))
grid.arrange(grobs = gs,layout_matrix = lay)
1.2 該方法存在的問(wèn)題：
只是將2張圖進(jìn)行組合，如果圖片右邊的字符長(zhǎng)度不同，panel的X軸無(wú)法對(duì)齊
解決方法：關(guān)鍵詞 Panel Alignment
參考網(wǎng)站：
Laying out multiple plots on a page
2. 圖片組合方法二：gtable
STEP1: 用ggplotGrob將ggplot2對(duì)象轉(zhuǎn)為Grob
STEP2:rbind組合兩張圖
STEP3:grid.draw
library(gtable)
g2 <- ggplotGrob(p2)
g3 <- ggplotGrob(p3)
g <- rbind(g2, g3, size = "first")
g$widths <- unit.pmax(g2$widths, g3$widths)
grid.newpage()
grid.draw(g)
問(wèn)題：
用了這個(gè)命令射富，panel成功對(duì)齊，可是figure1和figure2的比例為1:1 粥帚， = = 無(wú)fuck說(shuō)胰耗，不知道怎么弄
接下來(lái)的方向：
grid和lapply學(xué)習(xí)
Lattice學(xué)習(xí) 2019-03-03
參考R語(yǔ)言實(shí)戰(zhàn)23章
2019-03-06 Read.table后，列名中的符號(hào)顯示為‘.’
解決方法：
res1 <- read.table("test.xlsx", 1,encoding='UTF-8',check.names=F)
關(guān)鍵參數(shù)check.names=F
參考資料：
R語(yǔ)言讀取xlsx亂碼和列名特殊字符顯示成.的問(wèn)題
