Skala w skali osi Y w skali Y jest zbyt krótka

Question

Próbuję wygenerować pręt, ale skala osi y jest zbyt krótka. Oto mój kod:

barplot(as.matrix(dat), log="y", ylim=c(10000,100000000), beside=TRUE, 
     ylab = "Number of reads", col = c("gray","black","white")) 

Pozostawia miejsce na osi (zgodnie ylim), ale nie wypełnia w rzeczywistej osi. Przeszedłem? Barplot i wypróbowałem kilka rzeczy (od szukania w Google myślę, że powinno działać xpd = F, yaxs = c(10000,10000000,5, ale tak się nie stało).

Wiem, że to drobnostka, ale to jest właśnie ten problem, który utknąłem na przestrzeni wieków, zamiast pracować, więc każda pomoc będzie bardzo cenna!

Edytuj: Pozdrowienia dla chłopaków z wejściem!

Początkowo działałem bez ylim, ale kończyło się to na jeszcze dziwniejszej osi (z tym samym problemem); Właściwie wybrałem moje wartości Ylim, aby nadać mu ładniejszą odległość między osiami.

Oto dane:

dat <- read.table(text="D2,D3n,D3m,D4n,D4m 
21234722,34262282,31920464,25486357,20712943 
35343,64403,22537,39934,46547 
126646,312286,101105,81537,76944", header=TRUE, sep=",") 

Edit 2: @DWin miał rację - ja updated mój R, a teraz to działki w porządku - dzięki wszystkim!

Answer 1

Widzę, że próbujesz ustawić ylim źle podajesz złe wartości. Spowoduje to zmianę skali wykresu (jak zoom) patrz na przykład w ten sposób:

par(mfrow=c(2,1)) 
tN <- table(Ni <- stats::rpois(100, lambda = 5)) 
r <- barplot(tN, col = rainbow(20),ylim=c(0,50),main='long y-axis') 
r <- barplot(tN, col = rainbow(20),main='short y axis') 

Inną opcją jest wykreślić bez osi i ustawić go ręcznie za pomocą axis i usr:

require(grDevices) # for colours 
par(mfrow=c(1,1)) 
r <- barplot(tN, col = rainbow(20),main='short y axis',ann=FALSE,axes=FALSE) 
usr <- par("usr") 
par(usr=c(usr[1:2], 0, 20)) 
axis(2,at=seq(0,20,5)) 

Answer 2

barplot(data) 

barplot(data, yaxp=c(0, max(data), 5)) 

yaxp = c (miny-osiowe, maxy oś, Interval)