考虑以下代码。我试图传递参数
main
来将绘图标题更改为"FooBar",但似乎被硬编码为"SVM Classification Plot"。我还尝试使用函数调用title
,但这会叠加两个标题,这更加不可取。是否有任何解决方法?library(e1071)
pdf("Play.pdf")
# Generate data
set.seed(1)
x=matrix(rnorm(200*2),ncol=2)
x[1:100,]=x[1:100,]+2
x[101:150,]=x[101:150,]-2
y=c(rep(1,150),rep(2,50))
dat=data.frame(x=x,y=as.factor(y))
train=sample(200,100)
svmfit=svm(y~.,data=dat[train,],kernel="radial", cost=1, gamma=1)
plot(svmfit,dat[train,], main="FooBar")
dev.off()
source(filename.R)
。 - nicoe1071
,然后在.Rprofile
中覆盖它。 - IRTFMbody(fn_name) <- { a set of expressions }
替换函数体,但这似乎也不会更加紧凑。 - IRTFM