x軸操作いろいろ

x <- seq(-3, 3, 0.1)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数
plot(x, y, type="l", ylab ="確率密度", xlab="")

x <- seq(-3, 3, 0.1)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数

#xaxt="n"で軸を消去
plot(
    x, y,
    type="l", 
    ylab ="確率密度", xlab="", 
    xaxt="n") 
#side=1：ｘ軸
name <-c (0: 6)
axis(side=1, -3:3, labels=name)

x <- seq(-3, 3, 0.1)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数
plot(x, y, type="l")
#xaxpでｘ軸の等分割
plot(x, y, xaxp=c(-3, 3, 4), type="l") 

x <- seq(-3, 3, 0.01)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数 
plot(x, y, xaxp=c(-3, 0, 4), type="l")

x <- seq(-3, 3, 0.01)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数 

plot(x, y, xaxp=c(-3, 3, 4), type="l", xaxt="n") 
name <- c("あ", "い", "う")
#指定した場所に挿入
axis(side=1, at=c(-1.5, 0, 3.0), labels=name)　 

#非推奨）単にX軸を書き換えるだけなので、データには元のN(0, 1)が入っています

x <- seq(-3, 3, 0.1)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数
plot(x, y, type="l", bty="n")

x <- seq(-3, 3, 0.1)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数 
plot(x, y, type="l", bty="n", xaxt="n")
#グラフを重ねるときに使うかも

x <- seq(-3, 3, 0.1)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数 
plot(x, y, type="l", bty="n", xaxt="n", yaxt="n")

x <- seq(0, 200, 1)
y <- dnorm(x, 100, 25) #平均100、分散25の正規分布の乱数 
plot(x, y, type="l", las=2)

curve(dnorm(x, 300, 100),0 , 600)

axis(side=1, at=c(270, 350))

x <- seq(-3, 3, 0.1)
y <- dnorm(x) #平均0、分散1の標準正規分布の乱数 
plot(x, y, type="l", bty="n")

lines(c(1, 1), c(0, dnorm(1)))

lines(c(1, -3), c(dnorm(1), dnorm(1)))