> colnames(data1)[seq(2,ncol(data1), 15)]
 [1] "AAAA" "AAGG" "ATGC" "ACGT" "AGGA" "TACG" "TTCC" "TCCT" "TGCA" "CATG"
[11] "CTTC" "CCTT" "CGTA" "GAAG" "GTAC" "GCAT" "GGAA" "GGGG"

> ggplot(data2[data2$name==11,], aes(x = Tetra, y = Freq, group = 1)) + geom_line(size=0.2) + theme_bw() + scale_x_discrete(breaks = colnames(data1)[seq(2,ncol(data1), 15)])

// scale_x_discrete 可以設置x軸顯示的刻度，調整稀疏程度，比如 breaks=seq(0,12200,1000)

> ggplot(data2[data2$name==11,], aes(x = Tetra, y = Freq, group = 1)) + geom_line(size=0.2) + theme_bw() + scale_x_discrete(breaks = colnames(data1)[seq(2,ncol(data1), 15)]) + theme(axis.text.x = element_text(face="bold", color="blue", size=8))

// ggplot2 中有很多 element可以調整矩形，字體，線段的屬性，比如 element_rect, element_line, element_blank, element_text
// http://docs.ggplot2.org/0.9.2.1/theme.html


// panel.margin 用于 theme() 中，主要用于調整繪圖區域各圖之間的間距
// margin 用于element中，調整element 與周圍圖形元素的距離

// plot.margin 用于 theme()中，用于調整整個繪圖區的邊緣位置

> ggplot(data2[data2$name==11,], aes(x = Tetra, y = Freq, group = 1)) + geom_line(size=0.2) + theme_bw() + scale_x_discrete(breaks = colnames(data1)[seq(2,ncol(data1), 15)]) + theme(axis.text.x = element_text(face="bold", color="blue", size=8), plot.margin = unit(c(2,3,3,4),"cm"))

有三種方法可以設置x軸或y軸 刻度范圍

> p + scale_x_continuous(limits = c(-5,15))   // 方法一
> p + xlim(-5,15)   // 方法二

> p + xlim(min(dt$A, 0)*1.2, max(dt$A)*1.2)   // 一般使用倍數來限定大小，注意定義最小值的方式
> 

// 在theme 中可以用 axis.title.x或y 調整坐標軸的標識
//  
geom_text(aes(label = "point_k"))   // 這個可以給點添加文字label

// scale_size 可以把圖中的數據點轉化為不同大小的點

// //

上海網站制作公司哪家好，找創新互聯！從網頁設計、網站建設、微信開發、APP開發、成都響應式網站建設公司等網站項目制作，到程序開發，運營維護。創新互聯自2013年創立以來到現在10年的時間，我們擁有了豐富的建站經驗和運維經驗，來保證我們的工作的順利進行。專注于網站建設就選創新互聯。

原始繪圖代碼：

> library(ggplot2)
> library(reshape2)
> setwd("/Users/m/working/R_bin_two/new_bin")
> data1 <- read.table("result_data_g2.txt", header=T, check.names = F, fill =T)
> data2 <- melt(data1, id="name")
> colnames(data2)[2:3] <- c("Tetra","Freq")
> data2[,1] <- as.factor(data2[,1])
> p <- ggplot(data2, aes(x = Tetra, y = Freq, group = name, colour = name)) 
> p + geom_line(size=0.2) 
> p + theme_bw() 
> p + scale_x_discrete(breaks = colnames(data1)[seq(2,ncol(data1), 15)]) 
> p + guides(color = guide_legend(ncol=6))
> p + theme(axis.text.x = element_text(face="bold", color="blue", size=8), plot.margin = unit(c(2,3,3,4),"cm"))

分享題目：R語言ggplot2繪圖設置X軸刻度，字體大小及繪圖區大小
標題路徑：http://vcdvsql.cn/article24/jhepje.html

成都網站建設公司_創新互聯，為您提供網站導航、網站設計、App開發、網站營銷、手機網站建設、企業建站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯