R语言ggplot2绘图设置X轴刻度,字体大小及绘图区大小-创新互联
> 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 可以把图中的数据点转化为不同大小的点
// //
新闻名称:R语言ggplot2绘图设置X轴刻度,字体大小及绘图区大小-创新互联
网站URL:http://cdiso.cn/article/depcoo.html
原始绘图代码:
网站建设哪家好,找创新互联!专注于网页设计、网站建设、微信开发、微信小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了达孜免费建站欢迎大家使用!> 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"))另外有需要云服务器可以了解下创新互联cdcxhl.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。
新闻名称:R语言ggplot2绘图设置X轴刻度,字体大小及绘图区大小-创新互联
网站URL:http://cdiso.cn/article/depcoo.html