每隔一段时间绘制x轴值

Question

我想绘制一些数据，并以间隔

绘制x轴数据

X：

50.0000
100.5467
689.7431
1559.8025
1000.9365
10.9095

Y：

-0.0596123270783229
 0.644158691971081
-0.433854284204926
-0.365746109442603
 0.566685929975495
 0.398462720589891 

功能：

plotM<- function( dat, m ) {
  plot(data$X, data$Y,
       log="x", pch=20, cex=0.7,
       col = ifelse( data$Y < m, "red", "black" ), 
       xlab = "Y", ylab = expression(Log[2]~Fold~Change))
}

函数调用：

plotM(dat, .05) 

如何在x轴上使用以下序列绘制数据：

10, 100, 1000, 2000

由于

Answer 1

您需要创建没有轴的绘图，然后手动添加它们。

使用一些示例数据

x = 10^(0:3)
y = 0:3

我们绘制x和y，并指定不绘制轴：

plot(x, y, log="x", axes=FALSE, frame=TRUE)

然后手动添加x和y轴

## See ?axis for more details
axis(1, 10^(0:3), 10^(0:3))
axis(2)

或者，我们可以更喜欢轴标签来获取

axis(1, 10^(0:3),  c(expression(10^0), 
                     expression(10^1), 
                     expression(10^2), 
                     expression(10^3)))

获取

Answer 2

试试这个...我使用过ggplot2，很多用过R的图形包。

它将使用ggplot ..

在对数刻度上创建x轴

ggplot(data = data) + geom_line(aes(x = x, y = y)) + scale_x_log10()

这就是结果的样子......