> 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 可以設(shè)置x軸顯示的刻度，調(diào)整稀疏程度，比如 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可以調(diào)整矩形，字體，線段的屬性，比如 element_rect, element_line, element_blank, element_text // http://docs.ggplot2.org/0.9.2.1/theme.html // panel.margin 用于 theme() 中，主要用于調(diào)整繪圖區(qū)域各圖之間的間距 // margin 用于element中，調(diào)整element 與周圍圖形元素的距離 // plot.margin 用于 theme()中，用于調(diào)整整個(gè)繪圖區(qū)的邊緣位置 > 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")) 有三種方法可以設(shè)置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)   // 一般使用倍數(shù)來(lái)限定大小，注意定義最小值的方式 >  // 在theme 中可以用 axis.title.x或y 調(diào)整坐標(biāo)軸的標(biāo)識(shí) //   geom_text(aes(label = "point_k"))   // 這個(gè)可以給點(diǎn)添加文字label // scale_size 可以把圖中的數(shù)據(jù)點(diǎn)轉(zhuǎn)化為不同大小的點(diǎn) // //

原始繪圖代碼：

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、微信小程序定制開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了達(dá)孜免費(fèi)建站歡迎大家使用！> 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"))

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場(chǎng)景需求。

當(dāng)前標(biāo)題：R語(yǔ)言ggplot2繪圖設(shè)置X軸刻度，字體大小及繪圖區(qū)大小-創(chuàng)新互聯(lián)
地址分享：http://jinyejixie.com/article0/depcoo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、做網(wǎng)站、建站公司、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)