小编dsh*_*kol的帖子

如何在markdown(.Rmd)中包装代码和输出

在我的r部分文档中,我使用长代码,如:

```{r}
output <- "very long query for example url to some website............................................."
output
```
Run Code Online (Sandbox Code Playgroud)

有没有办法不让R自动包装代码,让我们说60个字符后?我尝试过tidy=TRUE, tidy.opts=list(width.cutoff=60)选项,但它不起作用.

我希望输出相同,因为我的查询输出是一些文本.我希望在很多行中显示整个内容,而不仅仅是在一行中开头.我该怎么做?

markdown r knitr r-markdown

14
推荐指数
2
解决办法
8133
查看次数

CRAN指出,如果没有安装"pandoc",就无法检查文件

在对CRAN包提交进行最终检查时,会出现以下注释:

* checking top-level files ... NOTE
Files ‘README.md’ or ‘NEWS.md’ cannot be checked without ‘pandoc’ being installed.
Run Code Online (Sandbox Code Playgroud)

但是,pandoc肯定是安装的,因为我经常使用它,这个包经常在文档中使用它pkgdown.

> rmarkdown::pandoc_available()
[1] TRUE
> rmarkdown::pandoc_version()
[1] ‘1.19.2.1’
Run Code Online (Sandbox Code Playgroud)

我想避免从源代码安装pandoc,因为最新版本的pandoc取代了与其他R软件包一起安装的版本并导致奇怪的输出.

几年前有一个类似的问题,但解决方案是:

  • 从源或通过installr包安装pandoc ,而我已经安装了pandoc; 和,
  • 将这两个文件放入.Rbuildignore,但现在两者都应该接受CRAN提交.

仅在使用devtools::release()和使用时检查此注释devtools::check(check_version = TRUE),否则通过时不会发出警告或注释.

Pandoc的RStudio安装:

Sys.getenv('RSTUDIO_PANDOC')
[1] "/Applications/RStudio.app/Contents/MacOS/pandoc"
Run Code Online (Sandbox Code Playgroud)

我以前导出到〜/ .bash_profile:

export PATH="$PATH:/Applications/Rstudio.app/Contents/MacOS/pandoc"
Run Code Online (Sandbox Code Playgroud)

有任何想法吗?

> sessionInfo()
R version 3.4.3 (2017-11-30)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS High Sierra 10.13.2

Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRlapack.dylib

locale: …
Run Code Online (Sandbox Code Playgroud)

r devtools cran pandoc r-markdown

12
推荐指数
1
解决办法
458
查看次数

如何使用ggplot2从geom_tile(热图)中删除白线

我无法去除热图中图块之间的白线。下面是我的代码和图片。以前有人遇到过这种情况吗?

t <- ggplot(Drug_heatmap_df_final, 
   aes(x=reorder(Drug,Total_Deaths), y=Start_Date, fill=Total_Deaths)) + 
   geom_tile() + 
   labs(title="Heatmap of Total Deaths per month by Drug", x="Drug", y="Month") + 
   theme(plot.title = element_text(hjust=.5)) +
   scale_y_date(date_breaks="1 year" , labels = date_format("%b-%Y")) +
   theme(axis.text.x = element_text(size=13)) 

plot(t)
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

r heatmap ggplot2

5
推荐指数
1
解决办法
4648
查看次数

dplyr 延迟调用中意外的整洁 eval 行为

我有一个函数,它需要一个数据框和几个变量,我希望它使用整洁的评估原则生成一组滞后变量。它的简单形式如下所示:

library(dplyr)
cor_lags <- function(df, var1, var2) {
  var1 <- enquo(var1)
  var2 <- enquo(var2)
  df %>% 
    select(!!var1, !!var2) %>% 
    mutate(lag1 = lag(!!var2, 1),
           lag2 = lag(!!var2, 2),
           lag3 = lag(!!var2, 3),
           lag4 = lag(!!var2, 4),
           lag5 = lag(!!var2, 5),
           lag6 = lag(!!var2, 6))
}
Run Code Online (Sandbox Code Playgroud)

但是,这会NA为所有滞后变量生成值。

cor_lags(dts_wide,"P26","P1")
# A tibble: 24 x 8
       P26     P1 lag1  lag2  lag3  lag4  lag5  lag6 
     <dbl>  <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
 1  84332.  2258. NA    NA    NA    NA    NA    NA   
 2 …
Run Code Online (Sandbox Code Playgroud)

r dplyr tidyeval

1
推荐指数
1
解决办法
68
查看次数

标签 统计

r ×4

r-markdown ×2

cran ×1

devtools ×1

dplyr ×1

ggplot2 ×1

heatmap ×1

knitr ×1

markdown ×1

pandoc ×1

tidyeval ×1