我希望我在这里遗漏了一些令人痛苦的明显的东西。
我希望更新(例如,修复标题、实验室等)从gratia::draw(). 不太确定为什么我无法更新该对象。
有一个简单的解决方案吗?
# devtools::install_github('gavinsimpson/gratia')
library('mgcv')
library('gratia')
dat <- gamSim(1, n = 400, dist = "normal", scale = 2, verbose = FALSE)
mod <- gam(y ~ s(x0), data = dat, method = "REML")
draw(mod)
Run Code Online (Sandbox Code Playgroud)

p = draw(mod)
# P is a ggobject.
class(p)
#> [1] "gg" "ggplot"
Run Code Online (Sandbox Code Playgroud)
那么,为什么我无法更新p?
p + ggtitle("My title")
Run Code Online (Sandbox Code Playgroud)
由reprex 包(v0.2.1)于 2019-02-26 创建
我无法使用默认的 pdf_document、bookdown::pdf_document2 或 html_document 来呈现 kable 表内的引文。如下所示,在引文周围强制使用引号 (") 不会
\n\n(注意:“nocite”作为控件存在,.bib 中没有任何内容)。\n文件“bib.bib”位于同一目录中,内容如下:
\n\n@article{roy2019growth,\n title={Growth pattern and oxygen isotopic systematics of modern freshwater mollusks along an elevation transect: Implications for paleoclimate reconstruction},\n author={Roy, Rupsa and Wang, Yang and Jiang, Shijun},\n journal={Palaeogeography, Palaeoclimatology, Palaeoecology},\n pages={109243},\n year={2019},\n publisher={Elsevier}\n}\nRun Code Online (Sandbox Code Playgroud)\n\n---\n output:\n bookdown::pdf_document2\n# output: pdf_document\nbibliography: bib.bib\n---\n\nCitation works, see [@roy2019growth]?\n\n\n```{r results="asis"}\n# using "asis" results\na <- c(1,2)\nb <- c("@roy2019growth", "@nocite")\ndf <- data.frame(a,b)\nkableExtra::kable(df)\n```\n\n\n```{r}\n# without as is results\nkableExtra::kable(df)\n```\n\n```{r}\n# Try explicit \'"\' quotes\ndf <- data.frame(a,b = …Run Code Online (Sandbox Code Playgroud)