|
发表于 2012-2-21 21:43:47
|
显示全部楼层
对于你说的问题,给你一个例子。应该有所启示
x <- seq(-4, 4, len = 101)
y <- cbind(sin(x), cos(x))
matplot(x, y, type = "l", xaxt = "n",
main = expression(paste(plain(sin) * phi, " and ",
plain(cos) * phi)),
ylab = expression(log[2]*x*t), # only 1st is taken
xlab = expression(-log[2]*m^{-2}*s^{-1}),
col.main = "blue")
x <- seq(-4, 4, len = 101)
y <- cbind(sin(x), cos(x))
matplot(x, y, type = "l", xaxt = "n",
main = expression(paste(plain(sin) * phi, " and ",
plain(cos) * phi)),
xlab = expression(log[2]*foldchange),
col.main = "blue")
|
|