Почему я могу изменить ось x? R

Question

Я попытался запустить следующий скрипт, чтобы изменить ось x. Я следовал другим ответам, приведенным в Stack Overflow; однако я не понимаю, что я ищу. Оригинальная ось х от 0 до 1, но я хочу, чтобы изменить его от 0 до 20.

x<-c(0,0.1,0.2,0.25,0.30,0.35,0.40,0.60,0.90,1) 
y<-c(0,0.014,0.41165,0.258,0.57,0.57,0.1803,0.5844,0.10185,0.085) 
da<-cbind(x,y) 
dat=data.frame(da) 
plot(y~x,data=dat,xaxt="n") 
pas=c(0,1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20) 
axis(1, at=1:20,labels=pas) 

Этого скрипт производит фигуру с только 0 на последнюю отметку. Мне нужна ось x от 0 до 20. Спасибо

Answer 1

Я не уверен, почему вы пытаетесь это сделать, но следующее будет работать.

x  <- c(0,0.1,0.2,0.25,0.30,0.35,0.40,0.60,0.90,1) 
y  <- c(0,0.014,0.41165,0.258,0.57,0.57,0.1803,0.5844,0.10185,0.085) 
dat  <- data.frame(x = x, y = y) 
x.range <- c(0,20) 
x.labels <- x.range[1]:x.range[2] 
pas  <- seq(0, 1, length.out = length(x.labels)) 
plot(y ~ x, data = dat, xaxt = "n", xlim = c(0,1)) 
axis(1, at = pas, labels = x.labels, cex.axis=0.65) 

Answer 2

Возможно, вы пропустили xlim/ylim.

Возможно, вы имели в виду y axis? Затем просто использовать:

plot(y~x,data=dat,ylim=c(0,20)) 

plot(y~x,data=dat,xlim=c(0,20)) # Вы должны удалить «xaxt =„п“», чтобы увидеть ось х

Хотя в любом случае я не уверен, что это самая лучшая идея, учитывая диапазон данных.

Использование ggplot2

library(ggplot2) 
qplot(x,y,data=dat)+ scale_x_continuous(labels=c("0"="fake0","0.25"="fake5","0.5"="fake10",".75"="fake15","1"="fake20"))# replace 'fake#' with anything 

Хотя я не знаю, почему вы пытаетесь это сделать.