小编Joh*_*arr的帖子

我研究并发现了如何在rmarkdown文档中创建水印.

它在基本文本上效果很好,但是当你有一个情节重页时,它会隐藏在情节背后.

显然,这使得某人可以轻松地屏蔽数字并在PDF之外使用它们.

下面是一些清楚地说明问题的代码.

---
title: "Testing Watermark"
author: "John"
date: "September 18, 2015"
header-includes:
   - \usepackage{draftwatermark}
output:
  pdf_document
---

This is some basic text.  
Note the watermark on this page, and the hidden watermark on the next page.

\newpage

\SetWatermarkText{DRAFT}

```{r echo=FALSE, warning=FALSE, message=FALSE, fig.height=7}
library(ggplot2)

ggplot(mtcars) +
  geom_point(aes(mtcars$mpg, mtcars$cyl)) +
  facet_wrap(~carb, ncol=1) + 
  theme_bw()
```

如果有人知道解决这个问题,我将不胜感激.

要么让ggplot背景透明(我已经尝试过),或者将水印带到前台并使其透明,就我而言是可以的.

我已经搜索过了,如果我遗失了什么,请原谅我.

我们假设一个数据框包含名称,日期,卡路里,其中卡路里是当天消费的卡路里总数.

Name    Date    Calories
Amy     1/1/01  1500
Amy     1/2/01  1600
Amy     ...     ...
Sue     1/1/01  1450
Sue     1/1/02  1500
Sue     ...     ...
Jim     ...     ...

我想做的是使用ggvis绘制每个人的卡路里(姓名).我知道我可以使用dplyr的group_by,并在单个情节中得到这个,但那太忙了.而且我知道我可以使用dplyr的过滤器并过滤掉每个人并为每个人制作一个图表,但这不会扩展.

有没有办法让ggvis自动为每个人吐出每天卡路里的情节？

请注意,我尝试创建如下所示的函数:

makeCharts <- function(myName){
   myTbl %>% filter(Name == myName) %>% ggvis(~Date, ~Calories)
}

手动调用它时效果很好:

makeCharts("Amy")

但是当你通过sapply调用它时:

sapply(levels(myTbl$Name), makeCharts)

输出如下所示:

           Amy    Sue    Jim    John   Sally  Frank  Sandy   etc...     
marks      List,0 List,0 List,0 List,0 List,0 List,0 List,0 List,0 List,0  List,0 List,0 List,0 List,0  List,0 List,0
data       List,1 List,1 List,1 List,1 List,1 List,1 List,1 List,1 …

我刚刚找到并开始使用condformatR中的包.

它工作得很好,但是当我运行下面的代码时,一条## NULL线显示在表格的上方.如果我添加include=FALSE,它会丢弃## NULL,但也会丢弃表.

有没有办法压制## NULL没有抑制表？

---
title: "condformat_test"
author: "John"
date: "Dec 24, 2016"
output:
  pdf_document
---


```{r setup_chunk, include=FALSE}
library(condformat)
library(knitr)

knitr::opts_chunk$set(echo=FALSE) 

```

```{r condformat_test}

condformat(iris[c(1:5,70:75, 120:125),]) +
  rule_fill_gradient2(Petal.Length)
```

我已经搜索了很多并阅读了包文档,但无法找到解决方案.

我使用RODBC 1.3-12对抗Microsoft SQL Server,具体如下.

DBMS_Name       "Microsoft SQL Server"    
DBMS_Ver        "10.50.6220"           
Driver_ODBC_Ver "03.52"            
Driver_Name     "SQLSRV32.DLL"             
Driver_Ver      "06.01.7601"         
ODBC_Ver        "03.80.0000"  

我不确定如何给出一个可重现的例子,因为你需要一个DB,但下面的代码类似于我正在使用的代码.

myConnection<- odbcDriverConnect(connection = "Driver={SQL Server};server=myServerName;database=myDBName;trusted_connection=yes")

myDataFrame <- sqlQuery(myConnection, "select top 100 * from myTable", as.is=TRUE)

按照文档的说法,双打将以数字的形式返回,正如我所期望的那样,但浮动和金钱作为角色回归.

有人知道这种方法吗？

我试图让数据逐年绘制，正如这个问题的答案中所示。不幸的是，从那时起 ggplot 似乎发生了变化，并且答案不再正常工作。

如果您尝试以下代码，您会注意到与答案中的图像相比，x 轴标签不再存在。

如何修改此答案以在 x 轴上显示缩写的月份名称？

library(ggplot2)
# Sample data
data <- read.table(text = "Month             Marg            Fiscal.Year
                           2009-01-01        20904494        2009
                           2009-02-01        30904494        2009
                           2009-03-01        40904494        2009
                           2009-04-01        30904494        2009
                           2009-05-01        43301981        2009
                           2009-06-01        14004552        2009
                           2009-07-01        24004552        2009
                           2009-08-01        34004552        2009
                           2009-09-01        44004552        2009
                           2009-10-01        54004552        2009
                           2009-11-01        64004552        2009
                           2009-12-01        44004552        2009
                           2012-02-01        58343271        2012
                           2012-03-01        68343271        2012
                           2012-04-01        58343271        2012
                           2012-05-01        58343271        2012
                           2012-06-01        38723765        2012
                           2012-07-01        77246753        2012",
                   header=TRUE, sep="", nrows=18)
data$MonthN <- …

我已经搜索了一下,并阅读了这个,但我似乎无法找到global_options和opts_chunk之间的区别.

下面是我在大多数RMD文件开头使用的代码块,但我从来没有理解它的区别.任何帮助,将不胜感激.

```{r global_options, include=FALSE}
# This is a way to set options for all code chunks at once
# Note that you can also dynamically control options by setting them to a value
# DPI setting increased for Word output, cairo is anti aliasing
knitr::opts_chunk$set(echo=FALSE, warning=FALSE, message=FALSE,
                      dev="png", fig.width = 10, fig.height = 7, dpi=200, dev.args=list(type="cairo"))
```