相关疑难解决方法(0)

我试图通过首先定义一个函数来修改和重新定义R包xcms中的函数(xcmsRaw)

my.xcmsRaw <- function(filename, profstep = 1, profmethod = "bin",
                    profparam = list(mzcorrf=1),    # PATCH - mzcorrf is the m/z correction factor, e.g. 0.99888 for long-chain hydrocarbons
                    includeMSn = FALSE, mslevel=NULL,
                    scanrange=NULL) { ... }

然后输入

unlockBinding("xcmsRaw", as.environment("package:xcms"))
assign("xcmsRaw", my.xcmsRaw, as.environment("package:xcms"))
lockBinding("xcmsRaw", as.environment("package:xcms"))

但是,当我运行它时,它给了我错误

Error in get(as.character(FUN), mode = "function", envir = envir) : 
  object 'profBinM' of mode 'function' was not found

由于它没有找到profBinM函数,这是一个在xcms包的文件xcms.c中定义的C代码函数.

有关如何解决此问题的任何想法？(我在Windows 7下工作,使用R版本3.0.0)

我想将一个R生成的数字输出到Word.该图包含透明度(alpha通道).下面是一些示例代码 - 当导出到Windows图元文件时,它会抛出一个错误:

警告消息:在plot.xy(xy,type,...)中:此设备不支持半透明:每页仅报告一次

导出到SVG会产生所需的结果,但MS Office不支持此图像格式.有没有解决的办法？保留Alpha通道时我可以使用哪种图像类型？PNG是可能的,但这不会产生非常清晰的图形 - 它会丢失清晰的矢量化图像.

# Get some colours with transparency (alpha = 0.6)
col.dot <- rainbow(5, alpha = .6)

# Save to svg file - OK
svg("test_fig.svg")
plot(1:5,col = col.dot, pch=15)
dev.off()

# Save to wmf - warning "semi-transparency is not supported on this device..."
win.metafile("test_fig.wmf")
plot(1:5,col = col.dot, pch=15)
dev.off()

我应该补充一下,这是在Windows系统上(Windows 8 64位,使用Word 2013)