这个沙发先抢着啊`礼也赶紧收下~~:)
抢占板凳,围观高手!
这个的确好用~
顺祝各位中秋快乐!
太给力了,快速调整图形细节已不再是梦!
另外,最终调整好的图形能返回相应的参数么,比如坐标位置,旋转角度等等,那样的话就太棒了。
[未知用户] 这个可以啊,平移旋转拉伸本质上都是将原来的坐标左乘一个变换矩阵,这个矩阵会被记录下来的,不过怎样让展示出来的数值容易看懂还得考虑一会儿。
7 天 后
为什么我按照操作只加进去了title图层,legend和thanks两个图层加不进去呢?而且把title图层的名字改了就提示没有那个函数呢?
[未知用户]
library(Layer)
Layer()
x=seq(-pi,pi,len=41)
plot(x,sin(x),type="l",ylim=c(-2,2),col=2,lty=2)
points(x,cos(x),pch=3,col=4)
add.layer("title")
title("legend(***,lty=c(-2,2),pch=c(-2,3))",cex.main=1,1)
add.layer("legend")
legend(-1,2,c("sin","cos"),col=(3,4),lty=c(2,-1),
       pch=c(-3,3),bg="gray99")
上面这段,执行完添加legend图层,原图没有任何变化

将title换成legend,重新执行,结果提示命令错误,如下
> library(Layer)
> Layer()
> x=seq(-pi,pi,len=41)
> plot(x,sin(x),type="l",ylim=c(-2,2),col=2,lty=2)
> points(x,cos(x),pch=3,col=4)
> add.layer("legend")
> legend("legend(***,lty=c(-2,2),pch=c(-2,3))",
+        cex.main=1,1)
错误于legend("legend(***,lty=c(-2,2),pch=c(-2,3))",
            cex.main = 1, 1) : 
  参数((cex.main = 1)) 没有用
> legend("legend(***,lty=c(-2,2),pch=c(-2,3))",1)
错误于is.language(x) : 缺少'x'
补充一下,我是新手,也没系统看过R For Beginners等资料
[未知用户] 你应该是有些命令打错了,比如col=(3,4)应该是col = c(3, 4)cex.main=1,1应该是cex.main = 1.1等等。
完整的程序在下面:
x = seq(-pi, pi, len = 65);
plot(x, sin(x), type = "l", ylim = c(-1.2, 1.8),
     col = 3, lty = 2);
points(x, cos(x), pch = 3, col = 4);

add.layer("title");
title("This is the title", cex.main = 1.1);

add.layer("legend");
legend(-1, 1.9, c("sin", "cos"), col = c(3, 4),
       text.col = "green4", lty = c(2, -1),
       pch = c(-1, 3), merge = TRUE, bg = "gray90");
[未知用户] copy你写的命令进行执行,还是没出现legend图层,软件包加载的是Windows二进制包(含GTK+运行库),系统Vista Basic
[未知用户] 嗯,那或许是程序还不完善吧,等我日后再修复一下这个问题。你在别的电脑上也会有同样的问题吗?
在别的机器上测试了一下,仍是存在同样的问题。
5 天 后
作者你好:
感谢你的礼物啊,不过在我的机子上运行有以下错误,我菜鸟请教以下。
如:1.打入plot(x,sin(x),type="1",ylim=c(-1.2,1.8),col=3,lty=2)
会提示绘图种类‘1’不对,然后把type=1删掉后就可以通过,为啥?
2.当打入get.layers()后,为什么ID只有一个,而你的有三个不同ID,程序完全照你抄的(除了在1中说删去type-=1),为啥?
再次感谢你的无私奉献!
作者你好:
第二问题已经解决了,第一个问题还是求解
谢谢!
[未知用户] 应该是type="l",是字母L的小写,不是数字1哈。
1 个月 后