对齐x轴以绘制与网格的一致使用 [英] Align x-axis to plot for consistent use with grid

问题描述

我正在尝试使用这里。我使用这个数据库的CSV版本来显示每年发现的外植体的数量。一个简单的脚本是

  bulkdata<  -  read.csv（'file.csv'，head = 1，sep = ，'）
 pdf（file =yearcount.pdf，family =Times）
 bins<  -  seq（min（bulkdata $ discovered，na.rm = T），max（bulkdata $发现，na.rm = T），by = 1）
 hist（bulkdata $ discovered，breaks = bins，col ='gray'，ylab =Discovered，xlab =Year，main = （2，at = seq（0,100，by = 10）），b = b（b，b） ）
 grid（nx = 10）
 hist（bulkdata $ found，breaks = bins，col ='gray'，ylab =Discovered，xlab =Year，main = TRUE）
 dev.off（）
  

问题是 xaxis 不与 y轴的 0 c>。这是一个问题，因为 grid（） 绘制的线不代表任何，因为它们不与刻度对齐！我尝试添加 axis（1，at = seq（1989,2012，by = 1））选项 line = -1 来修正，但是这种方式正确地绘制了 轴，但网格开始 轴下方。

解决方案

？grid 说：

如果需要更多微调，请直接使用'abline（h =。，v =。）'
。 p>

这里有一个建议：

  par（las = 1，bty =l）
h < -  hist（bulkdata $ discovered，breaks = bins，
 col ='gray'，ylab =Discovered，xlab =Year ，main =，
 ylim = c（0,100），axes = FALSE）
 yrs<  -  1989：2012 
 yvals<  -  seq（0,100，by = 10）
 axis（1，at = yrs）
 axis（2，at = yvals）
 abline（h = yvals，v = yrs，col =grey，lty = 3）
 hist（bulkdata $ discovered，breaks = bins，
 col ='gray'，ylab =Discovered，xlab =Year，main =，add = TRUE）
  
 
 
 > 
 
I'm trying to build an histogram using data available from here. I'm using using the CSV version of this database to display the number of exoplantes discovered per year. A simple script would be
bulkdata <- read.csv('file.csv',head=1,sep=',')
pdf(file="yearcount.pdf",family="Times")
bins <- seq(min(bulkdata$discovered,na.rm=T),max(bulkdata$discovered,na.rm=T),by=1)
hist(bulkdata$discovered,breaks=bins,col='gray',ylab="Discovered",xlab="Year",main="",ylim=c(0,100),axes=FALSE)
axis(1, at=seq(1989,2012,by=1))
axis(2, at=seq(0,100,by=10))
grid(nx=10)
hist(bulkdata$discovered,breaks=bins,col='gray',ylab="Discovered",xlab="Year",main="", add=TRUE)
dev.off()
The problem is that the xaxis is not aligned with the 0 point of the yaxis. This is a problem because the lines drawn by grid() does not mean anything because they are not aligned with the ticks! I tried to add in axis(1, at=seq(1989,2012,by=1)) the option line=-1 to correct but this way the axis is correctly drawn but the grid start below the axis. Maybe a non standard package is needed?
解决方案
?grid says:

  
If more fine tuning is required, use ‘abline(h = ., v = .)’
       directly.
So here's a suggestion:
par(las=1,bty="l")
h <- hist(bulkdata$discovered,breaks=bins,
     col='gray',ylab="Discovered",xlab="Year",main="",
     ylim=c(0,100),axes=FALSE)
yrs <- 1989:2012
yvals <- seq(0,100,by=10)
axis(1, at=yrs)
axis(2, at=yvals)
abline(h=yvals,v=yrs,col="gray",lty=3)
hist(bulkdata$discovered,breaks=bins,
     col='gray',ylab="Discovered",xlab="Year",main="", add=TRUE)
I would consider making the grid lines a little bit sparser (e.g. every 5 years?)



                        
这篇关于对齐x轴以绘制与网格的一致使用的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！