Fetch the repository succeeded.
Details Information: https://stack.xieguigang.me/2021/ggplot-msimaging-rsharp-scripting/
MS-imaging rendering package for R# environment based on the mzkit library and ggplot api
Mass spectrometry imaging ( MSI) is a technique used in mass spectrometry to visualize the spatial distribution of molecules, as biomarkers, metabolites, peptides or proteins by their molecular masses. After collecting a mass spectrum at one spot, the sample is moved to reach another region, and so on, until the entire sample is scanned.
require(MSImaging);
require(mzkit);
require(ggplot);
options(memory.load = "max");
bitmap(file = `${@dir}/HR2MSI_mouse_urinary_bladder_S096.png`, size = [4000, 2500]) {
# load mzpack/imzML raw data file
# and config ggplot data source driver
# as MSImaging data reader
ggplot(open.mzpack(system.file("data/HR2MSI mouse urinary bladder S096 - Figure1.cdf", package = "MSImaging")),
mapping = aes(driver = MSImaging()),
padding = "padding: 200px 600px 200px 250px;"
)
# rendering of a single ion m/z
# default color palette is Jet color set
+ geom_msimaging(mz = 741.5, tolerance = "da:0.3")
# add ggplot charting elements
+ ggtitle("MSImaging of m/z 741.5")
+ labs(x = "Dimension(X)", y = "Dimension(Y)")
+ scale_x_continuous(labels = "F0")
+ scale_y_continuous(labels = "F0")
;
}
require(MSImaging);
require(mzkit);
require(ggplot);
options(memory.load = "max");
bitmap(file = `${@dir}/HR2MSI_mouse_urinary_bladder_S096_RGB.png`, size = [3300, 2000]) {
# load mzpack/imzML raw data file
# and config ggplot data source driver
# as MSImaging data reader
ggplot(open.mzpack(system.file("data/HR2MSI mouse urinary bladder S096 - Figure1.cdf", package = "MSImaging")),
mapping = aes(driver = MSImaging()),
padding = "padding: 200px 600px 200px 250px;"
)
# rendering of rgb channels ion m/z
+ geom_red(mz = 743.5468, tolerance = "da:0.3")
+ geom_green(mz = 798.5414, tolerance = "da:0.3")
+ geom_blue(mz = 741.5303, tolerance = "da:0.3")
# add ggplot charting elements
+ ggtitle("HR2MSI mouse urinary bladder S096 - Figure1")
+ labs(x = "Dimension(X)", y = "Dimension(Y)")
+ scale_x_continuous(labels = "F0")
+ scale_y_continuous(labels = "F0")
;
}
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。
1. Open source ecosystem
2. Collaboration, People, Software
3. Evaluation model